📄 user_admin.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<!--#include file="../../act_inc/cls_pageview.asp"-->
<!--#include file="../../act_inc/md5.asp"-->
<!--#include file="ACT.UM.ASP"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>act_cms_会员管理</title>
<link href="../Images/css1/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript" src="../../editor/fckeditor/fckeditor.js"></script>
<script type='text/javascript' src='../../ACT_INC/WebTime/WdatePicker.js'></script>
<style type="text/css">
<!--
.STYLE1 {font-weight: bold}
-->
</style>
</head>
<body>
<%
If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，您没有操作权限！","")
Dim ShowErr,Action,UserID,Sql,ValidDays,tmpDays,EdaysFlag,ModeID,TableName,IF_NULL,i
Action = Request("Action")
UserID = Request("UserID")
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
if ModeID=0 or ModeID="" Then ModeID=1
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td colspan="2" align="center" class="bg_tr"><strong>会员系统----用户管理</strong></td>
</tr>
<tr>
<td width="9%" align="right"><strong>用户选项：</strong></td>
<td><span class="STYLE1"><A href="?Action=UserSearch&ModeID=<%=ModeID%>">搜索用户</A>┆<A href="?ModeID=<%=ModeID%>">所有用户</A>┆<A href="?UserSearch=1&ModeID=<%=ModeID%>">被锁住的用户</A>┆<A href="?UserSearch=2&ModeID=<%=ModeID%>">待审批会员</A>┆<A href="?UserSearch=3&ModeID=<%=ModeID%>">待邮件验证</A>┆<A href="?UserSearch=4&ModeID=<%=ModeID%>">24小时内登录</A>┆<A href="?UserSearch=5&ModeID=<%=ModeID%>">24小时内注册</A></span></td>
</tr>
</table><%
TableName=ACTCMS.actexe("select ModeTable from ModeUser_Act where ModeID ="&ModeID&"")(0)
Select Case Action
Case "Update"
Call UpdateUser()
Case "DoUpdate"
Call DoUpdate()
Case "Del"
Call Del()
Case "Lock"
Call Locked()
Case "UnLock"
Call UnLocked()
Case "Move"
Call MoveUser()
Case "UserSearch"
Call UserSearch()
Case "AddMoneys"
Call AddMoneys()
Case "xf"
Call xf()
Case "Edit"
Call Edit()
Case "SaveEdit"
Call SaveEdit()
Case Else
Call Main()
End Select
sub SaveEdit()
dim UserID,UserName,RealName,Password,RPassWord,Question,Answer,Sex,Email,HomePage,QQ,MSN,GroupID,locked,DataCount,ChargeType,Point,Moneys,startdate,Edays,province
dim rsUser,sqlUser,founderr
dim OfficeTel,Address
dim IDCard,BirthDay,City,Zip
Dim SchoolAge,UserWorking,HomeTel,Mobile
Action=Trim(request("Action"))
UserID=actcms.ChkNumeric(request("UserID"))
if UserID=0 then
FoundErr=True
Call ACTCMS.Alert("参数不足！","")
exit sub
end if
Password = Trim(request("Password"))
RPassWord= Trim(request("RPassWord"))
Question = Trim(request("Question"))
Answer = Trim(request("Answer"))
Sex = Trim(Request("Sex"))
Email = Trim(request("Email"))
HomePage = Trim(request("HomePage"))
QQ = Trim(request("QQ"))
MSN = Trim(request("MSN"))
GroupID = Trim(request("GroupID"))
locked = Trim(request("locked"))
Moneys=actcms.ChkNumeric(Trim(request("Moneys")))
province= Request("prov")
city= Request("city")
UserName=Trim(request("UserName"))
RealName=Trim(request("RealName"))
Address=Trim(request("Address"))
IDCard=Trim(request("IDCard"))
BirthDay=Trim(request("BirthDay"))
Zip=Trim(Request("Zip"))
HomeTel=Trim(request("HomeTel"))
Mobile=Trim(request("Mobile"))
IF_NULL=U_M.Act_U_MX_Arr(ModeID)
If IsArray(IF_NULL) Then
For I=0 To Ubound(IF_NULL,2)
If IF_NULL(2,I)=0 And Trim(ACTCMS.S(IF_NULL(0,I)))="" Then Call ACTCMS.ALERT(IF_NULL(1,I)&"不能为空","")
Next
End If
Set rsUser=Server.CreateObject("Adodb.RecordSet")
sqlUser="select * from "&TableName&" where UserID=" & UserID
rsUser.Open sqlUser,Conn,1,3
if rsUser.bof and rsUser.eof then
FoundErr=True
Call ACTCMS.Alert("找不到指定的用户！","")
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 + -