editsave.asp

三鸟个人网站源码。

<title>修改资料</title>
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%
dim d_id,d_pass,d_pass2,d_question,d_answer,d_mail,d_name,d_tel,d_tex,d_oicq,d_grade,d_money
d_id=request("d_id")
d_pass=trim(request("d_pass"))
d_pass2=trim(request("d_pass2"))
d_question=request("d_question")
d_answer=request("d_answer")
d_mail=request("d_mail")
d_name=request("d_name")
d_tel=request("d_tel")
d_tex=request("d_tex")
d_oicq=request("d_oicq")
d_grade=request("d_grade")
d_money=request("d_money")

Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from duser where d_id="&request("d_id")
rs.open sql,conn,1,3

   rs("d_pass")=d_pass
   rs("d_pass2")=d_pass2
   rs("d_question")=d_question
   rs("d_answer")=d_answer
   rs("d_mail")=d_mail
   rs("d_name")=d_name
   rs("d_tel")=d_tel
   rs("d_tex")=d_tex
   rs("d_oicq")=d_oicq
   rs("d_grade")=d_grade
   rs("d_money")=d_money

rs.Update
rs.Close
set rs=nothing
conn.Close
set conn=nothing
   Response.Write"修改成功"
   Response.write"<a href=reg.asp>返回</a>"
   %>