请教高手,帮我看看 (asp问题)

来源:百度知道 编辑:UC知道 时间:2024/05/12 09:58:13
<--admin/login.asp-->登陆页面代码

<%

set rs=server.CreateObject("ADODB.Recordset")
dim actFlag,AdminName,Pass
actFlag=trim(request("actFlag"))
if actFlag="login" then
AdminName=RepHTML(trim(request("AdminName")))
Pass=RepHTML(trim(request("Pass")))
if AdminName="" or Pass="" then back("请输入密码")

sql="select top 1 * from Admin where AdminName='"&AdminName&"'"
rs.open sql,conn,3,3
if not rs.eof and not rs.bof then
if rs("Pass")<>Pass then back("对不起,用户名或密码有误!")
session("AdminID")=rs("AdminID")
session("trueName")=rs("trueName")
session("LoginTime")=rs("LoginTime")
session("loginY")="AdminLogin"
session("loginWhere")=trim(rs("loginWhere"))

if rs("Pass")<>Pass then back("对不起,用户名或密码有误!") 这句后面没有then,而且多处都少end if楼主仔细检查一下代码。

写的看不懂哦。有这么难写的代码吗?我写这个感觉写的很简单呢。而且实现的功能也很强悍!要不我发给你QQ:739742415