📄 user_edit.asp
字号:
<%Admin="UserSee"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_user.asp"-->
<!--#include file="char.inc"-->
<%
function CheckAdminEdit(TAdmin,admin)
CheckAdminEdit=false
if admin<>"" then
tempAdmin=split(admin,",")
for i = 0 to ubound(tempAdmin)
if trim(tempAdmin(i))=trim(TAdmin) then
CheckAdminEdit=true
exit for
end if
next
end if
end function
set rs=server.CreateObject("ADODB.RecordSet")
if request("type")="save" then
qm=htmlencode(request.form("qm"))
if len(qm)>250 then
JyDownMsg="错误:个性签名多于250个字符!"
end if
if request("user")="" then
JyDownMsg="错误:用户名不能为空!"
else
rs.open "select * from UserInfo where user='"&request("user")&"' and id<>"&request("id"),conn,1,1
if not rs.eof then
JyDownMsg="错误:已经有相同的用户名了!"
end if
rs.close
end if
end if
rs.open "select * from UserInfo where dj<>3 and id="&request("id"),conn,1,2
if rs.eof then
JyDownMsg="错误:没有 "&user&" 用户的资料!"
else
if request("type")="save" and JyDownMsg="" then
if request.form("pwd")<>"" then
rs("pwd")=request.form("pwd")
JyDownMsg="成功:修改资料完成,同时密码已修改!"
else
JyDownMsg="成功:修改资料完成,密码没被修改!"
end if
rs("user")=request.form("user")
rs("dj")=request.form("dj")
rs("email")=request.form("email")
rs("oicq")=request.form("oicq")
rs("homepage")=request.form("homepage")
rs("sex")=request.form("sex")
rs("face")=request.form("face")
rs("softurl")=request.form("softurl")
rs("v_amount")=request.form("v_amount")
rs("v_pstatus")=request.form("v_pstatus")
rs("v_pmode")=request.form("v_pmode")
rs("v_date")=request.form("v_date")
rs("qm")=htmlencode(qm)
rs("lock")=request.form("lock")
rs("admin")=replace(request("admin")," ","")
rs.Update
end if
user=rs("user")
dj=rs("dj")
email=rs("email")
oicq=rs("oicq")
homepage=rs("homepage")
sex=rs("sex")
face=rs("face")
softurl=rs("softurl")
v_amount=rs("v_amount")
v_pstatus=rs("v_pstatus")
v_pmode=rs("v_pmode")
v_date=rs("v_date")
d_date=rs("d_date")
v_oid=rs("v_oid")
qm=rs("qm")
lock=rs("lock")
admin=rs("admin")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style>
td{font-size:9pt;line-height:140%}
</style>
</head>
<body topmargin="1" leftmargin="1">
<form action="user_edit.asp?type=save&id=<%=request("id")%>" method="post">
<div align="center">
<center>
<%if request("type")="save" then%>
<table border="0" cellspacing="1" width="100%">
<tr>
<td width="100%"><font color="#FF0000"><%=JyDownMsg%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table border="0" cellspacing="1" width="100%" bgcolor="#555555">
<tr>
<td width="100%" bgcolor="#6A6A6A">
<font color="#FFFFFF"><b>修改用户(<a target="_blank" href="user.asp?user=<%=user%>"><font color="#FFFFFF"><%=user%></font></a>)的资料</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
用户名：<input name="user" value="<%=user%>" size="15" style="border-style: solid; border-width: 1">
<font color="#FF0000">*</font>
<font color="#FF0000"><input type="radio" value="0" name="lock"<%if lock<>"1" then%> checked<%end if%>></font>激活
<font color="#FF0000"><input type="radio" value="1" name="lock"<%if lock="1" then%> checked<%end if%>></font>锁定
<select size="1" name="dj">
<option value="0"<%if dj="0" then%> selected<%end if%>>①:普通会员</option>
<option value="1"<%if dj="1" then%> selected<%end if%>>②:高级会员</option>
<option value="2"<%if dj="2" then%> selected<%end if%>>③:高级会员</option>
</select></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
登陆密码：<input name="pwd" size="15" style="border-style: solid; border-width: 1" type="password">
<font color="#808080">不修改请留空</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<font color=ff0000><b><h3>发表文章：</b></font><input type="checkbox" name="admin" value="InfoAdd"<%if CheckAdminEdit("InfoAdd",admin) then Response.Write(" checked")%>>开/关 </h3></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<font color=ff0000><b>收费会员开：</b></font><input type="checkbox" name="admin" value="DownAdd"<%if CheckAdminEdit("DownAdd",admin) then Response.Write(" checked")%>><%if CheckAdminEdit("DownAdd",admin) then Response.Write("开")%>/关 交易号: <%=v_oid%><br><br>
金额:<input name="v_amount" size="11" style="border: 1 solid #808080" value="<%=v_amount%>">
成功:<input name="v_pstatus" size="11" style="border: 1 solid #808080" value="<%=v_pstatus%>">
银行:<input name="v_pmode" size="11" style="border: 1 solid #808080" value="<%=v_pmode%>">
开始:<input name="v_date" size="20" style="border: 1 solid #808080" value="<%=v_date%>">
到期:<input name="d_date" size="20" style="border: 1 solid #808080" value="<%=v_date%>">
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4">
<font color="#000080"><b>修改其它资料</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#F7F7F7" height="24"> 真实姓名：<b><%=face%></b></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF">
性别：<select size="1" name="sex">
<option selected value="男">男</option>
<option<%if sex="女" then%> selected<%end if%> value="女">女</option>
</select></td>
</tr>
<tr>
<td width="100%" bgcolor="#F7F7F7" height="24"> 联系电话：<input name="homepage" size="15" style="border: 1 solid #808080" value="<%=homepage%>""></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="24"> 电子邮箱：<input name="email" size="32" style="border: 1 solid #808080" value="<%=email%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#F7F7F7" height="24"> 身份证号：<input name="softurl" size="32" style="border: 1 solid #808080" value="<%=softurl%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#F7F7F7" height="24"> 邮政编码：<input name="oicq" size="15" style="border: 1 solid #808080" value="<%=oicq%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="90"> 详细地址：<textarea rows="3" name="qm" cols="59"><%=qm%></textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#DFDFDF">
<p align="center">
<input name="b1" type="submit" value="确认修改">
<input name="b2" type="reset" value="全部还原"></p>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -