user_xiugai2.asp

来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 49 行

<!--#include file="conn.asp"-->
<!--#include file="pass.asp"-->
<%
if request("id")<>"" then
id=request.QueryString("id")
conn.execute ("delete from puser where id="&id)

Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！删除成功"");"
Response.Write"window.location='user_xiugai.asp'"
Response.Write"</script>"

else

xiugai=request("xiugai")
uid=session("uid")
pwd=REQUEST("pwd")
uname=REQUEST("uname")
xb=REQUEST("xb")
email=REQUEST("email")
tishi=REQUEST("tishi")
tsda=REQUEST("tsda")
tel=request("tel")
sfz=request("sfz")
VIP=request("VIP")

set rs=server.CreateObject("adodb.recordset")
sql="select * from puser where id="&xiugai
rs.open sql,conn,1,3

rs("pwd")=pwd
rs("uname")=uname
rs("xb")=xb
rs("email")=email
rs("tishi")=tishi
rs("tsda")=tsda
rs("tel")=tel
rs("sfz")=sfz
rs("VIP")=VIP
rs.update

Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！修改成功"");"
Response.Write"window.location='user_xiugai.asp'"
Response.Write"</script>"

end if
%>