pass_sus.asp

来自「扬州交友网 软件类别： ASP源码 / 会员交友 软件语言： 简体中文 」· ASP 代码 · 共 30 行

<%Response.Buffer=True 
IF session("admin_gbook")<>"8848_admin"  THEN
response.write"<center>NO NO NO！<a href=Admin.asp>&nbsp请先登录&nbsp</a></center>"
ELSE
%>
<!-- #include file="conn.asp" -->
<%

'---------------修改密码-------------------
dim newpass
newpass=request("password_m")
newpass=replace(newpass,"'","''")
if request("text")="修改密码" then
 sql="update users Set pass='"&newpass&"'"
%>
<script language=javascript>
<%response.write "window.alert('"&"您的新密码为："&request("password_m")&"')"%>
window.location.href="./"
</script>
<script language=javascript>
window.alert("修改成功！")
window.location.href="./"
</script>
<%end if%>

<%
conn.execute sql
conn.close
set conn=nothing %>  
<%END IF%>