updaterpass.asp

来自「网络答疑系统 界面简单 功能少有欠缺」· ASP 代码 · 共 23 行

<%if session("iamcoming")<>"" then%>

<!--#include file="security.asp" -->
<!--#include file="conn.asp" -->
<%
dim sql
dim rs
user=request("user")
pass=md5(Trim(Request.Form("pass")))
on error resume next
set rs=server.createobject("adodb.recordset")
sql="update dayi_userlogin set dayi_username='"&user&"',dayi_psw='"&pass&"'"
rs.Open sql,conn,1,1
response.write"<Script Language=Javascript>window.alert('密码修改成功');location.href='index.asp';</Script>"
set rs=nothing
%>
<%
else
 response.write "<script language=javascript>"
 response.write "alert('管理员操作超 时..........');"
 response.write "javascript:history.go(-1)"
 response.write "</script>"
end if%>