📄 integral_moreinfo.asp
字号:
case "","View","SearchGo"
View
case "Add","Edit"
Add_Edit
case "Save"
Save
case "Del"
Del
case "Search"
Search
end select
'******************************************************************
Sub View()%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form1" id="form1" method="post" action="?Act=Del">
<tr class="hback">
<td align="center" class="xingmu" ><a href="javascript:OrderByName('LogID')" class="sd"><b>〖日志编号〗</b></a> <span id="Show_Oder_LogID"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('LogType')" class="sd"><b>日志类型</b></a> <span id="Show_Oder_LogType"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('UserNumber')" class="sd"><b>会员编号</b></a> <span id="Show_Oder_UserNumber"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('points')" class="sd"><b>积分</b></a> <span id="Show_Oder_points"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('moneys')" class="sd"><b>金币</b></a> <span id="Show_Oder_moneys"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('LogTime')" class="sd"><b>交易日期</b></a> <span id="Show_Oder_LogTime"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('LogContent')" class="sd"><b>交易说明</b></a> <span id="Show_Oder_LogContent"></span></td>
<td align="center" class="xingmu"><a href="javascript:OrderByName('Logstyle')" class="sd"><b>类型</b></a> <span id="Show_Oder_Logstyle"></span></td>
<td align="center" class="xingmu">用户信息</td>
<td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
</tr>
<%
response.Write( Get_Card( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
%>
</form>
</table>
<%End Sub
Sub Add_Edit()
Dim LogID,Bol_IsEdit
Dim UserNum,UserLog,LogCont
Bol_IsEdit = false
if request.QueryString("Act")="Edit" then
LogID = request.QueryString("LogID")
if LogID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的LogID没有提供</li>") : response.End()
VClass_Sql = "select LogID,LogType,UserNumber,points,moneys,LogTime,LogContent,Logstyle from FS_ME_Log where LogID="&LogID
Set VClass_Rs = CreateObject(G_FS_RS)
VClass_Rs.Open VClass_Sql,User_Conn,1,1
if VClass_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
Bol_IsEdit = True
UserNum = VClass_Rs(2) : UserLog = VClass_Rs(1) : LogCont = VClass_Rs(6)
end if
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form_Save" id="form_Save" onSubmit="return Validator.Validate(this,3);" method="post" action="?Act=Save">
<tr class="hback">
<td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then response.Write("修改用户交易详细信息<input type=""hidden"" name=""LogID"" value="""&VClass_Rs(0)&""">") else response.Write("添加用户交易详细信息") end if%></td>
</tr>
<tr class="hback">
<td align="right">日志类型</td>
<td>
<input type="text" name="frm_LogType" size="40" value="<%if Bol_IsEdit then response.Write(UserLog) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
<select style="width:120" name="select11" onChange="frm_LogType.value=this.options[this.selectedIndex].value">
<option value="">---请选择---</option>
<%=Get_FildValue_List("select distinct LogType from FS_ME_Log",UserLog,1)%>
</select>
</td>
</tr>
<tr class="hback">
<td align="right">会员编号</td>
<td>
<input type="text" name="frm_UserNumber" size="40" value="<%if Bol_IsEdit then response.Write(UserNum) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual"><span id="usernum" style="color:#FF0000">*请填入真实会员编号,否则查看的用户信息有误</span>
</td>
</tr>
<tr class="hback">
<td align="right">交易积分</td>
<td>
<input type="text" name="frm_points" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(3)) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
</td>
</tr>
<tr class="hback">
<td align="right">交易金额</td>
<td>
<input type="text" name="frm_moneys" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(4)) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
<%=Sys_MoneyName%>
</td>
<tr class="hback">
<td align="right">交易日期</td>
<td>
<input name="frm_LogTime" type="text" id="frm_LogTime" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(5)) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
<input type="button" name="chooseEndTime" value="日 期" onClick="OpenWindowAndSetValue('../../../admin/CommPages/SelectDate.asp',280,110,window,document.all.frm_LogTime);document.all.frm_LogTime.focus();">
</td>
</tr>
<tr class="hback">
<td align="right">交易说明</td>
<td>
<textarea name="frm_LogContent" cols="40" datatype="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual"><%if Bol_IsEdit then response.Write(LogCont) end if%></textarea>
</td>
</tr>
<tr class="hback">
<td align="right">类型</td>
<td>
<input type="radio" name="frm_Logstyle" value="0" <%if Bol_IsEdit then if VClass_Rs(7)=0 then response.Write(" checked ") end if else response.Write(" checked ") end if%>>
增加
<input type="radio" name="frm_Logstyle" value="1" <%if Bol_IsEdit then if VClass_Rs(7)=1 then response.Write(" checked ") end if end if%>>
减少
</td>
</tr>
</tr>
<tr class="hback">
<td colspan="4">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <input type="submit" name="submit" value=" 保存 " /> <!--<%IF request.QueryString("Act")="Put" then%> onClick="Put_CardNum_Len.to = (Put_CardAddStr.value.length+2).toString();Put_CardNum_Len.msg='长度必须大于等于'+(Put_CardAddStr.value.length+2).toString()" <%end if%>-->
<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
<input type="button" name="btn_todel" value=" 删除 " onclick="javascript:return confirm('确定要删除所选项目吗?');">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%End Sub
Sub Search()
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="form1" onSubmit="return Validator.Validate(this,3)" method="post" action="?Act=SearchGo">
<tr class="hback">
<td colspan="3" align="left" class="xingmu" >查询会员消费清单</td>
</tr>
<tr class="hback">
<td align="right">日志类型</td>
<td>
<input type="text" name="frm_LogType" size="40" value="">
<select style="width:120" name="select11" onChange="frm_LogType.value=this.options[this.selectedIndex].value">
<option value="">---请选择---</option>
<%=Get_FildValue_List("select distinct LogType from FS_ME_Log","",1)%>
</select>
模糊查询 </td>
</tr>
<tr class="hback">
<td align="right">会员编号</td>
<td>
<input type="text" name="frm_UserNumber" size="40" value="">
模糊查询 </td>
</tr>
<tr class="hback">
<td align="right">交易积分</td>
<td>
<select name="JF1" style="width:55">
<option value="" selected="selected"></option>
<option value="*">*</option>
<option value=">">></option>
<option value="<"><</option>
<option value="=">=</option>
<option value=">=">>=</option>
<option value="<="><=</option>
<option value="<>"><></option>
</select>
<input type="text" name="frm_points" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')" onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
</tr>
<tr class="hback">
<td align="right">交易金额</td>
<td>
<select name="JB1" style="width:55">
<option value="" selected="selected"></option>
<option value="*">*</option>
<option value=">">></option>
<option value="<"><</option>
<option value="=">=</option>
<option value=">=">>=</option>
<option value="<="><=</option>
<option value="<>"><></option>
</select>
<input type="text" name="frm_moneys" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')" onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
<%=Sys_MoneyName%> 数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
<tr class="hback">
<td align="right">交易日期</td>
<td>
<select name="RQ" style="width:55">
<option value="" selected="selected"></option>
<option value="*">*</option>
<option value=">">></option>
<option value="<"><</option>
<option value="=">=</option>
<option value=">=">>=</option>
<option value="<="><=</option>
<option value="<>"><></option>
</select>
<input type="text" name="frm_LogTime" size="17" value="" readonly>
<input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_LogTime);">
日期,可在开头加上简单比较符号,*号表示模糊查询 </td>
</tr>
<tr class="hback">
<td align="right">交易说明</td>
<td>
<textarea name="frm_LogContent" cols="40"></textarea>
模糊查询 </td>
</tr>
<tr class="hback">
<td align="right">类型</td>
<td>
<input type="radio" name="frm_Logstyle" value="0" >
增加
<input type="radio" name="frm_Logstyle" value="1" >
减少
</td>
</tr>
<tr class="hback">
<td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <input type="submit" name="submit" value=" 执行查询 " />
<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
</td>
</tr>
</table></td>
</tr>
</form>
</table>
<%End Sub%>
</body>
<%
Set VClass_Rs=nothing
User_Conn.close
Set User_Conn=nothing
%>
<script language="JavaScript">
<!--//判断后将排序完善.字段名后面显示指示
//打开后根据规则显示箭头
var Req_FildName;
if (Old_Sql.indexOf("filterorderby=")>-1)
{
var tmp_arr_ = Old_Sql.split('?')[1].split('&');
for(var ii=0;ii<tmp_arr_.length;ii++)
{
if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
{
if(Old_Sql.indexOf("csed")>-1)
{Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
else
{Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
}
}
if (document.getElementById('Show_Oder_'+Req_FildName)!=null)
{
if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
{
eval('Show_Oder_'+Req_FildName).innerText = '↓';
}
else
{
eval('Show_Oder_'+Req_FildName).innerText = '↑';
}
}
}
/////////////////////////////////////////////////////////
-->
</script>
</html>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -