📄 ad_user.asp
字号:
<TD width="40%"><b>用户名：</b></TD>
<TD width="60%"><%=rsUser(db_User_Name)%> <a href="ad_infoManage.asp?Field=Editor&Keyword=<%=rsUser(db_User_Name)%>">查看此用户发表的文章</a></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><B>密码(至少6位)：</B><BR>
请输入密码，区分大小写。 请不要使用任何类似 '*'、' ' 或 HTML 字符 </TD>
<TD width="60%"> <INPUT type=password maxLength=16 size=30 name=Password>
<font color="#FF0000">如果不想修改，请留空</font> </TD>
</TR>
<TR class="tdbg" >
<TD><strong>确认密码(至少6位)：</strong><br>
请再输一遍确认</TD>
<TD><INPUT name=PwdConfirm type=password id="PwdConfirm" size=30 maxLength=12>
<font color="#FF0000">如果不想修改，请留空</font> </TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>密码问题：</strong><br>
忘记密码的提示问题</TD>
<TD width="60%"> <INPUT name="Question" type=text value="<%=rsUser(db_User_Question)%>" size=30>
</TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>问题答案：</strong><BR>
忘记密码的提示问题答案，用于取回密码</TD>
<TD width="60%"> <INPUT type=text size=30 name="Answer"> <font color="#FF0000">如果不想修改，请留空</font></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>性别：</strong></TD>
<TD width="60%"> <INPUT type=radio value="1" name=sex <%if rsUser(db_User_Sex)=1 then response.write "CHECKED"%>>
男 <INPUT type=radio value="0" name=sex <%if rsUser(db_User_Sex)=0 then response.write "CHECKED"%>>
女</TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>Email地址：</strong></TD>
<TD width="60%"> <INPUT name=Email value="<%=rsUser(db_User_Email)%>" size=30 maxLength=50>
<a href="mailto:<%=rsUser(db_User_Email)%>">给此用户发一封电子邮件</a> </TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>主页：</strong></TD>
<TD width="60%"> <INPUT maxLength=100 size=30 name=homepage value="<%=rsUser(db_User_Homepage)%>"></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>QQ号码：</strong></TD>
<TD width="60%"> <INPUT name=OICQ value="<%=rsUser(db_User_QQ)%>" size=30 maxLength=20></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>MSN：</strong></TD>
<TD width="60%"> <INPUT name=msn value="<%=rsUser(db_User_Msn)%>" size=30 maxLength=50></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>用户级别：</strong></TD>
<TD width="60%"><select name="UserLevel" id="UserLevel">
<option value="3000" <%if rsUser(db_User_UserLevel)=3000 then response.write " selected"%>>等待邮件认证的用户</option>
<option value="2000" <%if rsUser(db_User_UserLevel)=2000 then response.write " selected"%>>等待管理审核的用户</option>
<option value="999" <%if rsUser(db_User_UserLevel)=999 then response.write " selected"%>>注册用户</option>
<option value="99" <%if rsUser(db_User_UserLevel)=99 then response.write " selected"%>>收费用户</option>
<option value="9" <%if rsUser(db_User_UserLevel)=9 then response.write " selected"%>>VIP用户</option>
</select></TD>
</TR>
<TR class="tdbg" >
<TD><strong>计费方式：</strong></TD>
<TD><input name="ChargeType" type="radio" value="1" <%if rsUser(db_User_ChargeType)=1 then response.write " checked"%>>
扣点数<font color="#0000FF">（推荐）</font>： 每阅读一篇收费文章，扣除相应点数。 <br>
<input type="radio" name="ChargeType" value="2" <%if rsUser(db_User_ChargeType)=2 then response.write " checked"%>>
有效期：在有效期内，用户可以任意阅读收费内容</TD>
</TR>
<TR class="tdbg" >
<TD><strong>用户点数：</strong><br>
用于阅读需要“阅读点数”文章，在阅读文章时会减去相应的点数<br>
此功能只有当计费方式为“扣点数”时才有效</TD>
<TD><input name="UserPoint" type="text" id="UserPoint" value="<%=rsUser(db_User_UserPoint)%>" size="10" maxlength="10">
点</TD>
</TR>
<TR class="tdbg" >
<TD><strong>有效期限：</strong><br>
若超过此期限，则用户不能阅读收费内容<br>
此功能只有当计费方式为“有效期限”时才有效</TD>
<TD>开始日期：
<input name="BeginDate" type="text" id="BeginDate" value="<%=FormatDateTime(rsUser(db_User_BeginDate),2)%>" size="20" maxlength="20">
<br>
有 效 期：
<input name="Valid_Num" type="text" id="Valid_Num" value="<%=rsUser(db_User_Valid_Num)%>" size="10" maxlength="10">
<select name="Valid_Unit" id="Valid_Unit">
<option value="1" <%if rsUser(db_User_Valid_Unit)=1 then response.write " selected"%>>天</option>
<option value="2" <%if rsUser(db_User_Valid_Unit)=2 then response.write " selected"%>>月</option>
<option value="3" <%if rsUser(db_User_Valid_Unit)=3 then response.write " selected"%>>年</option>
</select>
</TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>用户状态：</strong></TD>
<TD width="60%"><input type="radio" name="LockUser" value="False" <%if rsUser(db_User_LockUser)=False then response.write "checked"%>>
正常 <input type="radio" name="LockUser" value="True" <%if rsUser(db_User_LockUser)=True then response.write "checked"%>>
锁定</TD>
</TR>
<TR class="tdbg" >
<TD height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveModify">
<input name=Submit type=submit id="Submit" value="保存修改结果"> <input name="UserID" type="hidden" id="UserID" value="<%=rsUser(db_User_ID)%>"></TD>
</TR>
</TABLE>
</form>
<%
rsUser.close
set rsUser=nothing
end sub
sub AddMoney()
dim UserID
dim rsUser,sqlUser
UserID=trim(request("UserID"))
if UserID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
else
UserID=Clng(UserID)
end if
Set rsUser=Server.CreateObject("Adodb.RecordSet")
sqlUser="select * from " & db_User_Table & " where " & db_User_ID & "=" & UserID
rsUser.Open sqlUser,Conn_User,1,3
if rsUser.bof and rsUser.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的用户！</li>"
rsUser.close
set rsUser=nothing
exit sub
end if
if rsUser(db_User_UserLevel)>99 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>此用户不是收费用户或VIP用户，无需续费！</li>"
rsUser.close
set rsUser=nothing
exit sub
end if
%>
<FORM name="Form1" action="ad_User.asp" method="post">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<TR class='title'>
<TD height=22 colSpan=2 align="center"><b>用 户 续 费</b></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><b>用户名：</b></TD>
<TD width="60%"><%=rsUser(db_User_Name)%></TD>
</TR>
<TR class="tdbg" >
<TD width="40%"><strong>用户级别：</strong></TD>
<TD width="60%"><%
if rsUser(db_User_UserLevel)=99 then
response.write "收费用户"
elseif rsUser(db_User_UserLevel)=9 then
response.write "VIP用户"
end if
%></TD>
</TR>
<TR class="tdbg" >
<TD><strong>计费方式：</strong></TD>
<TD><%
if rsUser(db_User_ChargeType)=1 then
response.write "扣点数： 每阅读一篇收费文章，扣除相应点数。"
else
response.write "有效期：在有效期内，用户可以任意阅读收费内容"
end if
%>
<input name="ChargeType" type="hidden" id="ChargeType" value="<%=rsUser(db_User_ChargeType)%>">
</TD>
</TR>
<%if rsUser(db_User_ChargeType)=1 then%>
<TR class="tdbg" >
<TD><strong>目前的用户点数：</strong></TD>
<TD><%=rsUser(db_User_UserPoint)%> 点</TD>
</TR>
<TR class="tdbg" >
<TD><strong>追加点数：</strong></TD>
<TD> <input name="UserPoint" type="text" id="UserPoint" value="100" size="10" maxlength="10">
点</TD>
</TR>
<%else%>
<TR class="tdbg" >
<TD><strong>目前的有效期限信息：</strong></TD>
<TD><%
response.write "开始计算日期" & FormatDateTime(rsUser(db_User_BeginDate),2) & " 有 效 期：" & rsUser(db_User_Valid_Num)
if rsUser(db_User_Valid_Unit)=1 then
ValidDays=rsUser(db_User_Valid_Num)
response.write "天"
elseif rsUser(db_User_Valid_Unit)=2 then
ValidDays=rsUser(db_User_Valid_Num)*30
response.write "月"
elseif rsUser(db_User_Valid_Unit)=3 then
ValidDays=rsUser(db_User_Valid_Num)*365
response.write "年"
end if
response.write "<br>"
tmpDays=ValidDays-DateDiff("D",rsUser(db_User_BeginDate),now())
if tmpDays>=0 then
response.write "尚有 <font color=blue>" & tmpDays & "</font> 天到期"
else
response.write "已经过期 <font color=red>" & abs(tmpDays) & "</font> 天"
end if
%>
</TD>
</TR>
<tr class="tdbg" >
<td><strong>追加天数：</strong><br>
若目前用户尚未到期，则追加相应天数<br>
若目前用户已经过了有效期，则有效期从续费之日起重新计数。</td>
<td>
<input name="Valid_Num" type="text" id="Valid_Num" value="1" size="10" maxlength="10">
<select name="Valid_Unit" id="Valid_Unit" <%if tmpDays>0 then response.write " disabled"%>>
<option value="1" <%if rsUser(db_User_Valid_Unit)=1 then response.write " selected"%>>天</option>
<option value="2" <%if rsUser(db_User_Valid_Unit)=2 then response.write " selected"%>>月</option>
<option value="3" <%if rsUser(db_User_Valid_Unit)=3 then response.write " selected"%>>年</option>
</select>
</td>
</tr>
<%end if%>
<TR class="tdbg" >
<TD height="40" colspan="2" align="center"><input name="Action" type="hidden" id="Action" value="SaveAddMoney">
<input name=Submit type=submit id="Submit" value="保存续费结果"> <input name="UserID" type="hidden" id="UserID" value="<%=rsUser(db_User_ID)%>"></TD>
</TR>
</TABLE>
</form>
<%
rsUser.close
set rsUser=nothing
end sub
sub UpdateUser()
%>
<FORM name="Form1" action="ad_User.asp" method="post">
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<tr align="center" class="title">
<td height="22" colspan="2"><strong>更 新 用 户 数 据</strong></td>
</tr>
<tr class="tdbg">
<td colspan="2"><p>说明：<br>
1、本操作将重新计算用户的发表文章数。<br>
2、本操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。</p>
</td>
</tr>
<tr class="tdbg">
<td height="25">开始用户ID：</td>
<td height="25"><input name="BeginID" type="text" id="BeginID" value="1" size="10" maxlength="3">
用户ID，可以填写您想从哪一个ID号开始进行修复</td>
</tr>
<tr class="tdbg">
<td height="25">结束用户ID：</td>
<td height="25"><input name="EndID" type="text" id="EndID" value="1000" size="10" maxlength="3">
将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大</td>
</tr>
<tr class="tdbg">
<td height="25"> </td>
<td height="25"><input name="Submit" type="submit" id="Submit" value="更新用户数据"> <input name="Action" type="hidden" id="Action" value="DoUpdate"></td>
</tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
sub SaveAdd()
dim UserName,Password,PwdConfirm,Question,Answer,Sex,Email,Homepage,OICQ,MSN,UserLevel,LockUser,ChargeType,UserPoint,BeginDate,Valid_Num,Valid_Unit
UserName=trim(request("UserName"))
Password=trim(request("Password"))
PwdConfirm=trim(request("PwdConfirm"))
Question=trim(request("Question"))
Answer=trim(request("Answer"))
Sex=trim(Request("Sex"))
Email=trim(request("Email"))
Homepage=trim(request("Homepage"))
OICQ=trim(request("QQ"))
MSN=trim(request("MSN"))
UserLevel=trim(request("UserLevel"))
LockUser=trim(request("LockUser"))
ChargeType=trim(request("ChargeType"))
UserPoint=trim(request("UserPoint"))
BeginDate=trim(request("BeginDate"))
Valid_Num=trim(request("Valid_Num"))
Valid_Unit=trim(request("Valid_Unit"))
if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then
founderr=true
errmsg=errmsg & "<br><li>请输入用户名(不能大于14小于4)</li>"
else
if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -