luntan_repass_check.asp

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

<!--#include file="conn.asp"--> 
<%
  pass1=request("pass1")
  pass2=request("pass2")
  strsql="select*from usermessage where use_name='"&session("loginname")&"' and pwd='"&session("loginpass") &"'"
  set rst=conn.execute(strsql)
  if pass1=pass2 then
    if pass1<>"" then
	if not rst.eof then 
     str1sql="update usermessage set pwd='"&pass1&"' where use_name='"&session("loginname")&"'"
	 set rst=conn.execute(str1sql)
	 session("eee")="修改密码成功!"
	 session("loginpass")=pass1
	 server.Transfer("luntan_repass.asp")
	 rst.close
	 conn.close
	 set conn=nothing
	 end if 
	 else
	 session ("eee")="密码不能为空!"
	 server.Transfer("luntan_repass.asp")
	 end if 
  else
     session("eee")="你输入的两个密码不相同!"
	 server.Transfer("luntan_repass.asp")
	 rst.close
	 conn.close
	 set conn=nothing 
  end if 
%>