📄 admin_user.asp
字号:
.Parameters.Append .CreateParameter("@Fax", 200, 1, 30, Fax)
.Parameters.Append .CreateParameter("@QQ", 200, 1, 30, QQ)
.Parameters.Append .CreateParameter("@ICQ", 200, 1, 30, ICQ)
.Parameters.Append .CreateParameter("@MSN", 200, 1, 100, MSN)
.Parameters.Append .CreateParameter("@Email", 200, 1, 100, Email)
.Parameters.Append .CreateParameter("@Address", 200, 1, 255, Address)
.Parameters.Append .CreateParameter("@ZipCode", 200, 1, 10, ZipCode)
.Parameters.Append .CreateParameter("@Marriage", 200, 1, 10, Marriage)
.Parameters.Append .CreateParameter("@Job", 200, 1, 30, Job)
.Parameters.Append .CreateParameter("@JobTitle", 200, 1, 30, JobTitle)
.Parameters.Append .CreateParameter("@Income", 3, 1, 4, Income)
.Parameters.Append .CreateParameter("@CompanyName", 200, 1, 100, CompanyName)
.Parameters.Append .CreateParameter("@Sign", 200, 1, 500, Sign)
.Parameters.Append .CreateParameter("@EnablePost", 11, 1, 1, EnablePost)
.Parameters.Append .CreateParameter("@BoardSuperManager", 11, 1, 1, BoardSuperManager)
.Parameters.Append .CreateParameter("@Locked", 11, 1, 1, Locked)
.Parameters.Append .CreateParameter("@ArrDiscountOfBook", 200, 1, 50, ArrDiscountOfBook)
.Execute()
End With
If UserCmd(0) = 40 Then
EL_Common.ShowErrorMsg("指定会员不存在")
Set UserCmd = Nothing
Exit Sub
End If
Call EL_Common.InsertLog(1, ComeURL, "修改会员信息", EL_Admin.AdminName)
EL_Common.ShowSuccessMsg("会员信息修改成功")
EL_Common.ShowScriptError()
End Sub
Sub SetUserAttrib(SetType)
On Error Resume Next
Dim AttribCmd
Dim UserID, ArrUserID, TargetGroupID
UserID = EL_Common.ELRequest("UserID", 2)
ArrUserID = EL_Common.ELRequest("CheckObject", 1)
TargetGroupID = EL_Common.ELRequest("TargetGroupID", 2)
ArrUserID = EL_Common.Join2String(ArrUserID, UserID, ",")
Call EL_Common.InitCommand(AttribCmd, "EL_SP_UserAttributes")
With AttribCmd
.Parameters.Append .CreateParameter("@SetType", 3, 1, 4, SetType)
.Parameters.Append .CreateParameter("@ArrUserID", 200, 1, 1000, ArrUserID)
.Parameters.Append .CreateParameter("@TargetGroupID", 3, 1, 4, TargetGroupID)
.Execute()
End With
Set AttribCmd = Nothing
Select Case SetType
Case 0: Call EL_Common.InsertLog(1, ComeURL, "删除会员", EL_Admin.AdminName)
Case 1: Call EL_Common.InsertLog(1, ComeURL, "修改会员信息", EL_Admin.AdminName)
Case 2: Call EL_Common.InsertLog(1, ComeURL, "修改会员信息", EL_Admin.AdminName)
Case 3: Call EL_Common.InsertLog(1, ComeURL, "修改会员信息", EL_Admin.AdminName)
Case 4: Call EL_Common.InsertLog(1, ComeURL, "修改会员信息", EL_Admin.AdminName)
Case 5: Call EL_Common.InsertLog(1, ComeURL, "通过会员验证", EL_Admin.AdminName)
End Select
EL_Common.ShowScriptError()
If SetType = 4 Then
Response.Redirect "Admin_User.asp?GroupID="& TargetGroupID
ElseIf SetType = 5 Then
EL_Common.ShowSuccessMsg("成功通过验证")
ElseIf SetType = 0 Then
Response.Redirect "Admin_User.asp"
Else
Response.Redirect ComeURL
End If
End Sub
Sub ExchangeLog()
On Error Resume Next
Dim LogCmd, rsLog, RowCount, i, StrCondition
Dim PageCounts, TotalRowCount
StrCondition = "1=1"
If Search_Keywords<>"" And Search_Field<>"" Then
StrCondition = StrCondition &"And "& Search_Field &" Like '%"& Search_Keywords &"%' "
End If
Call EL_Common.InitCommand(LogCmd, "EL_SP_SplitPage")
With LogCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_Exchange")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "ChangeID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "ChangeID DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, "*")
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsLog = .Execute()
End With
rsLog.Close()
RowCount = LogCmd(0)
TotalRowCount = LogCmd(9)
PageCounts = LogCmd(10)
CurrentPath = CurrentPath &">> 会员"& PointItemName &"兑换记录"
If Search_Keywords<>"" And Search_Field<>"" Then
CurrentPath = CurrentPath &"搜索：<span class='redtext'>"& Search_Keywords &"</span>"
End If
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="8%" align="center" class="top_item"><strong>ID</strong></td>
<td width="9%" align="center" class="top_item"><strong>用户ID</strong></td>
<td width="15%" align="center" class="top_item"><strong>用户名</strong></td>
<td width="14%" align="center" class="top_item"><strong>兑换数量</strong></td>
<td width="12%" align="center" class="top_item"><strong><%=PointItemName%></strong></td>
<td width="12%" align="center" class="top_item"><strong>兑换比例</strong></td>
<td width="16%" align="center" class="top_item"><strong>兑换时间</strong></td>
<td width="14%" align="center" class="top_item"><strong>IP地址</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class='td_50' colspan=8 align='center'></td></tr>"
Else
rsLog.Open()
For i = 1 To RowCount
%>
<tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
<td align="center"><%=rsLog("ChangeID")%></td>
<td align="center"><%=rsLog("UserID")%></td>
<td align="center"><a href="Admin_User.asp?Action=Show&UserID=<%=rsLog("UserID")%>"><%=EL_Common.ServerHTMLEncode(rsLog("UserName"))%></a></td>
<td align="center"><%=rsLog("ExchangeNum")%></td>
<td align="center"><%=rsLog("Points")%></td>
<td align="center"><%=rsLog("ExchangeProportion")%>:1</td>
<td align="center"><%=rsLog("UpdateTime")%></td>
<td align="center"><%=rsLog("RemoteIp")%></td>
</tr>
<%
rsLog.MoveNext
Next
rsLog.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
</tr>
</table>
<form name="search" method="get" action="<%=EL_CurrentScriptName%>">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="8%" nowrap class="td_50">记录搜索：</td>
<td width="92%" class="td_50">
<select name="Search_Field" id="Search_Field">
<option value="UserName">会员名</option>
</select>
<input name="Search_Keywords" type="text" id="Search_Keywords" value="关键字">
<input type="submit" name="Submit3" value="搜索">
<input name="Action" type="hidden" id="Action" value="ExchangeLog"></td>
</tr>
</table>
</form>
<%
Set rsLog = Nothing
Set LogCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub BatchSetup()
On Error Resume Next
Dim SetType, ArrUserName
SetType = EL_Common.ELRequest("SetType", 2)
ArrUserName = EL_Common.ELRequest("ArrUserName", 1)
CurrentPath = CurrentPath &" >> 批量会员设置"
%>
<script language="javascript">
function Check(frm){
if(frm.SetType[1].checked){
if(frm.ArrUserName.value.trim() == ""){
alert("请输入指定会员名");
frm.ArrUserName.focus();
return false;
}
}else if(frm.SetType[2].checked){
if(frm.ArrGroupID.value.trim() == "" || frm.ArrGroupID.selectedIndex == -1){
alert("请选择指定会员组");
frm.ArrGroupID.focus();
return false;
}
}
var check = false;
for(var i=0;i<frm.SetItems.length;i++){
if(frm.SetItems[i].checked){
check = true;
break;
}
}
if(!check){
alert("请至少选择一个项目");
frm.SetItems[0].focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="Admin_User.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong>批量会员设置</strong></td>
</tr>
<tr>
<td width="26%" valign="top" class="td_ItemName"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><input name="SetType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, SetType)%>>
所有会员</td>
</tr>
<tr>
<td><input name="SetType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, SetType)%>>
指定会员名</td>
</tr>
<tr>
<td align="right"><input name="ArrUserName" type="text" id="ArrUserName" style="width:97%;" value="<%=ArrUserName%>"></td>
</tr>
<tr>
<td><input name="SetType" type="radio" class="nomargin" value="2" <%=EL_Common.SetObjectChecked(2, SetType)%>>
指定会员组</td>
</tr>
<tr>
<td align="right">
<select name="ArrGroupID" size="10" multiple id="ArrGroupID" style="width:97%; height:150px;">
<%=ShowGroupOption(-1)%>
</select>
·按"Ctrl"键可多选 </td>
</tr>
</table></td>
<td width="74%" valign="top" class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="4%" align="center" class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="1"></td>
<td width="12%" nowrap class="td_ItemName"><strong>奖惩<%=PointItemName%></strong></td>
<td width="84%" class="td_25"><input name="Points" type="text" id="Points" value="0" size="15"></td>
</tr>
<tr>
<td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="2"></td>
<td nowrap class="td_ItemName"><strong>奖惩<%=ExpItemName%></strong></td>
<td class="td_25"><input name="Exps" type="text" id="Exps" value="0" size="15"></td>
</tr>
<tr>
<td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="5"></td>
<td nowrap class="td_ItemName"><strong>锁定</strong></td>
<td class="td_25"><input name="Locked" type="radio" class="nomargin" value="<%=EL_True%>" checked>
是
<input name="Locked" type="radio" class="nomargin" value="<%=EL_False%>">
否</td>
</tr>
<tr>
<td align="center" class="td_ItemName"><input name="SetItems" type="checkbox" class="nomargin" id="SetItems" value="6"></td>
<td nowrap class="td_ItemName"><strong>享受折扣</strong></td>
<td class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="16%" nowrap class="td_ItemName">1. 酒店客房预订</td>
<td width="84%" class="td_25"><input name="DiscountOfHotel" type="text" id="DiscountOfHotel" value="0" size="10">
折</td>
</tr>
<tr>
<td nowrap class="td_ItemName">2. 航班机票预订</td>
<td class="td_25"><input name="DiscountOfFlight" type="text" id="DiscountOfFlight" value="0" size="10">
折</td>
</tr>
<tr>
<td nowrap class="td_ItemName">3. 度假产品预订</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -