开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Integral_MoreInfo.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：23k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Integral_MoreInfo.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <!--#include file="../../FS_Inc/Func_page.asp" -->
  6. <%'Copyright (c) 2006 Foosun Inc. Code by awen ueuo.cn网络收藏夹
  7. Dim Conn,User_Conn,VClass_Rs,VClass_Sql
  8. Dim CheckStr,Sys_MoneyName
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_Session_TF
  12. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  13. int_RPP=15 '设置每页显示数目
  14. int_showNumberLink_=10 '数字导航显示数目
  15. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  16. str_nonLinkColor_="#999999" '非热链接颜色
  17. toF_="<font face=webdings>9</font>"    '首页 
  18. toP10_=" <font face=webdings>7</font>" '上十
  19. toP1_=" <font face=webdings>3</font>" '上一
  20. toN1_=" <font face=webdings>4</font>" '下一
  21. toN10_=" <font face=webdings>8</font>" '下十
  22. toL_="<font face=webdings>:</font>" '尾页
  24. set VClass_Rs=User_Conn.execute("select top 1 MoneyName from FS_ME_SysPara")
  25. if not VClass_Rs.eof then 
  26. Sys_MoneyName = VClass_Rs(0)
  27. end if
  28. VClass_Rs.close
  30. Function Get_Card(Add_Sql,orderby)
  31. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  32. Str_Tmp = "LogID,LogType,UserNumber,points,moneys,LogTime,LogContent,Logstyle"
  33. This_Fun_Sql = "select "&Str_Tmp&" from FS_ME_Log"
  34. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  35. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  36. if request.QueryString("Act")="SearchGo" then 
  37. Arr_Tmp = split(Str_Tmp,",")
  38. for each Str_Tmp in Arr_Tmp
  39. if Trim(request.Form("frm_"&Str_Tmp))<>"" then 
  40. Req_Str = NoSqlHack(Trim(request("frm_"&Str_Tmp)))
  42. if Str_Tmp="points" then
  43. Req_Str = Replace(request("JF1")& Req_Str,",","")
  44. elseif  Str_Tmp="moneys" then
  45. Req_Str =  Replace(request("JB1")& Req_Str,",","")
  46. elseif Str_Tmp="LogTime" then
  47. Req_Str = Replace(request("RQ")& "#"&Req_Str&"#",",","")
  48. end if
  50. select case Str_Tmp
  51. case "points","moneys","LogTime","Logstyle"
  52. ''数字,日期
  53. regxp = "|<|>|=|<=|>=|<>|"
  54. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  55. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  56. elseif instr(Req_Str,"*")>0 then 
  57. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  58. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  59. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  60. else
  61. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  62. end if
  63. case else
  64. ''字符
  65. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '%"& Req_Str & "%'"
  66. end select 
  67. end if
  68. next
  69. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  70. end if
  71. Str_Tmp = ""
  72. 'response.Write(This_Fun_Sql)
  73. 'response.End()
  74. On Error Resume Next
  75. Set VClass_Rs = CreateObject(G_FS_RS)
  76. VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
  77. if Err<>0 then 
  78. Err.Clear
  79. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  80. response.End()
  81. end if
  82. IF not VClass_Rs.eof THEN
  83. VClass_Rs.PageSize=int_RPP
  84. cPageNo=NoSqlHack(Request.QueryString("Page"))
  85. If cPageNo="" Then cPageNo = 1
  86. If not isnumeric(cPageNo) Then cPageNo = 1
  87. cPageNo = Clng(cPageNo)
  88. If cPageNo<=0 Then cPageNo=1
  89. If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount 
  90. VClass_Rs.AbsolutePage=cPageNo
  92.   FOR int_Start=1 TO int_RPP 
  93. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  94. Get_Html = Get_Html & "<td align=""center""><a href=""Integral_MoreInfo.asp?Act=Edit&LogID="&VClass_Rs("LogID")&""" class=""otherset"" title='点击修改'>"&VClass_Rs("LogID")&"</a></td>" & vbcrlf
  95. for ii=1 to 7  
  96. select case ii
  97. case 7 
  98. if VClass_Rs(ii)=1 then 
  99. Str_Tmp="减少"
  100. else
  101. Str_Tmp="增加"
  102. end if
  103. case 3
  104. Str_Tmp = VClass_Rs(ii) & "点"
  105. case 4
  106. Str_Tmp = VClass_Rs(ii) & Sys_MoneyName
  107. case else
  108. Str_Tmp = VClass_Rs(ii)
  109. end select
  110. Get_Html = Get_Html & "<td align=""center"">"& Str_Tmp & "</td>" & vbcrlf
  111. next
  112. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><a href=""Integral.asp?Act=View&Add_Sql="&server.URLEncode( Encrypt("UserNumber='"&VClass_Rs("UserNumber")&"'") )&""" class=""otherset"" title='查看该用户信息'>用户信息</a></td>" & vbcrlf
  113. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" "&CheckStr&" name=""LogID"" id=""LogID"" value="""&VClass_Rs("LogID")&""" /></td>" & vbcrlf
  114. Get_Html = Get_Html & "</tr>" & vbcrlf
  115. CheckStr = ""
  116. VClass_Rs.MoveNext
  117.   if VClass_Rs.eof or VClass_Rs.bof then exit for
  118.       NEXT
  119. END IF
  121. Get_Html = Get_Html & "<tr class=""hback""><td colspan=20 align=""center"" class=""ischeck"">"& vbcrlf &"<table width=""100%"" border=0><tr><td height=30>" & vbcrlf
  122. Get_Html = Get_Html & fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  123. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  124. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  125. VClass_Rs.close
  126. Get_Card = Get_Html
  127. End Function
  129. Function Get_FildValue_List(This_Fun_Sql,EquValue,Get_Type)
  130. '''This_Fun_Sql 传入sql语句,EquValue与数据库相同的值如果是<option>则加上selected,Get_Type=1为<option>
  131. Dim Get_Html,This_Fun_Rs,Text
  132. On Error Resume Next
  133. set This_Fun_Rs = User_Conn.execute(This_Fun_Sql)
  134. If Err.Number <> 0 then Err.clear : response.Redirect("../error.asp?ErrCodes=<li>抱歉,传入的Sql语句有问题.或表和字段不存在.</li>")
  135. do while not This_Fun_Rs.eof 
  136. select case Get_Type
  137.   case 1
  138. ''<option>
  139. if instr(This_Fun_Sql,",") >0 then 
  140. Text = This_Fun_Rs(1)
  141. else
  142. Text = This_Fun_Rs(0)
  143. end if
  144. if EquValue = This_Fun_Rs(0) then 
  145. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&"""  style=""color:#0000FF"" selected>"&Text&"</option>"&vbNewLine
  146. else
  147. Get_Html = Get_Html & "<option value="""&This_Fun_Rs(0)&""">"&Text&"</option>"&vbNewLine
  148. end if
  149.   case else
  150. exit do : Get_FildValue_List = "Get_Type值传入错误" : exit Function
  151. end select
  152. This_Fun_Rs.movenext
  153. loop
  154. This_Fun_Rs.close
  155. Get_FildValue_List = Get_Html
  156. End Function
  158. Sub Del()
  159. Dim Str_Tmp
  160. if request.QueryString("LogID")<>"" then 
  161. User_Conn.execute("Delete from FS_ME_Log where LogID = "&request.QueryString("LogID"))
  162. else
  163. Str_Tmp = request.form("LogID")
  164. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>")
  165. Str_Tmp = replace(Str_Tmp," ","")
  166. User_Conn.execute("Delete from FS_ME_Log where LogID in ("&Str_Tmp&")")
  167. end if
  168. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Integral_MoreInfo.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  169. End Sub
  170. ''================================================================
  172. Sub Save()
  173. Dim Str_Tmp,Arr_Tmp,LogID
  174. Str_Tmp = "LogType,UserNumber,points,moneys,LogTime,LogContent,Logstyle"
  175. Arr_Tmp = split(Str_Tmp,",")
  176. LogID = NoSqlHack(request.Form("LogID"))
  177. if not isnumeric(LogID) or LogID = "" then LogID = 0 
  178. VClass_Sql = "select "&Str_Tmp&" from FS_ME_Log where LogID="&LogID
  179. Set VClass_Rs = CreateObject(G_FS_RS)
  180. VClass_Rs.Open VClass_Sql,User_Conn,3,3
  181. if LogID > 0 then 
  182. ''修改
  183. for each Str_Tmp in Arr_Tmp
  184. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  185. next
  186. VClass_Rs.update
  187. VClass_Rs.close
  188. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Integral_MoreInfo.asp?Act=Edit&LogID="&LogID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  189. else
  190. ''新增
  191. VClass_Rs.addnew
  192. for each Str_Tmp in Arr_Tmp
  193. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  194. next
  195. VClass_Rs.update
  196. VClass_Rs.close
  197. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Integral_MoreInfo.asp?Act=Add" ) &"ErrCodes=<li>恭喜，新增成功。</li>")
  198. end if
  199. End Sub
  200. ''=========================================================
  201. %>
  202. <html xmlns="http://www.w3.org/1999/xhtml">
  203. <HEAD>
  204. <TITLE>FoosunCMS</TITLE>
  205. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  206. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  207. </HEAD>
  208. <script language="JavaScript" type="text/JavaScript">
  209. <!--
  210. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  211.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  212.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  213.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  214. }
  215. MM_reloadPage(true);
  216. //点击标题排序
  217. /////////////////////////////////////////////////////////
  218. var Old_Sql = document.URL;
  219. function OrderByName(FildName)
  220. {
  221. var New_Sql='';
  222. var oldFildName="";
  223. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  224. {
  225. if (Old_Sql.indexOf("=")>-1)
  226. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  227. else
  228. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  229. }
  230. else
  231. {
  232. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  233. for(var ii=0;ii<tmp_arr_.length;ii++)
  234. {
  235. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  236. {
  237. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  238. break;
  239. }
  240. }
  241. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace(oldFildName,FildName):New_Sql = Old_Sql.replace(oldFildName,FildName+"csed");
  242. }
  243. //alert(New_Sql);
  244. location = New_Sql;
  245. }
  246. /////////////////////////////////////////////////////////
  247. -->
  248. </script>
  249. <style type="text/css">
  250. <!--
  251. .style1 {color: #FFFFFF}
  252. .style2 {color: #FF0000}
  253. -->
  254. </style>
  255. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  256. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  257. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  258. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  259.   <tr  class="hback"> 
  260.     <td class="xingmu" >积分详细清单管理</td>
  261.   </tr>
  262.   <tr  class="hback"> 
  263.     <td><a href="Integral_MoreInfo.asp?Act=View">查看全部</a> | <a href="Integral_MoreInfo.asp?Act=Add">新增</a> 
  264.       | <a href="Integral_MoreInfo.asp?Act=Search">查询</a> | <a href="Integral.asp?Act=View">返回首页</a></td>
  265.   </tr>
  266. </table>
  267. <%
  268. '******************************************************************
  269. select case request.QueryString("Act")
  270. case "","View","SearchGo"
  271. View
  272. case "Add","Edit"
  273. Add_Edit
  274. case "Save"
  275. Save
  276. case "Del"
  277. Del
  278. case "Search"
  279. Search
  280. end select
  282. '******************************************************************
  283. Sub View()%>
  284. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  285.   <form name="form1" id="form1" method="post" action="?Act=Del">
  286.     <tr  class="hback"> 
  287.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('LogID')" class="sd"><b>〖日志编号〗</b></a> <span id="Show_Oder_LogID"></span></td>
  288.       <td align="center" class="xingmu"><a href="javascript:OrderByName('LogType')" class="sd"><b>日志类型</b></a> <span id="Show_Oder_LogType"></span></td>
  289.   <td align="center" class="xingmu"><a href="javascript:OrderByName('UserNumber')" class="sd"><b>会员编号</b></a> <span id="Show_Oder_UserNumber"></span></td>
  290.       <td align="center" class="xingmu"><a href="javascript:OrderByName('points')" class="sd"><b>积分</b></a> <span id="Show_Oder_points"></span></td>
  291.   <td align="center" class="xingmu"><a href="javascript:OrderByName('moneys')" class="sd"><b>金币</b></a> <span id="Show_Oder_moneys"></span></td>
  292.   <td align="center" class="xingmu"><a href="javascript:OrderByName('LogTime')" class="sd"><b>交易日期</b></a> <span id="Show_Oder_LogTime"></span></td>
  293.   <td align="center" class="xingmu"><a href="javascript:OrderByName('LogContent')" class="sd"><b>交易说明</b></a> <span id="Show_Oder_LogContent"></span></td>
  294.   <td align="center" class="xingmu"><a href="javascript:OrderByName('Logstyle')" class="sd"><b>类型</b></a> <span id="Show_Oder_Logstyle"></span></td>
  295.   <td align="center" class="xingmu">用户信息</td>
  296.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  297.     </tr>
  298.     <%
  299. response.Write( Get_Card( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  300. %>
  301.   </form>
  302. </table>
  303. <%End Sub
  305. Sub Add_Edit()
  306. Dim LogID,Bol_IsEdit
  307. Dim UserNum,UserLog,LogCont
  308. Bol_IsEdit = false
  309. if request.QueryString("Act")="Edit" then 
  310. LogID = request.QueryString("LogID")
  311. if LogID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的LogID没有提供</li>") : response.End()
  312. VClass_Sql = "select LogID,LogType,UserNumber,points,moneys,LogTime,LogContent,Logstyle from FS_ME_Log where LogID="&LogID
  313. Set VClass_Rs = CreateObject(G_FS_RS)
  314. VClass_Rs.Open VClass_Sql,User_Conn,1,1
  315. if VClass_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  316. Bol_IsEdit = True
  317. UserNum = VClass_Rs(2) : UserLog = VClass_Rs(1) : LogCont = VClass_Rs(6)
  318. end if
  319. %>
  320. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  321.   <form name="form_Save" id="form_Save" onSubmit="return Validator.Validate(this,3);" method="post" action="?Act=Save">
  322.     <tr  class="hback"> 
  323.       <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>
  324. </tr>
  325.     <tr  class="hback"> 
  326.       <td align="right">日志类型</td>
  327.       <td>
  328.    <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">
  329.     <select style="width:120" name="select11" onChange="frm_LogType.value=this.options[this.selectedIndex].value">
  330.     <option value="">---请选择---</option>
  331.   <%=Get_FildValue_List("select distinct LogType from FS_ME_Log",UserLog,1)%>
  332.  </select>  
  333.   </td>
  334.     </tr>
  335.     <tr  class="hback"> 
  336.       <td align="right">会员编号</td>
  337.       <td>
  338.    <input type="text" readonly="" name="frm_UserNumber" size="40" value="<%if Bol_IsEdit then response.Write(UserNum) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
  339.       </td>
  340.     </tr>
  341.     <tr  class="hback"> 
  342.       <td align="right">交易积分</td>
  343.       <td>
  344.    <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">
  345.   </td>
  346.     </tr>
  348.     <tr  class="hback"> 
  349.       <td align="right">交易金额</td>
  350.       <td>
  351.   <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">
  352.    <%=Sys_MoneyName%>
  353.   </td>
  355.     <tr  class="hback"> 
  356.       <td align="right">交易日期</td>
  357.       <td>
  358.    <input type="text" name="frm_LogTime" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(5)) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
  359.   </td>
  360.     </tr>
  362.     <tr  class="hback"> 
  363.       <td align="right">交易说明</td>
  364.       <td>
  365.    <textarea name="frm_LogContent" cols="40" datatype="Compare" msg="必须&gt;=0" to="0" operator="GreaterThanEqual"><%if Bol_IsEdit then response.Write(LogCont) end if%></textarea>
  366.   </td>
  367.     </tr>
  368.     <tr  class="hback"> 
  369.       <td align="right">类型</td>
  370.       <td>
  371.         <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%>>
  372.           增加   
  373.         <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%>>
  374.           减少
  375.   </td>
  376.     </tr>
  378.     </tr>
  379.     <tr  class="hback"> 
  380.       <td colspan="4">
  381.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  382.           <tr> 
  383.             <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%>-->
  384.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  385.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("Integral_MoreInfo.asp?Act=Del&LogID="&LogID)%>'">
  386.            </td>
  387.           </tr>
  388.         </table>
  389.       </td>
  390.     </tr>
  391.   </form>
  392. </table>
  393. <%End Sub
  395. Sub Search()
  396. %>
  398. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  399.   <form name="form1" onSubmit="return Validator.Validate(this,3)" method="post" action="?Act=SearchGo">
  400.     <tr  class="hback"> 
  401.       <td colspan="3" align="left" class="xingmu" >查询会员消费清单</td>
  402.     </tr>
  403. <tr  class="hback"> 
  404.       <td align="right">日志类型</td>
  405.       <td>
  406.    <input type="text" name="frm_LogType" size="40" value="">
  407.     <select style="width:120" name="select11" onChange="frm_LogType.value=this.options[this.selectedIndex].value">
  408.     <option value="">---请选择---</option>
  409.   <%=Get_FildValue_List("select distinct LogType from FS_ME_Log","",1)%>
  410.  </select>  
  411.         模糊查询 </td>
  412.     </tr>
  413.     <tr  class="hback"> 
  414.       <td align="right">会员编号</td>
  415.       <td>
  416.    <input type="text" name="frm_UserNumber" size="40" value="">
  417.         模糊查询 </td>
  418.     </tr>
  419.     <tr  class="hback"> 
  420.       <td align="right">交易积分</td>
  421.       <td>
  422.    <select name="JF1" style="width:55">
  423.      <option value="" selected="selected"></option>
  424.      <option value="*">*</option>
  425.         <option value="&gt;">&gt;</option>
  426.         <option value="&lt;">&lt;</option>
  427.         <option value="=">=</option>
  428.         <option value="&gt;=">&gt;=</option>
  429.         <option value="&lt;=">&lt;=</option>
  430.         <option value="&lt;&gt;">&lt;&gt;</option>
  431.       </select> 
  432.    <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')">
  433.         数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
  434.     </tr>
  436.     <tr  class="hback"> 
  437.       <td align="right">交易金额</td>
  438.       <td>
  439.    <select name="JB1" style="width:55">
  440.      <option value="" selected="selected"></option>
  441.      <option value="*">*</option>
  442.         <option value="&gt;">&gt;</option>
  443.         <option value="&lt;">&lt;</option>
  444.         <option value="=">=</option>
  445.         <option value="&gt;=">&gt;=</option>
  446.         <option value="&lt;=">&lt;=</option>
  447.         <option value="&lt;&gt;">&lt;&gt;</option>
  448.       </select> 
  449.    <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')">
  450.    <%=Sys_MoneyName%> 数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
  452.     <tr  class="hback"> 
  453.       <td align="right">交易日期</td>
  454.       <td>
  455.    <select name="RQ" style="width:55">
  456.      <option value="" selected="selected"></option>
  457.      <option value="*">*</option>
  458.         <option value="&gt;">&gt;</option>
  459.         <option value="&lt;">&lt;</option>
  460.         <option value="=">=</option>
  461.         <option value="&gt;=">&gt;=</option>
  462.         <option value="&lt;=">&lt;=</option>
  463.         <option value="&lt;&gt;">&lt;&gt;</option>
  464.       </select> 
  465.    <input type="text" name="frm_LogTime" size="17" value="" readonly>
  466.         <input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_LogTime);"> 
  467.         日期,可在开头加上简单比较符号,*号表示模糊查询 </td>
  468.     </tr>
  470.     <tr  class="hback"> 
  471.       <td align="right">交易说明</td>
  472.       <td>
  473.    <textarea name="frm_LogContent" cols="40"></textarea>
  474.         模糊查询 </td>
  475.     </tr>
  476.     <tr  class="hback"> 
  477.       <td align="right">类型</td>
  478.       <td>
  479.         <input type="radio" name="frm_Logstyle" value="0" >
  480.           增加   
  481.         <input type="radio" name="frm_Logstyle" value="1" >
  482.           减少
  483.   </td>
  484.     </tr>
  485. <tr  class="hback"> 
  486.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  487.           <tr> 
  488.             <td align="center"> <input type="submit" name="submit" value=" 执行查询 " /> 
  489.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " /> 
  490.             </td>
  491.           </tr>
  492.         </table></td>
  493.     </tr>
  494.   </form>
  495. </table>
  497. <%End Sub%>
  498. </body>
  499. <%
  500. Set VClass_Rs=nothing
  501. User_Conn.close
  502. Set User_Conn=nothing
  503. %>
  504. <script language="JavaScript">
  505. <!--//判断后将排序完善.字段名后面显示指示
  506. //打开后根据规则显示箭头
  507. var Req_FildName;
  508. if (Old_Sql.indexOf("filterorderby=")>-1)
  509. {
  510. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  511. for(var ii=0;ii<tmp_arr_.length;ii++)
  512. {
  513. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  514. {
  515. if(Old_Sql.indexOf("csed")>-1)
  516. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  517. else
  518. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  519. }
  520. }
  521. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  522. {
  523. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  524. {
  525. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  526. }
  527. else
  528. {
  529. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  530. }
  531. }
  532. }
  533. ///////////////////////////////////////////////////////// 
  534. -->
  535. </script>
  536. </html>
  537. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->