repass_check.asp

来自「这是一个用ASP 做的论坛.值得研究一下. 最有趣的是,发帖支持 HTML 代」· ASP 代码 · 共 47 行

<!--#include file="conn.asp"--> 
<%

   loginname=request("login_name")
   loginpass=request("login_pass")
   pass1=request("pass1")
   pass2=request("pass2")
   
'安全
session("login_name")=loginname
session("login_pass")=loginpass
sapsT=replace(sapsT,"'","*")
sapsT=replace(sapsT,"""","*")
adminSql="select * from luntan_login where login_name='"&loginname&"' and login_pass='"&loginpass&"'  "
set rsT=conn.execute(adminSql)
if pass1<>"" then
if pass1=pass2 then
if not rsT.eof then
    'session("stu_retset")=rst("stu_num")
	'session("stu_retset")=0
	  strsql="update luntan_login set login_pass='"&pass1&"' "   
      set rst=conn.execute(strsql)	    
	'response.End()
	conn.close()
	set conn=nothing
	session("aaa")="修改密码成功!"
	server.Transfer("repass.asp") 
end if
else
session("aaa")="你输入的新密码不同!"
server.Transfer("repass.asp") 
end if
else
session("aaa")="你输入的新密码不能为空!"
server.Transfer("repass.asp")
end if 


 
session("aaa")="你输入的密码或用户名错误!"
server.Transfer("repass.asp")

conn.close()
set conn=nothing
%>