📄 admin_user.asp
字号:
<td class="td_25"><input name="DiscountOfProduct" type="text" id="DiscountOfProduct" value="0" size="10">
折</td>
</tr>
<tr>
<td nowrap class="td_ItemName">4. 景点门票预订</td>
<td class="td_25"><input name="DiscountOfSight" type="text" id="DiscountOfSight" value="0" size="10">
折</td>
</tr>
<tr>
<td nowrap class="td_ItemName">5. 汽车租用预订</td>
<td class="td_25"><input name="DiscountOfCar" type="text" id="DiscountOfCar" value="0" size="10">
折</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="center" class="td_50"><input type="submit" name="Submit14" value="保存设置">
<input type="button" name="Submit52" value="返回上页" onClick="history.back()">
<input name="Action" type="hidden" id="Action" value="SaveBatch"></td>
</tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
Sub AwardLog()
On Error Resume Next
Dim AwardCmd, rsAward, StrFields, StrCondition, i
Dim PageCounts, RowCount, TotalRowCount
Dim UserName, ArrAwardType(2)
ArrAwardType(1) = PointItemName
ArrAwardType(2) = ExpItemName
StrFields = "*"
UserName = EL_Common.ELRequest("UserName", 1)
StrCondition = "1=1"
If UserName <> "" Then
StrCondition = StrCondition &" And UserName='"& UserName &"'"
End If
If Search_Keywords<>"" And Search_Field<>"" Then
StrCondition = StrCondition &"And "& Search_Field &" Like '%"& Search_Keywords &"%' "
End If
Call EL_Common.InitCommand(AwardCmd, "EL_SP_SplitPage")
With AwardCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_AwardLog")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "AwardID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "UpdateTime DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.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 rsAward = .Execute()
End With
rsAward.Close()
RowCount = AwardCmd(0)
TotalRowCount = AwardCmd(9)
PageCounts = AwardCmd(10)
CurrentPath = CurrentPath &" >> 奖惩记录"
If UserName <> "" Then
CurrentPath = CurrentPath &"：<span class='redtext'>"& EL_Common.ServerHTMLEncode(UserName) &"</span>"
End If
If Search_Keywords<>"" And Search_Field<>"" Then
CurrentPath = CurrentPath &"搜索：<span class='redtext'>"& Search_Keywords &"</span>"
End If
%>
<script language="javascript">
function CheckedAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = true;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CancelAll()'>取消</a>]";
}
function CancelAll(){
for (var i=0;i<document.myform.elements.length;i++){
var e = document.myform.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false){
e.checked = false;
}
}
getObject("myselect").innerHTML = "[<a href='javascript:CheckedAll()'>全选</a>]";
}
function CheckObject(){
var frm = getObject("myform");
for (var i=0;i<frm.elements.length;i++){
var e = frm.elements[i];
if (e.type == 'checkbox' && e.name=='CheckObject' && e.disabled == false && e.checked == true ){
return true
}
}
return false;
}
function Check(frm){
SubmitOnce(frm);
return true;
}
function doDelete(){
var frm = getObject("myform");
if(!CheckObject()){
alert("请至少选定1条记录");
return false;
}
frm.action = "Admin_User.asp?Action=DeleteAwardLog";
if(confirm("确认要执行删除选定的记录吗？")){
frm.submit();
return;
}
return false;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><%=CurrentPath%></td>
</tr>
</table>
<form name="myform" action="" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="3%" align="center" nowrap class="top_item"><strong>选中</strong></td>
<td width="6%" align="center" nowrap class="top_item"><strong>ID</strong></td>
<td width="9%" align="center" nowrap class="top_item"><strong>奖惩方式</strong></td>
<td width="11%" align="center" nowrap class="top_item"><strong>会员名</strong></td>
<td width="8%" align="center" nowrap class="top_item"><strong>奖惩数额</strong></td>
<td width="12%" align="center" nowrap class="top_item"><strong>操作人</strong></td>
<td width="15%" align="center" nowrap class="top_item"><strong>发生时间</strong></td>
<td width="30%" align="center" nowrap class="top_item"><strong>备注</strong></td>
<td width="6%" align="center" nowrap class="top_item"><strong>操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class='td_50' colspan=9>没有任何记录</td></tr>"
Else
rsAward.Open()
For i = 1 To RowCount
%>
<tr class="td_25" onMouseOver="this.className='MouseOver_25'" onMouseOut="this.className='td_25'">
<td align="center"><input name="CheckObject" type="checkbox" id="CheckObject" value="<%=rsAward("AwardID")%>"></td>
<td align="center"><%=rsAward("AwardID")%></td>
<td align="center"><%=ArrAwardType(rsAward("AwardType"))%></td>
<td align="center"><a href="Admin_User.asp?Action=AwardLog&UserName=<%=rsAward("UserName")%>"><%=rsAward("UserName")%></a></td>
<td align="center" class="blueText"><%=rsAward("Num")%></td>
<td align="center"><%=rsAward("Editor")%></td>
<td align="center"><%=rsAward("UpdateTime")%></td>
<td style="padding-left:5px;"><%=EL_Common.HTMLEncode(rsAward("Remark"))%></td>
<td align="center"><a href="Admin_User.asp?Action=DeleteAwardLog&AwardID=<%=rsAward("AwardID")%>" onClick="return confirm('确定要删除此记录吗？')">删除</a></td>
</tr>
<%
If i<RowCount Then rsAward.MoveNext
Next
rsAward.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"><span id="myselect">[<a href="javascript:CheckedAll()">全选</a>]</span></td>
<td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50" align="center" class="td_topline"><%
Dim Disabled
If RowCount = 0 Then Disabled = "disabled"
%>
<input type="button" name="Submit12" value="删除选定记录" onClick="doDelete()" <%=Disabled%>>
</td>
</tr>
</table>
</form>
<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>
<option value="Editor">操作人</option>
<option value="Remark">备注</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="AwardLog"></td>
</tr>
</table>
</form>
<%
Set rsAward = Nothing
Set AwardCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub Award()
On Error Resume Next
Dim UserCmd, rsUser
Dim UserID, AwardType
UserID = EL_Common.ELRequest("UserID", 2)
AwardType = EL_Common.ELRequest("AwardType", 2)
Call EL_Common.InitCommand(UserCmd, "EL_SP_UserInfo")
With UserCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@ShowType", 3, 1, 4, 2)
.Parameters.Append .CreateParameter("@UserID", 3, 1, 4, UserID)
.Parameters.Append .CreateParameter("@MessageNum", 3, 2, 4)
Set rsUser = .Execute()
End With
rsUser.Close()
If UserCmd(0) <> 1 Then
Set rsUser = Nothing
Set UserCmd = Nothing
EL_Common.ShowErrorMsg("指定会员不存在")
Exit Sub
End If
rsUser.Open()
%>
<form name="myform" action="Admin_User.asp" method="post">
<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="15%" class="td_ItemName"><strong>会员名</strong></td>
<td width="85%" class="td_25"><input name="textfield" type="text" value="<%=EL_Common.ServerHTMLEncode(rsUser("UserName"))%>" size="30" readonly="true" disabled="disabled"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>所属会员组</strong></td>
<td class="td_25"><select name="select2" id="select2" disabled="disabled">
<%=ShowGroupOption(rsUser("GroupID"))%>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong>当前<%=PointItemName%></strong></td>
<td class="td_25"><input name="textfield3" type="text" value="<%=rsUser("Points")%>" size="15" readonly="true" disabled="disabled"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>当前<%=ExpItemName%></strong></td>
<td class="td_25"><input name="textfield32" type="text" value="<%=rsUser("Exps")%>" size="15" readonly="true" disabled="disabled"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>奖惩方式</strong></td>
<td class="td_25">
<select name="AwardType" id="AwardType">
<option value="1" <%=EL_Common.SetObjectSelected(1, AwardType)%>><%=PointItemName%></option>
<option value="2" <%=EL_Common.SetObjectSelected(2, AwardType)%>><%=ExpItemName%></option>
</select></td>
</tr>
<tr>
<td class="td_ItemName"><strong>奖惩数额</strong><br>填写正数为增加，负数为扣除</td>
<td class="td_25"><input name="AwardNum" type="text" id="AwardNum" size="20"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>奖惩原因</strong></td>
<td class="td_25"><textarea name="Remark" cols="60" rows="6" id="Remark"></textarea></td>
</tr>
<tr>
<td class="td_ItemName"> </td>
<td class="td_25"><input name="SendMessage" type="checkbox" class="nomargin" id="SendMessage" value="1" onClick="getObject('SendMsg').style.display=this.checked?'':'none'">
发送站内短信通知会员
<div id="SendMsg" style="display:none">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr class="td_25">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -