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

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

数据库编程

开发平台：

ASP/ASPX

Integral.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. if not MF_Check_Pop_TF("ME_Intergel") then Err_Show
  14. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
  15. int_RPP=15 '设置每页显示数目
  16. int_showNumberLink_=10 '数字导航显示数目
  17. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  18. str_nonLinkColor_="#999999" '非热链接颜色
  19. toF_="<font face=webdings>9</font>"    '首页 
  20. toP10_=" <font face=webdings>7</font>" '上十
  21. toP1_=" <font face=webdings>3</font>" '上一
  22. toN1_=" <font face=webdings>4</font>" '下一
  23. toN10_=" <font face=webdings>8</font>" '下十
  24. toL_="<font face=webdings>:</font>" '尾页
  26. set VClass_Rs=User_Conn.execute("select top 1 MoneyName from FS_ME_SysPara")
  27. if not VClass_Rs.eof then 
  28. Sys_MoneyName = VClass_Rs(0)
  29. end if
  30. VClass_Rs.close
  32. Function Get_Card(Add_Sql,orderby)
  33. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  34. Str_Tmp = "UserID,UserNumber,UserName,Sex,Integral,FS_Money"
  35. This_Fun_Sql = "select "&Str_Tmp&" from FS_ME_Users"
  36. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  37. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  38. if request.QueryString("Act")="SearchGo" then 
  39. Arr_Tmp = split(Str_Tmp,",")
  40. for each Str_Tmp in Arr_Tmp
  41. if Trim(request("frm_"&Str_Tmp))<>"" then 
  42. Req_Str = NoSqlHack(Trim(request("frm_"&Str_Tmp)))
  43. if Str_Tmp="FS_Money" then
  44. Req_Str = request("jb1")& Req_Str
  45. elseif  Str_Tmp="Integral" then
  46. Req_Str = request("jf1")& Req_Str
  47. end if
  48. select case Str_Tmp
  49. case "UserID","Integral","FS_Money"
  50. ''数字,日期
  51. regxp = "|<|>|=|<=|>=|<>|"
  52. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  53. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  54. elseif instr(Req_Str,"*")>0 then 
  55. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  56. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  57. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  58. else
  59. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  60. end if
  61. case else
  62. ''字符
  63. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  64. end select 
  65. end if
  66. next
  67. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  68. 'response.End()
  69. end if
  70. Str_Tmp = ""
  71. On Error Resume Next
  72. Set VClass_Rs = CreateObject(G_FS_RS)
  73. if Err<>0 then 
  74. Err.Clear
  75. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  76. response.End()
  77. end if
  78. VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
  79. IF VClass_Rs.eof THEN
  80.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  81. else
  82. VClass_Rs.PageSize=int_RPP
  83. cPageNo=NoSqlHack(Request.QueryString("Page"))
  84. If cPageNo="" Then cPageNo = 1
  85. If not isnumeric(cPageNo) Then cPageNo = 1
  86. cPageNo = Clng(cPageNo)
  87. If cPageNo<=0 Then cPageNo=1
  88. If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount 
  89. VClass_Rs.AbsolutePage=cPageNo
  91.   FOR int_Start=1 TO int_RPP 
  92. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  93. Get_Html = Get_Html & "<td align=""center""><a href=""Integral.asp?Act=Edit&UserID="&VClass_Rs("UserID")&""" class=""otherset"" title='点击修改'>"&VClass_Rs("UserNumber")&"</a></td>" & vbcrlf
  94. Get_Html = Get_Html & "<td align=""center""><a href=""Integral.asp?Act=Edit&UserID="&VClass_Rs("UserID")&""" class=""otherset"" title='点击修改'>"&VClass_Rs("UserName")&"</a></td>" & vbcrlf
  95. for ii=3 to 5
  96. select case ii
  97. case 3 
  98. if VClass_Rs(ii)=1 then 
  99. Str_Tmp="女"
  100. else
  101. Str_Tmp="男"
  102. end if
  103. case 4
  104. Str_Tmp = VClass_Rs(ii) & "点"
  105. case 5
  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_MoreInfo.asp?Act=View&Add_Sql="&server.URLEncode( Encrypt("UserNumber='"&VClass_Rs("UserNumber")&"'") )&"&UserID="&VClass_Rs("UserID")&""" class=""otherset"" title='查看详细清单'>查看明细</a></td>" & vbcrlf
  113. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" "&CheckStr&" name=""UserID"" id=""UserID"" value="""&VClass_Rs("UserID")&""" /></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
  120. 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
  121. Get_Html = Get_Html & fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  122. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  123. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  124. Get_Html = Get_Html &"</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 
  157. Sub Del()
  158. if not MF_Check_Pop_TF("ME019") then Err_Show '权限判断
  159. Dim Str_Tmp
  160. if request.QueryString("UserID")<>"" then 
  161. User_Conn.execute("Delete from FS_ME_Users where UserID = "&request.QueryString("UserID"))
  162. else
  163. Str_Tmp = request.form("UserID")
  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_Users where UserID in ("&Str_Tmp&")")
  167. end if
  168. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Integral.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  169. End Sub
  170. ''================================================================
  172. Sub Save()
  173. Dim Str_Tmp,Arr_Tmp,UserID
  174. Str_Tmp = "Integral,FS_Money"
  175. Arr_Tmp = split(Str_Tmp,",")
  176. UserID = NoSqlHack(request.Form("UserID"))
  177. if not isnumeric(UserID) or UserID = "" then UserID = 0 
  178. VClass_Sql = "select "&Str_Tmp&" from FS_ME_Users where UserID="&UserID
  179. Set VClass_Rs = CreateObject(G_FS_RS)
  180. VClass_Rs.Open VClass_Sql,User_Conn,3,3
  181. if UserID > 0 then 
  182. ''修改
  183. if not MF_Check_Pop_TF("ME002") then Err_Show '权限判断
  184. for each Str_Tmp in Arr_Tmp
  185. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  186. next
  187. VClass_Rs.update
  188. VClass_Rs.close
  189. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Integral.asp?Act=Edit&UserID="&UserID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  190. else
  191. ''新增
  192. if not MF_Check_Pop_TF("ME002") then Err_Show '权限判断
  193. VClass_Rs.addnew
  194. for each Str_Tmp in Arr_Tmp
  195. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  196. next
  197. VClass_Rs.update
  198. VClass_Rs.close
  199. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Integral.asp?Act=Add" ) &"ErrCodes=<li>恭喜，新增成功。</li>")
  200. end if
  201. End Sub
  202. ''=========================================================
  203. %>
  204. <html xmlns="http://www.w3.org/1999/xhtml">
  205. <HEAD>
  206. <TITLE>FoosunCMS</TITLE>
  207. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  208. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  209. <script language="JavaScript" type="text/JavaScript">
  210. <!--
  212. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  213.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  214.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  215.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  216. }
  217. MM_reloadPage(true);
  219. //点击标题排序
  220. /////////////////////////////////////////////////////////
  221. var Old_Sql = document.URL;
  222. function OrderByName(FildName)
  223. {
  224. var New_Sql='';
  225. var oldFildName="";
  226. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  227. {
  228. if (Old_Sql.indexOf("=")>-1)
  229. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  230. else
  231. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  232. }
  233. else
  234. {
  235. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  236. for(var ii=0;ii<tmp_arr_.length;ii++)
  237. {
  238. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  239. {
  240. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  241. break;
  242. }
  243. }
  244. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace(oldFildName,FildName):New_Sql = Old_Sql.replace(oldFildName,FildName+"csed");
  245. }
  246. //alert(New_Sql);
  247. location = New_Sql;
  248. }
  249. /////////////////////////////////////////////////////////
  250. -->
  251. </script>
  252. </HEAD>
  253. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  254. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  255. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  256. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  257.   <tr  class="hback"> 
  258.     <td class="xingmu" >积分总管理</td>
  259.   </tr>
  260.   <tr  class="hback"> 
  261.     <td><a href="Integral.asp?Act=View">管理首页</a> | <a href="Integral.asp?Act=Search">查询</a> | <a href="javascript:history.back();">返回上一级</a></td>
  262.   </tr>
  263. </table>
  264. <%
  265. '******************************************************************
  266. select case request.QueryString("Act")
  267. case "","View","SearchGo"
  268. View
  269. case "Add","Edit"
  270. Add_Edit
  271. case "Save"
  272. Save
  273. case "Del"
  274. Del
  275. case "Search"
  276. Search
  277. end select
  279. '******************************************************************
  280. Sub View()%>
  281. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  282.   <form name="form1" id="form1" method="post" action="?Act=Del">
  283.     <tr  class="hback"> 
  284.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('UserID')" class="sd"><b>〖用户编号〗</b></a> <span id="Show_Oder_UserID"></span></td>
  285.       <td align="center" class="xingmu"><a href="javascript:OrderByName('UserName')" class="sd"><b>用户名</b></a> <span id="Show_Oder_UserName"></span></td>
  286.   <td align="center" class="xingmu"><a href="javascript:OrderByName('Sex')" class="sd"><b>性别</b></a> <span id="Show_Oder_Sex"></span></td>
  287.       <td align="center" class="xingmu"><a href="javascript:OrderByName('Integral')" class="sd"><b>积分</b></a> <span id="Show_Oder_Integral"></span></td>
  288.   <td align="center" class="xingmu"><a href="javascript:OrderByName('FS_Money')" class="sd"><b>金币</b></a> <span id="Show_Oder_FS_Money"></span></td>
  289.   <td align="center" class="xingmu">查看明细</td>
  290.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  291.     </tr>
  292.     <%
  293. response.Write( Get_Card( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  294. %>
  295.   </form>
  296. </table>
  297. <%End Sub
  299. Sub Add_Edit()
  300. Dim UserID,Bol_IsEdit
  301. Bol_IsEdit = false
  302. if request.QueryString("Act")="Edit" then 
  303. UserID = request.QueryString("UserID")
  304. if UserID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的UserID没有提供</li>") : response.End()
  305. VClass_Sql = "select UserID,UserNumber,UserName,Sex,Integral,FS_Money from FS_ME_Users where UserID="&UserID
  306. Set VClass_Rs = CreateObject(G_FS_RS)
  307. VClass_Rs.Open VClass_Sql,User_Conn,1,1
  308. if VClass_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  309. Bol_IsEdit = True
  310. end if
  311. %>
  312. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  313.   <form name="form_Save" id="form_Save" onSubmit="return Validator.Validate(this,3);" method="post" action="?Act=Save">
  314.     <tr  class="hback"> 
  315.       <td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then response.Write("修改用户积分等信息<input type=""hidden"" name=""UserID"" value="""&VClass_Rs(0)&""">") else response.Write("用户积分等信息") end if%></td>
  316. </tr>
  317.     <tr  class="hback"> 
  318.       <td align="right">用户编号</td>
  319.       <td>
  320. <%if Bol_IsEdit then response.Write(VClass_Rs(1)) end if%>
  321.   </td>
  322.     </tr>
  323.     <tr  class="hback"> 
  324.       <td align="right">用户名</td>
  325.       <td>
  326. <%if Bol_IsEdit then response.Write(VClass_Rs(2)) end if%>
  327.   </td>
  328.     </tr>
  329.     <tr  class="hback"> 
  330.       <td align="right">性别</td>
  331.       <td>
  332. <%if Bol_IsEdit then if VClass_Rs(3)=0 then response.Write("男") else response.Write("女") end if end if%>
  333.   </td>
  334.     </tr>
  337.     <tr  class="hback"> 
  338.       <td align="right">积分</td>
  339.       <td>
  340.   <input type="text" name="frm_Integral" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(4)) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  341.       </td>
  342.     </tr>
  343.     <tr  class="hback"> 
  344.       <td align="right">金币</td>
  345.       <td>
  346.   <input type="text" name="frm_FS_Money" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(5)) end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  347.    <%=Sys_MoneyName%>
  348.   </td>
  350.     </tr>
  351.     <tr  class="hback"> 
  352.       <td colspan="4">
  353.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  354.           <tr> 
  355.             <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%>-->
  356.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  357.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("Integral.asp?Act=Del&UserID="&UserID)%>'">
  358.             </td>
  359.           </tr>
  360.         </table>
  361.       </td>
  362.     </tr>
  363.   </form>
  364. </table>
  365. <%End Sub
  367. Sub Search()
  368. %>
  370. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  371.   <form name="form1" onSubmit="return Validator.Validate(this,3)" method="post" action="?Act=SearchGo">
  372.     <tr  class="hback"> 
  373.       <td colspan="3" align="left" class="xingmu" >查询会员积分</td>
  374.     </tr>
  375.     <tr  class="hback"> 
  376.       <td width="20%" align="right">用户编号</td>
  377.       <td> <input type="text" name="frm_UserNumber" size="40" value="">
  378.         模糊查询 </td>
  379.     </tr>
  380.     <tr  class="hback"> 
  381.       <td width="20%" align="right">用户名</td>
  382.       <td> <input type="text" name="frm_UserName" size="40" value="">
  383.         模糊查询 </td>
  384.     </tr>
  385.     <tr  class="hback"> 
  386.       <td width="20%" align="right">性别</td>
  387.       <td> 
  388.          <input type="radio" name="frm_sex" value="0">男
  389.          <input type="radio" name="frm_sex" value="1">女
  390.  </td>
  391.     </tr>
  392.     <tr  class="hback"> 
  393.       <td width="20%" align="right">积分</td>
  394.       <td> <select name="JF1" style="width:55">
  395.         <option value="" selected="selected"></option>
  396. <option value="*">*</option>
  397.         <option value="&gt;">&gt;</option>
  398.         <option value="&lt;">&lt;</option>
  399.         <option value="=">=</option>
  400.         <option value="&gt;=">&gt;=</option>
  401.         <option value="&lt;=">&lt;=</option>
  402.         <option value="&lt;&gt;">&lt;&gt;</option>
  403.       </select>
  404.       <input type="text" name="frm_Integral" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  405.       数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
  406.     </tr>
  407.     <tr  class="hback"> 
  408.       <td align="right">金币</td>
  409.       <td> <select name="JB1" style="width:55">
  410.      <option value="" selected="selected"></option>
  411.      <option value="*">*</option>
  412.         <option value="&gt;">&gt;</option>
  413.         <option value="&lt;">&lt;</option>
  414.         <option value="=">=</option>
  415.         <option value="&gt;=">&gt;=</option>
  416.         <option value="&lt;=">&lt;=</option>
  417.         <option value="&lt;&gt;">&lt;&gt;</option>
  418.       </select>
  419.          <input type="text" name="frm_FS_Money" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  420.       <%=Sys_MoneyName%> 数字,可在开头加上简单比较符号,*号表示模糊查询</td>
  421.     </tr>
  422.     <tr  class="hback"> 
  423.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  424.           <tr> 
  425.             <td align="center"> <input type="submit" name="submit" value=" 执行查询 " /> 
  426.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " /> 
  427.             </td>
  428.           </tr>
  429.         </table></td>
  430.     </tr>
  431.   </form>
  432. </table>
  434. <%End Sub%>
  435. </body>
  436. <%
  437. Set VClass_Rs=nothing
  438. User_Conn.close
  439. Set User_Conn=nothing
  440. %>
  441. <script language="JavaScript">
  442. <!--//判断后将排序完善.字段名后面显示指示
  443. //打开后根据规则显示箭头
  444. var Req_FildName;
  445. if (Old_Sql.indexOf("filterorderby=")>-1)
  446. {
  447. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  448. for(var ii=0;ii<tmp_arr_.length;ii++)
  449. {
  450. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  451. {
  452. if(Old_Sql.indexOf("csed")>-1)
  453. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  454. else
  455. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  456. }
  457. }
  458. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  459. {
  460. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  461. {
  462. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  463. }
  464. else
  465. {
  466. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  467. }
  468. }
  469. }
  470. ///////////////////////////////////////////////////////// 
  471. -->
  472. </script>
  473. </html>
  474. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->