user_edit.asp

大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全

<!--#include file="check_admin.asp"-->
<!--#include file="conn.asp"-->
<%
t=request("t")
userid=request("id")
'修改会员帐户信息开始
if t="edit" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from union_user where id="&userid
rs.open sql,conn,1,3
if not rs.eof then
rs("unionid")=request("uid")
rs("password")=request("pwd")
rs("name")=request("name")
rs("phone")=request("phone")
rs("bank")=request("bank")
rs("bnumber")=request("cardnum")
rs("email")=request("email")
rs("qq")=request("qq")
rs("url")=request("url")
rs.update
end if
rs.close
'修改结束
elseif t="jsedit" then
'修改会员结算信息开始
set rs=server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from moon_order where id="&userid
rs.open sql,conn,1,3
if not rs.eof then
rs("moon")=request("moon")
rs("oldmoney")=request("oldmoney")
rs("bad")=request("bad")
rs("shui")=request("shui")
rs("sxf")=request("sxf")
rs("nowmoney")=request("nowmoney")
rs("cool")=request("cool")
rs.update
end if
rs.close
response.write("<script>alert('修改成功!');javascript:top.window.close();</script>") 
response.end
'修改结束
elseif t="jiesuan" then
'添加结算信息开始
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from moon_order where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("moon")=request("moon")
rs("oldmoney")=request("oldmoney")
rs("bad")=request("bad")
rs("shui")=request("shui")
rs("sxf")=request("sxf")
rs("nowmoney")=request("nowmoney")
rs("cool")=request("cool")
rs("unionid")=request("unionid")
rs.update
rs.close
response.write("<script>alert('结算成功!');javascript:top.window.close();</script>") 
response.end
'添加结束
elseif t="del" then
'删除会员信息开始
conn.execute("delete from union_user where id="&request("id")&"")
conn.close
response.write("<script>alert('删除成功!');javascript:top.window.close();</script>") 
response.end
end if
'删除结束
set conn=nothing
%>