pass_save.asp

来自「北京商务网」· ASP 代码 · 共 36 行

<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/config.asp"-->
<!-- #include file="../inc/enpasswd.inc" -->

<script LANGUAGE="JavaScript">
function goHist(a) 
{
   history.go(a);   
}
</script>
<%
dim rsgs
dim gssql
dim pass
pass=mistake(request("pass"))
id=request("id")
%>
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select * from qyml where id="&request("id")
rs.open sql,conn,1,3
  rs("pass")=pass
     
  rs.update
  session("id")=rs("id")
  session("pass")=rs("pass")
 
  rs.close
  set rs=noting
  conn.close
  set conn=nothing  
  response.write"<SCRIPT language=JavaScript>alert('您的密码已修改完成，请登录使用！');"
  response.write "javascript:window.close();"
  response.write "</script>"
  
%>