session.timeout=120
logonstyle=request("bb")
if logonstyle="修改密码" then
sql="select * from adminuser where uid='"&request("uid")&"'"
set loguserrs=conn.execute(sql)
if loguserrs.bof and loguserrs.eof then
response.write "" & VbCRlf
response.write "alert('该用户不存在，修改密码失败!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "" & VbCRLF
response.end
else
dim num
num=loguserrs("id")
dim name
name=loguserrs("uid")
if request("pwd")loguserrs("pwd") then
response.write "" & VbCRlf
response.write "alert('口令出错，请检查是否大小写不对!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "" & VbCRLF
response.end
else
session("name")=name
response.redirect"check02.asp?id="&num
end if
end if
else
if logonstyle="登录" then
sql="select * from adminuser where uid='"&request("uid")&"'"
set loguserrs=conn.execute(sql)
if loguserrs.bof and loguserrs.eof then
response.write "" & VbCRlf
response.write "alert('该用户不存在，登录失败!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "" & VbCRLF
response.end
else
num=loguserrs("id")
if request("pwd")loguserrs("pwd") then
response.write "" & VbCRlf
response.write "alert('口令出错，请检查是否大小写不对!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "" & VbCRLF
response.end
else
session("name")="coffeedesign.126.com/www.bestvision.org"
response.redirect"admin.asp"
end if
end if
end if
end if
%>
