edituser.asp
来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 149 行
ASP
149 行
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
%>
<%
if session("admin_rank")<>1 and session("admin_rank")<>2 then
response.write("<script>alert('您无权查看本页，SORRY！');window.location=('login.asp')</script>")
response.end
end if
%>
<body style="background-color: #F0FBF1">
<%
if request("action")="save" then
sql="select * from [user] where user_id="&int(request("user_id"))
rs.open sql,conn,3,3
rs("user_name")=trim(request("user_name"))
rs("user_mail")=trim(request("user_mail"))
rs("user_adds")=trim(request("user_adds"))
rs("user_tel")=trim(request("user_tel"))
rs("user_postcode")=trim(request("user_postcode"))
rs("user_namec")=trim(request("user_namec"))
rs("user_vip")=trim(request("user_vip"))
if request("user_cz")="是" then
rs("user_money")=csng(rs("user_money"))+csng(trim(request("user_czvalue")))
set rs1=server.createobject("adodb.recordset")
sql1="select * from onlinepay"
rs1.open sql1,conn,3,3
rs1.addnew
rs1("sub_username")=trim(request("user_name"))
rs1("sub_usernamec")=trim(request("user_namec"))
rs1("sub_usermail")=trim(request("user_mail"))
rs1("sub_usertel")=trim(request("user_tel"))
rs1("sub_getbank")="管理员充值"
rs1("sub_totalcash")=trim(request("user_czvalue"))
rs1("sub_payok")=true
rs1("sub_date")=now()
rs1.update
rs1.close:set rs1=nothing
end if
if request("macaddress")="0" then
rs("user_jy")=""
end if
rs.update
rs.close
response.write "<script language=javascript>alert('修改成功！');</script>"
end if
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body bgcolor="#E8F4FF">
<form method="POST" action="edituser.asp?action=save">
<div align="center"><input type="hidden" name="user_id" value="<%=int(request("user_id"))%>">
<table border="1" width="72%" cellspacing="0" cellpadding="0" id="table1" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="388">
<tr>
<td align="right" colspan="2" height="39">
<p align="center">修 改 会 员 资 料</td>
</tr>
<tr><% sql="select * from [user] where user_id="&int(request("user_id"))
rs.open sql,conn,3,3%>
<td width="34%" align="right" style="padding: 5px">会员名：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_name" size="24" value="<%=rs("user_name")%>"></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">邮 箱：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_mail" size="24" value="<%=rs("user_mail")%>"></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">地 址：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_adds" size="47" value="<%=rs("user_adds")%>"></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">电 话：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_tel" size="24" value="<%=rs("user_tel")%>"></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">邮政编码：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_postcode" size="24" value="<%=rs("user_postcode")%>"></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">真实姓名：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_namec" size="24" value="<%=rs("user_namec")%>"></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">当前帐上余额：</td>
<td width="64%" style="padding: 5px"><%=rs("user_money")%></td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">充值：</td>
<td width="64%" style="padding: 5px">
<input type="text" name="user_czvalue" size="11"> 是否充值：<select name="user_cz" size="1">
<option value="是">是</option>
<option value="否" selected>否</option>
</select> </td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">会员级别：</td>
<td width="64%" style="padding: 5px"><select name="user_vip" size="1">
<%if rs("user_vip")="普通会员" then%>
<option value="普通会员" selected>普通会员</option>
<%else%>
<option value="普通会员">普通会员</option>
<%end if%>
<%if rs("user_vip")="VIP会员" then%>
<option value="VIP会员" selected>VIP会员</option>
<%else%>
<option value="VIP会员">VIP会员</option>
<%end if%>
<%if rs("user_vip")="经销商会员" then%>
<option value="经销商会员" selected>经销商会员</option>
<%else%>
<option value="经销商会员">经销商会员</option>
<%end if%>
</select> </td>
</tr>
<tr>
<td width="34%" align="right" style="padding: 5px">最后登陆IP：</td>
<td width="64%" style="padding: 5px"><%=rs("user_lastip")%> </td>
</tr>
<tr>
<td align="right" colspan="2">
<p align="center"><input type="submit" value="修改" name="b1"></td>
</tr>
</table>
</div>
<p align="center"> </p>
</form>
<%
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?