0 then
state=1
errmsg="用户名里面不能有空格"
response.Write(errmsg)
exit sub
end if
if instr(1,dl,"'")0 then
state=1
errmsg="用户名里面含有非法字符"
response.Write(errmsg)
exit sub
end if
if len(pass)=0 then
state=1
errmsg="密码不能为空"
response.Write(errmsg)
exit sub
end if
%>
<%rs.open "select * from Users where user='" & dl & "' and Pass='" & pass & "'",con,1,1
if rs.bof and rs.eof then rs.close con.close set rs=nothing set con=nothing
state=1 errmsg="登陆失败,用户名或密码错误!!!" response.Write(errmsg) exit subelse if IsNull(rs("dl")) or rs("dl") = ""