?? admin_user.asp
字號:
<TR class="tdbg" >
<TD width="40%"><b>用戶名：</b></TD>
<TD width="60%"><%=rsUser(db_User_Name)%> <a href="Admin_ArticleManage.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>OICQ號碼：</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="Admin_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="Admin_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("OICQ"))
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 + -