⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_user.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/MD5.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>网站会员管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
<script language="javascript" src="../Js/Ajax.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
   If EL_Admin.CheckAdminPurview(15, 3) = False Then
      EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
   End If
End If


Dim CurrentPath, GroupID, Search_Keywords, Search_Field
Dim ArrUserSex(2)
ArrUserSex(0) = EL_Common.Lang("User.Sex0", "男")
ArrUserSex(1) = EL_Common.Lang("User.Sex1", "女")
ArrUserSex(2) = EL_Common.Lang("User.Sex2", "保密")

GroupID = EL_Common.ELRequest("GroupID", 2)
Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))

CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>网站会员管理</a> "
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong>网站会员管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_User.asp">会员管理首页</a> | <a href="Admin_User.asp?Action=Batch">批量会员设置</a> | <a href="Admin_User.asp?Action=AwardLog">会员奖惩记录</a> | <a href="Admin_User.asp?Action=ExchangeLog">会员积分兑换记录</a></td>
  </tr>
  <tr>
    <td class="item_25">| <a href="Admin_User.asp?SearchType=1">24小时内登陆</a> | <a href="Admin_User.asp?SearchType=2">24小时内注册</a> | <a href="Admin_User.asp?SearchType=6"><%=PointItemName%>TOP100的会员</a> | <a href="Admin_User.asp?SearchType=7"><%=ExpItemName%>TOP100的会员</a> |  <a href="Admin_User.asp?SearchType=4">发帖TOP100的会员</a> | <a href="Admin_User.asp?SearchType=5">发贴END100的会员</a> |</td>
  </tr>
  <tr>
    <td class="item_25">  | <a href="Admin_User.asp?SearchType=11">论坛版主</a> | <a href="Admin_User.asp?SearchType=3">被锁定的会员</a> | <a href="Admin_User.asp?SearchType=8">一个月内没登陆过的会员</a> | <a href="Admin_User.asp?SearchType=9">三个月内没登陆过的会员</a> | <a href="Admin_User.asp?SearchType=10">半年内没登陆过的会员</a> |</td>
  </tr>
</table>
<br>
<%
Select Case Action
   Case "":                Call ManageUser()
   Case "Delete":          Call SetUserAttrib(0)
   Case "SetLocked":       Call SetUserAttrib(1)
   Case "SetLockFalse":    Call SetUserAttrib(2)
   Case "SetLockTrue":     Call SetUserAttrib(3)
   Case "AdminPassed":     Call SetUserAttrib(5)
   Case "Move":            Call SetUserAttrib(4)
   Case "Show":            Call ShowUser(2)
   Case "Show0":           Call ShowUser(0)
   Case "Show1":           Call ShowUser(1)
   Case "Modify":          Call ModifyUser()
   Case "SaveModify":      Call SaveModifyUser()
   Case "Award":           Call Award()
   Case "SaveAward":       Call SaveAward()
   Case "AwardLog":        Call AwardLog()
   Case "DeleteAwardLog":  Call DeleteAwardLog()
   Case "Batch":           Call BatchSetup()
   Case "SaveBatch":       Call SaveBatch()
   Case "Update":          Call UpdateUserInfo()
   Case "ExchangeLog":     Call ExchangeLog()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveBatch()
   On Error Resume Next
   Dim BatchCmd
   Dim SetType, ArrSetItems, ArrUserName, ArrGroupID
   Dim Points, Exps, EnablePost, Locked
   Dim ArrDiscountOfBook, DiscountOfHotel, DiscountOfFlight, DiscountOfProduct, DiscountOfSight, DiscountOfCar
   
   SetType = EL_Common.ELRequest("SetType", 2)
   ArrSetItems = EL_Common.ELRequest("SetItems", 1)
   ArrUserName = EL_Common.ELRequest("ArrUserName", 3)
   ArrGroupID = EL_Common.ELRequest("ArrGroupID", 1)
   Points = EL_Common.ELRequest("Points", 2)
   Exps = EL_Common.ELRequest("Exps", 2)
   EnablePost = EL_Common.ELRequest("EnablePost", 2)
   Locked = EL_Common.ELRequest("Locked", 2)
   
   DiscountOfHotel = EL_Common.ELRequest("DiscountOfHotel", 2)   
   DiscountOfFlight = EL_Common.ELRequest("DiscountOfFlight", 2)   
   DiscountOfProduct = EL_Common.ELRequest("DiscountOfProduct", 2)   
   DiscountOfSight = EL_Common.ELRequest("DiscountOfSight", 2)   
   DiscountOfCar = EL_Common.ELRequest("DiscountOfCar", 2)   
   ArrDiscountOfBook = DiscountOfHotel &","& DiscountOfFlight &","& DiscountOfProduct &","& DiscountOfSight &","& DiscountOfCar
   
   ArrUserName = Replace(ArrUserName, " ", "")
   
   Call EL_Common.InitCommand(BatchCmd, "EL_SP_UserBatchSetup")
   With BatchCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@SetType", 3, 1, 4, SetType)
	  .Parameters.Append .CreateParameter("@ArrSetItems", 200, 1, 50, ArrSetItems)
	  .Parameters.Append .CreateParameter("@ArrUserName", 200, 1, 4000, ArrUserName)
	  .Parameters.Append .CreateParameter("@ArrGroupID", 200, 1, 500, ArrGroupID)
	  .Parameters.Append .CreateParameter("@Points", 3, 1, 4, Points)
	  .Parameters.Append .CreateParameter("@Exps", 3, 1, 4, Exps)
	  .Parameters.Append .CreateParameter("@EnablePost", 11, 1, 4, EnablePost)
	  .Parameters.Append .CreateParameter("@Locked", 11, 1, 4, Locked)
	  .Parameters.Append .CreateParameter("@ArrDiscountOfBook", 200, 1, 50, ArrDiscountOfBook)
	  .Execute()
   End With
   Select Case BatchCmd(0)
      Case 40:
	     EL_Common.ShowErrorMsg("请至少选择一个设置项目")
		 Set BatchCmd = Nothing
	  Case 41:
	     EL_Common.ShowErrorMsg("请指定会员名")
		 Set BatchCmd = Nothing
	  Case 42:
	     EL_Common.ShowErrorMsg("请指定会员组")
		 Set BatchCmd = Nothing
   End Select   
   Set BatchCmd = Nothing
   Call EL_Common.InsertLog(1, ComeURL, "批量会员设置", EL_Admin.AdminName)
   EL_Common.ShowSuccessMsg("批量会员设置成功")
   EL_Common.ShowScriptError()
End Sub

Sub DeleteAwardLog()
   On Error Resume Next
   Dim AwardCmd
   Dim AwardID, ArrAwardID
   
   AwardID = EL_Common.ELRequest("AwardID", 2)
   ArrAwardID = EL_Common.ELRequest("CheckObject", 1)
   
   ArrAwardID = EL_Common.Join2String(ArrAwardID, AwardID, ",")
   
   Call EL_Common.InitCommand(AwardCmd, "EL_SP_DeleteAwardLog")
   With AwardCmd
      .Parameters.Append .CreateParameter("@AwardID", 200, 1, 500, ArrAwardID)
	  .Execute()
   End With
   Set AwardCmd = Nothing
   Call EL_Common.InsertLog(1, ComeURL, "删除奖惩记录", EL_Admin.AdminName)   
   EL_Common.ShowScriptError()
   Response.Redirect ComeURL
End Sub

Sub SaveAward()
   On Error Resume Next
   Dim AwardCmd
   Dim UserID, Num, AwardType, Remark, SendMessage, MsgSender, MsgTitle, MsgContent
   
   UserID = EL_Common.ELRequest("UserID", 2)
   Num = EL_Common.ELRequest("AwardNum", 2)
   AwardType = EL_Common.ELRequest("AwardType", 2)
   Remark = EL_Common.ELRequest("Remark", 1)
   SendMessage = EL_Common.ELRequest("SendMessage", 2)
   MsgSender = EL_Common.ELRequest("MsgSender", 1)
   MsgTitle = EL_Common.ELRequest("MsgTitle", 1)
   MsgContent = EL_Common.ELRequest("MsgContent", 1)
   
   Call EL_Common.InitCommand(AwardCmd, "EL_SP_AwardUser")
   With AwardCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@AwardType", 3, 1, 4, AwardType)
	  .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, UserID)
	  .Parameters.Append .CreateParameter("@Num", 3, 1, 4, Num)
	  .Parameters.Append .CreateParameter("@Editor", 200, 1, 50, EL_Admin.AdminName)
	  .Parameters.Append .CreateParameter("@Remark", 200, 1, 500, Remark)
	  .Parameters.Append .CreateParameter("@SendMessage", 11, 1, 4, SendMessage)
	  .Parameters.Append .CreateParameter("@MsgSender", 200, 1, 50, MsgSender)
	  .Parameters.Append .CreateParameter("@MsgTitle", 200, 1, 255, MsgTitle)
	  .Parameters.Append .CreateParameter("@MsgContent", 203, 1, EL_Common.LenParameter(MsgContent), MsgContent)
	  .Execute()
   End With
   If AwardCmd(0) = 40 Then
      Set AwardCmd = Nothing
	  EL_Common.ShowErrorMsg("指定会员不存在")
	  Exit Sub
   End If
   Set AwardCmd = Nothing
   If SendMessage = 1 Then
      EL_Common.ShowSuccessMsg("会员奖惩操作成功，奖惩数额：<span class=bluetext>"& Num &"</span><br><br>已成功发送短信通知")
   Else
      EL_Common.ShowSuccessMsg("会员奖惩操作成功，奖惩数额：<span class=bluetext>"& Num &"</span>")
   End If
   Call EL_Common.InsertLog(1, ComeURL, "会员奖惩操作", EL_Admin.AdminName)
   EL_Common.ShowScriptError()
End Sub

Sub SaveModifyUser()
   Dim UserCmd
   Dim UserID, TrueName, Password, PasswordConfirm, GroupID, Sex, Birthday, IDCard, Mobile, Phone, Fax
   Dim QQ, ICQ, MSN, Email, Address, ZipCode, Marriage, Job, JobTitle, Income, CompanyName, Sign
   Dim EnablePost, IsBoardManager, ArrManageBoardID, BoardSuperManager, Locked
   Dim FaceSize, FaceType, DefineFace, SelectFace, Userface
   Dim ArrDiscountOfBook, DiscountOfHotel, DiscountOfFlight, DiscountOfProduct, DiscountOfSight, DiscountOfCar
   
   UserID = EL_Common.ELRequest("UserID", 2)
   TrueName = EL_Common.ELRequest("TrueName", 1)
   Password = EL_Common.ELRequest("Password", 1)
   PasswordConfirm = EL_Common.ELRequest("PasswordConfirm", 1)
   GroupID = EL_Common.ELRequest("GroupID", 2)
   FaceSize = EL_Common.ELRequest("FaceSize", 1)
   FaceType = EL_Common.ELRequest("FaceType", 2)
   DefineFace = EL_Common.ELRequest("DefineFace", 1)
   SelectFace = EL_Common.ELRequest("SelectFace", 1)
   Sex = EL_Common.ELRequest("Sex", 2)
   Birthday = EL_Common.ELRequest("Birthday", 1)
   IDCard = EL_Common.ELRequest("IDCard", 1)
   Mobile = EL_Common.ELRequest("Mobile", 1)
   Phone = EL_Common.ELRequest("Phone", 1)
   Fax = EL_Common.ELRequest("Fax", 1)
   QQ = EL_Common.ELRequest("QQ", 1)
   ICQ = EL_Common.ELRequest("ICQ", 1)
   MSN = EL_Common.ELRequest("MSN", 1)
   Email = EL_Common.ELRequest("Email", 1)
   Address = EL_Common.ELRequest("Address", 1)
   ZipCode = EL_Common.ELRequest("ZipCode", 1)
   Marriage = EL_Common.ELRequest("Marriage", 1)
   Job = EL_Common.ELRequest("Job", 1)
   JobTitle = EL_Common.ELRequest("JobTitle", 1)
   Income = EL_Common.ELRequest("Income", 2)
   CompanyName = EL_Common.ELRequest("CompanyName", 1)
   Sign = EL_Common.ELRequest("Sign", 1)
   EnablePost = EL_Common.ELRequest("EnablePost", 2)
   IsBoardManager = EL_Common.ELRequest("IsBoardManager", 2)   
   BoardSuperManager = EL_Common.ELRequest("BoardSuperManager", 2)
   Locked = EL_Common.ELRequest("Locked", 2)   
   
   DiscountOfHotel = EL_Common.ELRequest("DiscountOfHotel", 2)   
   DiscountOfFlight = EL_Common.ELRequest("DiscountOfFlight", 2)   
   DiscountOfProduct = EL_Common.ELRequest("DiscountOfProduct", 2)   
   DiscountOfSight = EL_Common.ELRequest("DiscountOfSight", 2)
   DiscountOfCar = EL_Common.ELRequest("DiscountOfCar", 2)   
   ArrDiscountOfBook = DiscountOfHotel &","& DiscountOfFlight &","& DiscountOfProduct &","& DiscountOfSight &","& DiscountOfCar
	
   If FaceType = 0 Then
      Userface = SelectFace
   Else
      Userface = DefineFace
   End If
   
   If Password <> PasswordConfirm Then
      EL_Common.ShowErrorMsg("您两次输入的密码不一致")
	  Exit Sub
   End If
   ArrManageBoardID = ""
  
   If Password <> "" Then Password = MD5(Password, 32)
   
   Call EL_Common.InitCommand(UserCmd, "EL_SP_ModifyUserInfo")
   With UserCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@ModifyType", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, UserID)
	  .Parameters.Append .CreateParameter("@GroupID", 3, 1, 4, GroupID)
	  .Parameters.Append .CreateParameter("@TrueName", 200, 1, 50, TrueName)
	  .Parameters.Append .CreateParameter("@Password", 200, 1, 32, Password)
	  .Parameters.Append .CreateParameter("@FaceType", 3, 1, 4, FaceType)
	  .Parameters.Append .CreateParameter("@Userface", 200, 1, 255, Userface)
	  .Parameters.Append .CreateParameter("@FaceSize", 200, 1, 20, FaceSize)
	  .Parameters.Append .CreateParameter("@Sex", 2, 1, 4, Sex)
	  .Parameters.Append .CreateParameter("@Birthday", 135, 1, 8, Birthday)
	  .Parameters.Append .CreateParameter("@IDCard", 200, 1, 20, IDCard)
	  .Parameters.Append .CreateParameter("@Question", 200, 1, 255, "")
	  .Parameters.Append .CreateParameter("@Answer", 200, 1, 32, "")
	  .Parameters.Append .CreateParameter("@Mobile", 200, 1, 30, Mobile)
	  .Parameters.Append .CreateParameter("@Phone", 200, 1, 30, Phone)
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -