📄 admin_user.asp
字号:
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>MSN账号：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="MSN" type=text size=30 Value="<%=rsUser("MSN")%>"></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>UC号码：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="UC" type=text size=30 Value="<%=rsUser("UC")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>出生日期：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="BirthDay" type=text size=30 Value="<%=rsUser("BirthDay")%>"></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>身份证号：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="IDCard" type=text size=30 Value="<%=rsUser("IDCard")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>住宅电话：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="HomeTel" type=text size=30 Value="<%=rsUser("HomeTel")%>"></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>手机号码：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="Mobile" type=text size=30 Value="<%=rsUser("Mobile")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>办公电话：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="OfficeTel" type=text size=30 Value="<%=rsUser("OfficeTel")%>"></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>邮政编码：</strong></TD>
<TD bgcolor="#FFFFFF"><Input Name="Zip" type=text size=30 Value="<%=rsUser("Zip")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>所在省市：</strong></TD>
<TD ColSpan=3 bgcolor="#FFFFFF">
<select name="prov" onchange="selectcityarea('prov','city','myform');" style="width:110">
<%if rsUser("Province")<>"" then%>
<option value="<%=rsUser("Province")%>" selected="selected"><%=rsUser("Province")%></option>
<%else%>
<option value="" selected="selected">==请选择省份==</option>
<%end if%>
</select>
<select name="city" style="width:110">
<%if rsUser("city")<>"" then%>
<option value="<%=rsUser("city")%>" selected="selected"><%=rsUser("city")%></option>
<%else%>
<option value="" selected="selected">==请选择城市==</option>
<%end if%>
</select>
<!--省份城市的调用开始---->
<script language="javascript" src="<%=KSCMS.GetDomain%>Inc/Province.js"></script>
<!----省份城市调用结束----> </TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>联系地址：</strong></TD>
<TD ColSpan=3 bgcolor="#FFFFFF"><Input Name="Address" type=text size=88 Value="<%=rsUser("Address")%>"></TD>
</TR>
<TR >
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>计费方式：</strong></TD>
<TD Colspan=3 bgcolor="#FFFFFF"><input name="ChargeType" type="radio" value="1" <%if ChargeType=1 then Response.Write " checked"%>>
扣点数<font color="#0066CC">（推荐）</font><br>
<input type="radio" name="ChargeType" value="2" <%if ChargeType=2 then Response.Write " checked"%>>
有效期：在有效期内，用户可以任意阅读收费内容<br />
<input type="radio" name="ChargeType" value="3" <%if ChargeType=3 then Response.Write " checked"%> />
无限期</TD>
</TR>
<TR >
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>有效期限：</strong></TD>
<TD height="50" Colspan=3 bgcolor="#FFFFFF">开始日期：
<input name="BeginDate" type="text" id="BeginDate" readonly value="<%=FormatDateTime(rsUser("BeginDate"),2)%>" size="20" maxlength="20"> 有 效 期：
<input name="EDays" readonly type="text" id="EDays" value="<%=rsUser("EDays")%>" size="10" maxlength="10">
天
<br>
若超过此期限，则用户不能阅读收费内容此功能只有当计费方式为“有效期限”时才有效 </TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户点数：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input readonly Name="Point" type=text size=30 Value="<%=rsUser("Point")%>"></TD>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户金钱：</strong></TD>
<TD bgcolor="#FFFFFF"> <Input Name="Money" type=text size=30 Value="<%=rsUser("Money")%>"></TD>
</TR>
<TR>
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>个人签名：</strong></TD>
<TD ColSpan=3 bgcolor="#FFFFFF"><textarea Name="Sign" id="Sign" cols="80" rows="5"><%=rsUser("Sign")%></textarea><br> </TD>
</TR>
<TR >
<TD width="80" height="25" align="right" bgcolor="F4F4EA"><strong>用户状态：</strong></TD>
<TD ColSpan=3 bgcolor="#FFFFFF"><input type="radio" name="locked" value="0" <%if rsUser("locked")=0 then Response.Write "checked"%>>
正常 <input type="radio" name="locked" value="1" <%if rsUser("locked")=1 then Response.Write "checked"%>>
锁定</TD>
</TR>
<TR >
<TD height="30" colspan="4" align="center" bgcolor="#FFFFFF"><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("UserID")%>"></TD>
</TR>
</form>
</TABLE>
<%
rsUser.close:set rsUser=Nothing
end sub
sub AddMoney()
dim rsUser,sqlUser
UserID=KSCMS.ChkClng(UserID)
if UserID=0 then Admin_ShowErr("<br><li>参数不足！</li>")
Set rsUser=Conn.Execute("select * from KS_User where UserID=" & UserID)
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("ChargeType")=3 Then
rsUser.Close:Set rsUser=Nothing
Call KSCMS.Alert("无限期用户无需续费操作!",Request.ServerVariables("HTTP_REFERER"))
Exit Sub
End if
%>
<div style="margin-top:10px;text-align:center"><b>用 户 续 费</b></div>
<table width="80%" style="margin-top:10px" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="border">
<FORM name="myform" action="Admin_User.asp?ComeUrl=<%=Request.ServerVariables("HTTP_REFERER")%>" method="post">
<TR >
<TD width="25%" height="28" align="right" bgcolor="F4F4EA"><b>用户名：</b></TD>
<TD width="75%" bgcolor="#FFFFFF"><%=rsUser("UserName")%></TD>
</TR>
<TR >
<TD width="25%" height="28" align="right" bgcolor="F4F4EA"><strong>用户级别：</strong></TD>
<TD width="75%" bgcolor="#FFFFFF"><%=KSCMS.GetUserGroupName(rsUser("GroupID"))%></TD>
</TR>
<TR >
<TD height="28" align="right" bgcolor="F4F4EA"><strong>计费方式：</strong></TD>
<TD bgcolor="#FFFFFF"><%
if rsUser("ChargeType")=1 then
Response.Write "扣点数"
else
Response.Write "有效期"
end if
%>
<input name="ChargeType" type="hidden" id="ChargeType" value="<%=rsUser("ChargeType")%>">
</TD>
</TR>
<%if rsUser("ChargeType")=1 then%>
<TR >
<TD height="28" align="right" bgcolor="F4F4EA"><strong>目前的用户点数：</strong></TD>
<TD bgcolor="#FFFFFF"><%=rsUser("Point")%> 点</TD>
</TR>
<TR >
<TD height="28" align="right" bgcolor="F4F4EA"><strong>追加点数：</strong></TD>
<TD bgcolor="#FFFFFF"> <input name="Point" type="text" id="Point" value="100" size="10" maxlength="10">
点</TD>
</TR>
<%else%>
<TR >
<TD height="28" align="right" bgcolor="F4F4EA"><strong>目前的有效期限信息：</strong></TD>
<TD bgcolor="#FFFFFF">
<%
Response.Write "开始计算日期" & FormatDateTime(rsUser("BeginDate"),2) & " 有 效 期：" & rsUser("Edays")
Response.Write "天"
Response.Write "<br>"
tmpDays=ValidDays-DateDiff("D",rsUser("BeginDate"),now())
if tmpDays>=0 then
Response.Write "尚有 <font color=blue>" & tmpDays & "</font> 天到期"
else
Response.Write "已经过期 <font color=#ff6600>" & abs(tmpDays) & "</font> 天"
end if
%>
</TD>
</TR>
<tr >
<td height="60" align="right" bgcolor="F4F4EA"><strong>追加天数：</strong><br></td>
<td bgcolor="#FFFFFF">
<input name="Edays" type="text" id="Edays" value="30" size="10" maxlength="10">
天<br />
若目前用户尚未到期，则追加相应天数<br />
若目前用户已经过了有效期，则有效期从续费之日起重新计数。</td>
</tr>
<%end if%>
<TR >
<TD height="28" align="right" bgcolor="F4F4EA"><strong>请输入原因：</strong></TD>
<TD bgcolor="#FFFFFF"> <input name="Reason" type="text" id="Reason" value="续费操作" size="55"></TD>
</TR>
<TR >
<TD height="40" colspan="2" align="center" bgcolor="#FFFFFF"><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("UserID")%>"></TD>
</TR>
</form>
</TABLE>
<%
rsUser.close : set rsUser=Nothing
end sub
sub UpdateUser()
dim StrBeGinID,StrEndID
if Trim(request("EndID")) <>"" then
StrBeGinID=Clng(Trim(request("EndID")))
StrEndID=StrBeGinID+(Clng(Trim(request("EndID")))-Clng(Trim(request("BeginID"))))
else
StrBeGinID=1
StrEndID=1000
end if
%>
<div style="margin-top:10px;text-align:center;font-weight:bold">更 新 用 户 数 据</div>
<div style="margin-left:100px">
<p>说明：<br>
1、本操作将重新计算用户的发表文章数、图片数、下载数及动漫数等。<br>
2、本操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。</p>
</div>
<table width="80%" style="margin-top:10px;" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="border">
<FORM name="myform" action="Admin_User.asp" method="post">
<tr>
<td height="28" bgcolor="F4F4EA">开始用户ID：</td>
<td height="25" bgcolor="#FFFFFF"><input name="BeginID" type="text" id="BeginID" value="<%=StrBeGinID%>" size="10" maxlength="8">
用户ID，可以填写您想从哪一个ID号开始进行修复</td>
</tr>
<tr>
<td height="28" bgcolor="F4F4EA">结束用户ID：</td>
<td height="25" bgcolor="#FFFFFF"><input name="EndID" type="text" id="EndID" value="<%=StrEndID%>" size="10" maxlength="8">
将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大</td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#FFFFFF"><input name="Submit" type="submit" id="Submit" value=" 更新用户数据 " > <input name="Action" type="hidden" id="Action" value="DoUpdate"></td>
</tr>
</form>
</table>
<%
end sub
sub SaveModify()
dim UserID,UserName,RealName,Password,PwdConfirm,Question,Answer,Sex,Email,UserHome,QQ,MSN,GroupID,locked,DataCount,ChargeType,Point,Money,BeginDate,Edays,province
dim rsUser,sqlUser
dim OfficeTel,Address,Sign
dim IDCard,BirthDay,City,Zip,ICQ,UC
Dim SchoolAge,UserWorking,HomeTel,Mobile
Action=Trim(request("Action"))
UserID=KSCMS.ChkClng(request("UserID"))
if UserID=0 then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>参数不足！</li>"
exit sub
end if
Password = Trim(request("Password"))
PwdConfirm= Trim(request("PwdConfirm"))
Question = Trim(request("Question"))
Answer = Trim(request("Answer"))
Sex = Trim(Request("Sex"))
Email = Trim(request("Email"))
UserHome = Trim(request("UserHome"))
QQ = Trim(request("QQ"))
MSN = Trim(request("MSN"))
ICQ =KSCMS.G("ICQ")
UC =KSCMS.G("UC")
GroupID = Trim(request("GroupID"))
locked = Trim(request("locked"))
ChargeType=Trim(request("ChargeType"))
Point=KSCMS.ChkClng(Trim(request("Point")))
Money=KSCMS.ChkClng(Trim(request("Money")))
BeginDate=Trim(request("BeginDate"))
Edays= KSCMS.ChkClng(Trim(request("Edays")))
province= KSCMS.G("prov")
city= KSCMS.G("city")
UserName=Trim(request("UserName"))
RealName=Trim(request("RealName"))
OfficeTel=Trim(request("OfficeTel"))
Address=Trim(request("Address"))
Sign=Trim(request("Sign"))
IDCard=Trim(request("IDCard"))
BirthDay=Trim(request("BirthDay"))
Zip=Trim(Request("Zip"))
HomeTel=Trim(request("HomeTel"))
Mobile=Trim(request("Mobile"))
Set rsUser=Server.CreateObject("Adodb.RecordSet")
sqlUser="select * from KS_User where UserID=" & UserID
rsUser.Open sqlUser,Conn,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 Password<>"" then
if Instr(Password,"=")>0 or Instr(Password,"%")>0 or Instr(Password,chr(32))>0 or Instr(Password,"?")>0 or Instr(Password,"&")>0 or Instr(Password,";")>0 or Instr(Password,",")>0 or Instr(Password,"'")>0 or Instr(Password,",")>0 or Instr(Password,chr(34))>0 or Instr(Password,chr(9))>0 or Instr(Password,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -