check.asp

三鸟个人网站源码。

<!--#include file=conn.asp-->
<%
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 "<script language='javascript'>" & VbCRlf
response.write "alert('该用户不存在，修改密码失败!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end  
else   
dim num
num=loguserrs("id")
dim name
name=loguserrs("uid")
if request("pwd")<>loguserrs("pwd") then   
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('口令出错，请检查是否大小写不对!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & 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 "<script language='javascript'>" & VbCRlf
response.write "alert('该用户不存在，登录失败!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end  
else  
num=loguserrs("id") 
if request("pwd")<>loguserrs("pwd") then   
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('口令出错，请检查是否大小写不对!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end 
else   
session("name")="coffeedesign.126.com/www.bestvision.org"
response.redirect"add_pic.asp"
end if
end if
end if
end if
%>