user_edit_save.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/MD5.asp"-->
<%
if request.form("temp")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
%>
<%
else
password=MD5(request.form("password1"),16)
email=request.form("email")
question=request.form("question")
answer=request.form("answer")
qq=request.form("qq")



set rs=server.createobject("adodb.recordset")
sql="select * from user_info where user_id="&session("user_id")&""
rs.open sql,conn,1,3
rs("user_password")=password
rs("user_email")=email
rs("user_question")=question
rs("user_answer")=answer
rs("user_qq")=qq
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("user_id")=""
session("antry")=""
end if
%>
<meta http-equiv="refresh" content="1;URL=user_list.asp">
<LINK href="../style.css" type=text/css rel=stylesheet>
<title>修改会员成功</title>
<table width="250" border="0" align="center">

  <tr> 
    <td align="center">修改会员成功，1秒钟后自动返回！</td>
  </tr>
</table>