📄 admin_user.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file = admin_chk.asp -->
<!--#include file="../Include/cls_pageview.asp"-->
<!--#include file="md5.asp"-->
<%
If Not ChkAdmin("RegUser") Then
	Call ArtErr("","")
End If
%><html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员管理</title>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type=text/javascript></script>
</head>
<body>
<%

	Dim ShowErr,Action,UserID,Sql,ValidDays,tmpDays,EdaysFlag,ModeID,TableName,IF_NULL,i
	Action = Request("Action")
	UserID = Request("UserID")
	

%>
<table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder"    align=center> 
  <tr>
    <th colspan="2" align="center"height="25" ><strong>会员系统----用户管理</strong></th>
  </tr>
  <tr>
	<td width=12% height=30 class=forumRow>&nbsp;<strong>管理导航：</strong></td>
    <td width=88% height=30 class="forumRow"><A href="?Action=AddUser">添加用户</A> | <A href="admin_user.asp">用户列表</A> | <A href="?Action=UserSearch">搜索用户</A> | <A href="Admin_User.asp">所有用户</A> | <A href="?UserSearch=1">被锁住的用户</A> | <A href="?UserSearch=2">待审批会员</A> | <A href="?UserSearch=3">待邮件验证</A> | <A href="?UserSearch=4">24小时内登录</A> | <A href="?UserSearch=5">24小时内注册</A></td>
  </tr>
</table><% 
	TableName="Art_User"
	Select Case Action
	        Case "AddUser"
				Call AddUser()
				Call AdminPageEnd()
		    Case "SaveAdd"
			    call SaveAdd()
			Case "Update"
				Call UpdateUser()
				Call AdminPageEnd()
			Case "DoUpdate"
				Call DoUpdate()
			Case "Del"
				Call Del()
			Case "Lock"
				Call Locked()
			Case "UnLock"
				Call UnLocked()
			Case "Move"
				Call MoveUser()
			Case "UserSearch"
				Call UserSearch()
				Call AdminPageEnd()
			Case "AddMoneys"
				Call AddMoneys()
				Call AdminPageEnd()
			Case "xf"
				Call xf()
			Case "Edit"
				Call Edit()
				Call AdminPageEnd()
			Case "SaveEdit"
				Call SaveEdit()
			Case Else
				Call Main()
				Call AdminPageEnd()
	End Select
		
	

	sub SaveEdit()
			dim UserID,UserName,RealName,Password,RPassWord,Question,Answer,GroupID,locked,DataCount,ChargeType,Point,Moneys,startdate,Edays
			dim rsUser,sqlUser,founderr
			dim OfficeTel,HomeTel,Address,Sign,Sex,Email,HomePage,province,City
			dim IDCard,BirthDay,Zip,QQ,MSN,ICQ,UC,Mobile
			
			Action=Trim(request("Action"))
			UserID=ChkNumeric(request("UserID"))
			if UserID=0 then
				FoundErr=True
				Call ArtErr("<li>参数不足！</li>","1")
				exit sub
			end if
			UserName=Trim(request("UserName"))
			Password  = Trim(request("Password"))
			RPassWord= Trim(request("RPassWord"))
			Question  = Trim(request("Question"))
			Answer    = Trim(request("Answer"))
			GroupID   = Trim(request("GroupID"))
			locked    = Trim(request("locked"))
			Moneys=ChkNumeric(Trim(request("Moneys")))
			
			Sex       = Trim(Request("Sex"))
			Email     = Trim(request("Email"))
			HomePage  = Trim(request("HomePage"))
			QQ        = Trim(request("QQ"))
			MSN       = Trim(request("MSN"))
			ICQ       =G("ICQ")
			UC        =G("UC")
			province= Request("prov")
			city=     Request("city")
			RealName=Trim(request("RealName"))
			OfficeTel=Trim(request("OfficeTel"))
			Sign=Trim(request("Sign"))
			Address=Trim(request("Address"))
			IDCard=Trim(request("IDCard"))
			BirthDay=Trim(request("BirthDay"))
			Zip=Trim(Request("Zip"))
			HomeTel=Trim(request("HomeTel"))
			Mobile=Trim(request("Mobile"))
			Fax=Trim(request("Fax"))
			
			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 ArtErr("<li>找不到指定的用户！</li>","1")
				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 + -