ASP帮我看一下

来源：百度知道 编辑：UC知道 时间：2024/05/15 05:53:48
我的这个页面是用户登陆页面，它老是弹出Alert窗口，但在程序中，Alert窗口弹出是有条件的，代码如下：

if session("users")<>"" then
response.redirect "logined.asp"
else
uName=Request.Form("name")
uPass=Request.Form("pass")

sql="select * from users where acc='"&uName&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,3,2
dim dsacc
dsacc=rs.recordcount
if dsacc=0 then
response.write "<script languge=javascript>alert('用户名不存在！')</script> "
else
。。。。。。省略
幸亏我存档了一份改之前的，为了后来人，贴出代码：
if session("users")<>"" then
response.redirect "logined.asp"
else
if Request("action")="login" then
uName=Request.Form("name")
uPass=Request.Form("pass")

别忘了把Form的action改成 action="?action=login&q

dim dsacc
dsacc=rs.recordcount
if dsacc=0 then
response.write "<script languge=javascript>alert('用户名不存在！')</script> "
else

这段换为：
if rs.eof or rs.bof then
response.write "<script languge=javascript>alert('用户名不存在！')</script> "
response.end()
else

比较合适，另外：
如果ACC字段中没有和uName的值相同的行，就会弹出。

if dsacc=0 then
response.write "<script languge=javascript>alert('用户名不存在！')</script> "
response.end
else

弹出之后中止程序运行 ...