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

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

数据库编程

开发平台：

ASP/ASPX

Card.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,sErrStr
  8. Dim CheckStr,Need_Do_Pwd_Str
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_Session_TF
  12. if not MF_Check_Pop_TF("ME_Card") 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. Function Get_Card(Add_Sql,orderby)
  27. Dim Get_Html,This_Fun_Sql,ii,Str_Tmp,Arr_Tmp,New_Search_Str,Req_Str,regxp
  28. Str_Tmp = "CardID,CardNumber,CardMoney,CardDateNumber,CardPoint,isBuy,CardOverDueTime,UserNumber,UserTime  ,AddTime,IsUse,CardPasswords"
  29. This_Fun_Sql = "select "&Str_Tmp&" from FS_ME_Card"
  30. if request.QueryString("Act")="SearchGo" then 
  31. Arr_Tmp = split(Str_Tmp,",")
  32. for each Str_Tmp in Arr_Tmp
  33. Req_Str = NoSqlHack(Trim(request(Str_Tmp)))
  34. if Req_Str<>"" then 
  35. select case Str_Tmp
  36. case "CardMoney","CardDateNumber","CardPoint","IsUse","isBuy"   ,"CardOverDueTime","UserTime","AddTime"
  37. ''数字,日期
  38. regxp = "|<|>|=|<=|>=|<>|"
  39. if instr(regxp,"|"&left(Req_Str,1)&"|")>0 or instr(regxp,"|"&left(Req_Str,2)&"|")>0 then 
  40. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" "& Req_Str
  41. elseif instr(Req_Str,"*")>0 then 
  42. if left(Req_Str,1)="*" then Req_Str = "%"&mid(Req_Str,2)
  43. if right(Req_Str,1)="*" then Req_Str = mid(Req_Str,1,len(Req_Str) - 1) & "%"
  44. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" like '"& Req_Str &"'"
  45. else
  46. New_Search_Str = and_where( New_Search_Str ) & Str_Tmp &" = "& Req_Str
  47. end if
  48. case else
  49. ''字符
  50. New_Search_Str = and_where(New_Search_Str) & Search_TextArr(Req_Str,Str_Tmp,"")
  51. end select 
  52. end if
  53. next
  54. if New_Search_Str<>"" then This_Fun_Sql = and_where(This_Fun_Sql) & replace(New_Search_Str," where ","")
  55. end if
  56. Str_Tmp = "":ii=0
  57. if Add_Sql<>"" then This_Fun_Sql = and_where(This_Fun_Sql) &" "& Decrypt(Add_Sql)
  58. if orderby<>"" then This_Fun_Sql = This_Fun_Sql &"  Order By "& replace(orderby,"csed"," Desc")
  59. On Error Resume Next
  60. Set VClass_Rs = CreateObject(G_FS_RS)
  61. VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
  62. if Err<>0 then 
  63. Err.Clear
  64. response.Redirect("../error.asp?ErrCodes=<li>查询出错："&Err.Description&"</li><li>请检查字段类型是否匹配.</li>")
  65. response.End()
  66. end if
  67. IF VClass_Rs.eof THEN
  68.   response.Write("<tr class=""hback""><td colspan=15>暂无数据.</td></tr>") 
  69. else
  70. VClass_Rs.PageSize=int_RPP
  71. cPageNo=NoSqlHack(Request.QueryString("Page"))
  72. If cPageNo="" Then cPageNo = 1
  73. If not isnumeric(cPageNo) Then cPageNo = 1
  74. cPageNo = Clng(cPageNo)
  75. If cPageNo<=0 Then cPageNo=1
  76. If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount 
  77. VClass_Rs.AbsolutePage=cPageNo
  79.   FOR int_Start=1 TO int_RPP 
  80. Get_Html = Get_Html & "<tr class=""hback"">" & vbcrlf
  81. Get_Html = Get_Html & "<td align=""center""><a href=""Card.asp?Act=Edit&CardID="&VClass_Rs("CardID")&""" class=""otherset"" title='点击修改'>"&VClass_Rs("CardNumber")&"</a></td>" & vbcrlf
  82. for ii=2 to 8
  83. select case ii
  84. case 2
  85. Str_Tmp = VClass_Rs(ii) & "元"
  86. case 5 
  87. if VClass_Rs(ii)=1 then 
  88. Str_Tmp="已售出"
  89. else
  90. Str_Tmp="未售出"
  91. end if
  92. case else
  93. Str_Tmp = VClass_Rs(ii)
  94. end select
  95. Get_Html = Get_Html & "<td align=""center"">"& Str_Tmp & "</td>" & vbcrlf
  96. next
  97. Get_Html = Get_Html & "<td align=""center"" class=""ischeck""><input type=""checkbox"" "&CheckStr&" name=""DelID"" id=""DelID"" value="""&VClass_Rs("CardID")&""" /></td>" & vbcrlf
  98. Get_Html = Get_Html & "</tr>" & vbcrlf
  99. CheckStr = ""
  100. VClass_Rs.MoveNext
  101.   if VClass_Rs.eof or VClass_Rs.bof then exit for
  102.       NEXT
  103. END IF
  104. 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
  105. Get_Html = Get_Html & fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)  & vbcrlf
  106. Get_Html = Get_Html & "</td><td align=right><input type=""submit"" name=""submit"" value="" 删除 "" onclick=""javascript:return confirm('确定要删除所选项目吗?');""></td>"
  107. Get_Html = Get_Html &"</tr></table>"&vbNewLine&"</td></tr>"
  108. VClass_Rs.close
  109. Get_Card = Get_Html
  110. End Function
  112. Sub Del()
  113. if not MF_Check_Pop_TF("ME019") then Err_Show '权限判断
  114. Dim Str_Tmp
  115. if request.QueryString("CardID")<>"" then 
  116. User_Conn.execute("Delete from FS_ME_Card where CardID = "&request.QueryString("CardID"))
  117. else
  118. Str_Tmp = request.form("DelID")
  119. if Str_Tmp="" then response.Redirect("../error.asp?ErrCodes=<li>你必须至少选择一个进行删除。</li>")
  120. Str_Tmp = replace(Str_Tmp," ","")
  121. User_Conn.execute("Delete from FS_ME_Card where CardID in ("&Str_Tmp&")")
  122. end if
  123. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Card.asp?Act=View" )&"&ErrCodes=<li>恭喜，删除成功。</li>")
  124. End Sub
  125. ''================================================================
  126. Function CheckCardCF(CardNumber)
  127. ''检查录入的卡是否重复,重复则返回卡号,不重复则返回""
  128. Dim CheckCardCF_Rs
  129. Set CheckCardCF_Rs = CreateObject(G_FS_RS)
  130. CheckCardCF_Rs.Open "select Count(*) from FS_ME_Card where CardNumber='"&CardNumber&"'",User_Conn,1,1
  131. if  CheckCardCF_Rs(0)>0 then 
  132. CheckCardCF = CardNumber
  133. else 
  134. CheckCardCF = ""
  135. end if
  136. CheckCardCF_Rs.close
  137. End Function
  139. Sub Save()
  140. Dim CardID,IsOk,Arr_Tmp,Str_Tmp,Arr_Tmp1,Str_Tmp1,Arr_Tmp2,Str_Tmp2,ErrInfo,tmpi
  141. Dim PutNum,CardAddStr,CardNum_Len,CardPwd_Len,Put_i,Put_Rs,Str_Tmp3,Put_Pwd_Type
  142.     Dim Randchar,Randchararr,iR
  143. CardID = NoSqlHack(request.Form("CardID"))
  144. if not isnumeric(CardID) or CardID = "" then CardID = 0
  145. Str_Tmp = "CardNumber,CardPasswords,CardMoney,CardDateNumber,CardPoint,CardOverDueTime,IsUse,isBuy,UserNumber,AddTime,UserTime"
  146. Arr_Tmp = split(Str_Tmp,",")
  147. for tmpi = 2 to 7 
  148. if trim(request.Form("frm_"&Arr_Tmp(tmpi))) = "" then sErrStr = Arr_Tmp(tmpi) : exit for
  149. next
  150. if sErrStr <>"" then response.Redirect("../error.asp?ErrCodes=<li>必要的参数 ["&sErrStr&"] 必须填写完整！！</li>")  : response.End()
  151. VClass_Sql = "select "&Str_Tmp&" from FS_ME_Card where CardID="&CardID
  152. Set VClass_Rs = CreateObject(G_FS_RS)
  153. VClass_Rs.Open VClass_Sql,User_Conn,3,3
  154. if CardID >0 then 
  155. ''修改
  156. if not MF_Check_Pop_TF("ME018") then Err_Show '权限判断
  157. for each Str_Tmp in Arr_Tmp
  158. if Str_Tmp = "CardPasswords" then 
  159. VClass_Rs(Str_Tmp) = Encrypt(NoSqlHack(request.Form("frm_"&Str_Tmp))) ''加密
  160. else
  161. if request.Form("frm_"&Str_Tmp)<>"" then 
  162. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  163. else
  164. VClass_Rs(Str_Tmp) = null
  165. end if
  166. end if
  167. next
  168. VClass_Rs.update
  169. VClass_Rs.close
  170. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Card.asp?Act=Edit&CardID="&CardID )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  171. else
  172. ''新增
  173.   if not MF_Check_Pop_TF("ME017") then Err_Show '权限判断
  174.   if request.Form("ActPut")=1 then 
  175.   ''批量生成
  176.       Put_Pwd_Type = request.Form("Put_Pwd_Type")
  177.    Put_Pwd_Type = replace(Put_Pwd_Type," ","")
  178.    ''卡的密码构成方式。数字，字母    
  179.    PutNum=Trim(request.Form("Put_PutNum"))
  180.    if not isnumeric(PutNum) then PutNum = 1
  181.    CardAddStr=NoSqlHack(Trim(request.Form("Put_CardAddStr")))
  182.    CardNum_Len=Trim(request.Form("Put_CardNum_Len"))
  183.    if not isnumeric(CardNum_Len) then CardNum_Len = 12
  184.    CardPwd_Len=Trim(request.Form("Put_CardPwd_Len"))
  185.    if not isnumeric(CardPwd_Len) then CardPwd_Len = 8
  186.    ''如果前缀长度比冲值卡长度-2还大,则冲值卡长度=冲值卡长度+前缀长度＋２
  187.    if len(CardAddStr) > CardNum_Len-2 then CardNum_Len = len(CardAddStr) + CardNum_Len + 2
  188.  On Error Resume Next
  189.    if User_Conn.execute("select Count(*) from FS_ME_CardPut")(0)=0 then 
  190.     User_Conn.execute("insert into FS_ME_CardPut (PutNum,CardAddStr,CardNum_Len,CardPwd_Len) VALUES ("&PutNum&",'"&CardAddStr&"',"&CardNum_Len&","&CardPwd_Len&")")
  191.    else
  192.     User_Conn.execute("update FS_ME_CardPut set PutNum="&PutNum&",CardAddStr='"&CardAddStr&"',CardNum_Len="&CardNum_Len&",CardPwd_Len="&CardPwd_Len&"")
  193.    end if
  194.    If Err.Number<>0 Then Err.Clear : response.Redirect("../Error.asp?ErrCodes=<li>批量生成卡基础设置存盘失败.请检查拼写是否正确.</li>") : response.End()
  195.    Str_Tmp = "CardMoney,CardDateNumber,CardPoint,CardOverDueTime,IsUse,UserNumber,AddTime,isBuy"
  196.    Arr_Tmp = split(Str_Tmp,",")  
  197.  for Put_i = 1 to PutNum
  198.    Str_Tmp1 = "" :   Str_Tmp2 = "" :   Str_Tmp3 = ""
  199.    ''生成卡号，密码并入库
  200.    ''''''''''''''添加到FS_ME_CardPut表
  201.    Str_Tmp2=Str_Tmp2&GetRamCode(CardPwd_Len)
  202.    'response.Write("密码"&Put_i&"次："&Str_Tmp2&"<br>")
  203.    ''''''''''''''''''''''''''''''''''
  204.    ''卡号加密，取消06-07-05
  205.    ''第一次
  206.    Str_Tmp1 = Str_Tmp1 &GetRamCode( CardNum_Len - len(CardAddStr) )
  207.    '''''''''''''''''''''''生成后再检查数据库,若存在则再生成一次
  208.    do while CheckCardCF(CardAddStr & Str_Tmp1)<>""    
  209.    Str_Tmp1 = GetRamCode( CardNum_Len - len(CardAddStr) )  
  210.    loop
  211.    'response.Write("卡号"&Put_i&"次："&Str_Tmp1&"<br>")
  212.    '''''''''''''''''''''''
  213.    On Error Resume Next
  214.    VClass_Rs.AddNew    
  215.    ''''''''''''''添加到FS_ME_Card表
  216.    Str_Tmp3 = ""
  217.    VClass_Rs("CardNumber") = CardAddStr & Str_Tmp1
  218.    VClass_Rs("CardPasswords") = Encrypt(Str_Tmp2)
  219.    for each Str_Tmp3 in Arr_Tmp
  220. if request.Form("frm_"&Str_Tmp3)<>"" then 
  221. VClass_Rs(Str_Tmp3) = NoSqlHack(request.Form("frm_"&Str_Tmp3))
  222. else
  223. VClass_Rs(Str_Tmp3) = null
  224. end if
  225. 'response.Write(Str_Tmp3&":"&NoSqlHack(request.Form("frm_"&Str_Tmp3))&"<br>")
  226.    next
  227.    VClass_Rs.update
  228.    'If Err.Number<>0 Then Err.Clear : response.Redirect("../Error.asp?ErrCodes=<li>卡数据存盘失败.请检查拼写是否正确.</li>") : response.End()
  229.    'response.Write("Str_Tmp1:"&Str_Tmp1&"  "&"Str_Tmp2:"&Str_Tmp2&"  "&"Str_Tmp3:"&Str_Tmp3&"<br>")
  230.      next
  231.        VClass_Rs.close 
  232.  'response.End()
  233.  response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Card.asp" )&"&ErrCodes=<li>恭喜，批量生成成功。</li>")    
  234.   else
  235.   '''''''''''''''''''''  
  236. if request.Form("AddMode")=1 then 
  237.   ''单张
  238. if CheckCardCF(NoSqlHack(request.Form("frm_CardNumber")))<>"" then 
  239. response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>卡号:"&request.Form("frm_CardNumber")&"已存在。</li>")
  240. response.End()
  241. end if
  242.   VClass_Rs.AddNew
  243.   for each Str_Tmp in Arr_Tmp
  244. if Str_Tmp = "CardPasswords" then 
  245. VClass_Rs(Str_Tmp) = Encrypt(NoSqlHack(request.Form("frm_"&Str_Tmp))) ''加密
  246. else
  247. if request.Form("frm_"&Str_Tmp)<>"" then 
  248. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  249. else
  250. VClass_Rs(Str_Tmp) = null
  251. end if
  252. end if
  253. 'response.Write(NoSqlHack(request.Form("frm_"&Str_Tmp))&":"&Str_Tmp&"<br>")
  254.        next
  255.   VClass_Rs.update
  256.   Put_i=1
  257. else
  258.   ''批量添加多张
  259.   Str_Tmp1 = Trim(request.form("More_Mode_Area"))
  260.   if Str_Tmp1="" or instr(Str_Tmp1,"|")=0 or len(Str_Tmp1)<3 then 
  261.    response.Redirect("../Error.asp?ErrCodes=批量添加时，卡号和密码不能为空或格式不正确或长度不够。") : response.End()
  262.   else
  263.    ErrInfo = "" : Put_i=0 : iR=0  : Str_Tmp2 = ""
  264.    Str_Tmp = "CardMoney,CardDateNumber,CardPoint,CardOverDueTime,IsUse,UserNumber,AddTime,isBuy"
  265.    Arr_Tmp = split(Str_Tmp,",")
  266.    if instr(Str_Tmp1,"&nbsp;") then Str_Tmp1 = left(Str_Tmp1,len(Str_Tmp1) - len("&nbsp;"))
  267.    Str_Tmp1 = replace(replace(Str_Tmp1,"&nbsp;",vbcr)," ","")
  268.    Arr_Tmp1 = split(Str_Tmp1,vbcr) ''每一行数据
  269.    ErrInfo = ErrInfo & "<li>你提交了: "&ubound(Arr_Tmp1)+1&" 张卡.</li>" 
  270.    '''''''''''''''''''''判断后再造字符串
  271.    for iR = lbound(Arr_Tmp1) to ubound(Arr_Tmp1)
  272.      Arr_Tmp2=split(Arr_Tmp1(iR),"|") ''拆分卡号和密码
  273.   if ubound(Arr_Tmp2)<>1 then 
  274. ErrInfo = ErrInfo & "<li>批量添加中："&asc(Arr_Tmp1(iR))&"未入库，原因：分割符“|”数量不正确。</li>" 
  275.   else
  276. if CheckCardCF( Trim(Arr_Tmp2(0)) ) <> "" then 
  277. ErrInfo = ErrInfo & "<li>卡号: "&Trim(Arr_Tmp2(0))&" 在库中已存在.未入库。</li>"
  278. else
  279. Str_Tmp2 = Str_Tmp2 & Trim(Arr_Tmp2(0)) & "|" & Arr_Tmp2(1) & vbcr
  280. end if
  281.   end if
  282.    next
  283.    
  284.      Str_Tmp1 = Str_Tmp2         
  285.    
  286.   if Str_Tmp2 <> "" then 
  287.   
  288.    Arr_Tmp1 = split(Str_Tmp1,vbcr) ''判断后的每行数据
  289.    for iR = lbound(Arr_Tmp1) to ubound(Arr_Tmp1) - 1
  290.     Arr_Tmp2=split(Arr_Tmp1(iR),"|") ''拆分卡号和密码
  291. ''+=========================
  292. VClass_Rs.Addnew
  293. VClass_Rs("CardNumber") = Trim(Arr_Tmp2(0)) : VClass_Rs("CardPasswords") = Encrypt( Arr_Tmp2(1) )
  294.   for each Str_Tmp in Arr_Tmp
  295. if request.Form("frm_"&Str_Tmp)<>"" then 
  296. VClass_Rs(Str_Tmp) = NoSqlHack(request.Form("frm_"&Str_Tmp))
  297. else
  298. VClass_Rs(Str_Tmp) = null
  299. end if
  300. next
  301. VClass_Rs.update
  302. ''+=========================
  303. Put_i = Put_i + 1
  304.     next
  305. Str_Tmp2 = replace(Str_Tmp2,vbcr,"<br />&nbsp;&nbsp;&nbsp;")
  306. ErrInfo = ErrInfo & "<li>共入库 "&Put_i&" 张卡,分别是: <br />&nbsp;&nbsp;&nbsp;"&Str_Tmp2&"</li>" 
  307.    
  308.    end if
  309.    
  310.   end if
  311. end if
  312.       VClass_Rs.close
  313. 'response.End()
  314. if Put_i>0 then 
  315. response.Redirect("../Success.asp?ErrorUrl="&server.URLEncode( "User/Card.asp?Act=Add" )&"&ErrCodes=<li>恭喜，新增成功。</li>详细信息:"&server.URLEncode(ErrInfo))
  316. else
  317. response.Redirect("../Error.asp?ErrCodes="&server.URLEncode(ErrInfo))
  318. end if
  319.   end if
  320. '''''''''''''''''''''  
  321. end if
  322. End Sub
  323. ''=========================================================
  324. %>
  325. <html xmlns="http://www.w3.org/1999/xhtml">
  326. <HEAD>
  327. <TITLE>FoosunCMS</TITLE>
  328. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  329. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  330. <script language="JavaScript" type="text/JavaScript">
  331. <!--
  332. function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  333.   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
  334.     document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  335.   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
  336. }
  337. MM_reloadPage(true);
  338. //点击标题排序
  339. /////////////////////////////////////////////////////////
  340. var Old_Sql = document.URL;
  341. function OrderByName(FildName)
  342. {
  343. var New_Sql='';
  344. var oldFildName="";
  345. if (Old_Sql.indexOf("&filterorderby=")==-1&&Old_Sql.indexOf("?filterorderby=")==-1)
  346. {
  347. if (Old_Sql.indexOf("=")>-1)
  348. New_Sql = Old_Sql+"&filterorderby=" + FildName + "csed";
  349. else
  350. New_Sql = Old_Sql+"?filterorderby=" + FildName + "csed";
  351. }
  352. else
  353. {
  354. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  355. for(var ii=0;ii<tmp_arr_.length;ii++)
  356. {
  357. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  358. {
  359. oldFildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);
  360. break;
  361. }
  362. }
  363. oldFildName.indexOf("csed")>-1?New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName):New_Sql = Old_Sql.replace('='+oldFildName,'='+FildName+"csed");
  364. }
  365. //alert(New_Sql);
  366. location = New_Sql;
  367. }
  368. /////////////////////////////////////////////////////////
  369. -->
  370. </script>
  371. </HEAD>
  372. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  373. <script language="JavaScript" src="../../FS_Inc/PublicJS_YanZheng.js" type="text/JavaScript"></script>
  374. <script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
  375. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  376. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  377.   <tr  class="hback"> 
  378.     <td class="xingmu" >冲值卡管理</td>
  379.   </tr>
  380.   <tr  class="hback"> 
  381.     <td><a href="Card.asp?Act=View">管理首页</a> | <a href="Card.asp?Act=Add">新建</a> 
  382.       | <a href="Card.asp?Act=Put">批量生成</a> | <a href="Card.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("IsUse=0"))%>">未使用</a> 
  383.       | <a href="Card.asp?Act=View&Add_Sql=<%=Encrypt("IsUse=1")%>">已使用</a> 
  384.   | 
  385.   <% If G_IS_SQL_User_DB=1 then%>
  386.   <a href="Card.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("datediff(s,CardOverdueTime,'"&DateValue(Now())&"')>0"))%>">已过期</a> 
  387.   <%Else%>
  388.   <a href="Card.asp?Act=View&Add_Sql=<%=server.URLEncode(Encrypt("datediff('s',CardOverdueTime,'"&DateValue(Now())&"')>0"))%>">已过期</a>
  389.   <%End if%>
  390.       | <a href="Card.asp?Act=Search">查询</a></td>
  391.   </tr>
  392. </table>
  393. <%
  394. '******************************************************************
  395. select case request.QueryString("Act")
  396. case "","View","SearchGo"
  397. View
  398. case "Add","Edit","Put"
  399. Add_Edit
  400. case "Save"
  401. Save
  402. case "Del"
  403. Del
  404. case "Search"
  405. Search
  406. end select
  408. '******************************************************************
  409. Sub View()%>
  410. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  411.   <form name="form1" id="form1" method="post" action="?Act=Del">
  412.     <tr  class="hback"> 
  413.       <td align="center" class="xingmu" ><a href="javascript:OrderByName('CardNumber')" class="sd"><b>〖卡号〗</b></a> <span id="Show_Oder_CardNumber"></span></td>
  414.       <td align="center" class="xingmu"><a href="javascript:OrderByName('CardMoney')" class="sd"><b>面值</b></a> <span id="Show_Oder_CardMoney"></span></td>
  415.   <td align="center" class="xingmu"><a href="javascript:OrderByName('CardDateNumber')" class="sd"><b>天数</b></a> <span id="Show_Oder_CardDateNumber"></span></td>
  416.       <td align="center" class="xingmu"><a href="javascript:OrderByName('CardPoint')" class="sd"><b>点数</b></a> <span id="Show_Oder_CardPoint"></span></td>
  417.   <td align="center" class="xingmu"><a href="javascript:OrderByName('isBuy')" class="sd"><b>状态</b></a> <span id="Show_Oder_isBuy"></span></td>
  418.       <td align="center" class="xingmu"><a href="javascript:OrderByName('CardOverDueTime')" class="sd"><b>过期时间</b></a> <span id="Show_Oder_CardOverDueTime"></span></td>
  419.   <td align="center" class="xingmu"><a href="javascript:OrderByName('UserNumber')" class="sd"><b>使用者</b></a> <span id="Show_Oder_UserNumber"></span></td>
  420.       <td align="center" class="xingmu"><a href="javascript:OrderByName('UserTime')" class="sd"><b>冲值时间</b></a> <span id="Show_Oder_UserTime"></span></td>
  421.       <td width="2%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
  422.     </tr>
  423.     <%
  424. response.Write( Get_Card( request.QueryString("Add_Sql"),request.QueryString("filterorderby") ) )
  425. %>
  426.   </form>
  427. </table>
  428. <%End Sub
  430. Sub Add_Edit()
  431. Dim CardID,Bol_IsEdit,isuse,UserTime
  432. Bol_IsEdit = false
  433. if request.QueryString("Act")="Edit" then 
  434. CardID = request.QueryString("CardID")
  435. if CardID="" then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>必要的CardID没有提供</li>") : response.End()
  436. VClass_Sql = "select CardID,CardNumber,CardPasswords,CardMoney,CardDateNumber,CardPoint,CardOverDueTime,IsUse,UserNumber,UserTime,AddTime,isBuy from FS_ME_Card where CardID="&CardID
  437. Set VClass_Rs = CreateObject(G_FS_RS)
  438. VClass_Rs.Open VClass_Sql,User_Conn,1,1
  439. if VClass_Rs.eof then response.Redirect("../error.asp?ErrorUrl=&ErrCodes=<li>没有相关的内容,或该内容已不存在.</li>") : response.End()
  440. Bol_IsEdit = True
  441. isuse = VClass_Rs("IsUse")
  442. UserTime = VClass_Rs("UserTime")
  443. if UserTime<>"" then if isdate(UserTime) then UserTime = formatdatetime(UserTime,2)
  444. else
  445. isuse = 0
  446. end if
  447. %>
  448. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  449.   <form name="form_Save" id="form_Save" onSubmit="return Validator.Validate(this,3);" method="post" action="?Act=Save">
  450.     <tr  class="hback"> 
  451.       <td colspan="3" align="left" class="xingmu" ><%if Bol_IsEdit then response.Write("修改点卡信息<input type=""hidden"" name=""CardID"" value="""&VClass_Rs(0)&""">") else response.Write("新增点卡") end if%></td>
  452. </tr>
  453. <!---------->
  454. <tr  class="hback" <%if Bol_IsEdit = True or request.QueryString("Act")="Put" then response.Write(" style=""display='none'"" ") end if%>> 
  455.       <td width="20%" align="right">添加方式</td>
  456.       <td> 
  457.         <input name="AddMode" type="radio" onClick="CNum.style.display='';CPwd.style.display='';More_Mode.style.display='none';frm_CardNumber.require='true';frm_CardPasswords.require='true';More_Mode_Area.require='false';" value="1" checked>
  458.           单张冲值卡   
  459.         <input type="radio" name="AddMode" value="0" onClick="CNum.style.display='none';CPwd.style.display='none';More_Mode.style.display='';frm_CardNumber.require='false';frm_CardPasswords.require='false';More_Mode_Area.require='true';"> 
  460.           批量添加冲值卡
  461.       </td>
  462.     </tr>
  463. <!--多张-->
  464. <tr  class="hback" id="More_Mode" style="display:none"> 
  465.       <td width="20%" align="right">格式文本</td>
  466.       <td> 
  467.    <textarea name="More_Mode_Area" cols="45" rows="10" dataType="Require" min="5" max="10000" msg="长度必须在5-10000之间"></textarea>
  468.         <br>
  469.         分隔符为<span class="tx">|</span>，请按照每行一张卡，回车换行，每张卡格式为“<span class="tx">卡号|密码</span>”
  470.         <br>
  471. <span class="tx">自动生成:
  472.         <input type="text" name="PutCardNum" size="10" value="10" maxlength="8" title="只能数字" onKeyUp="value=value.replace(/[^0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^0-9]/g,''))">
  473. <input type="button" value="Go" onBlur="More_Mode_Area.value=More_Mode_Area.value.replace(/[&nbsp;]/g,'n')" onClick="try{GetCodes(PutCardNum.value)} catch(e){return};More_Mode_Area.focus();"></span>
  474. </td>
  475.     </tr>
  476. <!--单张-->
  477. <tr  class="hback" id="CNum" <%if request.QueryString("Act")="Put" then response.Write(" style=""display='none'"" ") end if%>> 
  478.       <td width="20%" align="right">卡号</td>
  479.       <td> 
  480.         <input type="text" name="frm_CardNumber" size="40" value="<%if Bol_IsEdit then response.Write( VClass_Rs(1) ) else if request.QueryString("Act")<>"Search" then response.Write(GetRamCode(14)) end if end if%>"<%if request.QueryString("Act")="Put" then response.Write(" require=""false"" ") else response.Write(" require=""true"" ") end if%> dataType="LimitB" min="2" max="30" msg="长度必须在2-30之间">
  481.         <span class="tx">不填则自动生成</span>
  482.   </td>
  483.     </tr>
  484.     <tr  class="hback" id="CPwd" <%if request.QueryString("Act")="Put" then response.Write(" style=""display='none'"" ") end if%>>
  485.       <td align="right">卡号密码</td>
  486.       <td>
  487.   <input type="text" name="frm_CardPasswords" size="40" value="<%if Bol_IsEdit then response.Write(Decrypt( VClass_Rs(2) )) else if request.QueryString("Act")<>"Search" then response.Write(GetRamCode(6)) end if end if%>"<%if request.QueryString("Act")="Put" then response.Write(" require=""false"" ") else response.Write(" require=""true"" ") end if%>dataType="LimitB" min="2" max="30" msg="长度必须在2-30之间">
  488.       </td>
  489.     </tr>
  490. <!---->
  491. <!----批量生成时显示------>
  492. <%if request.QueryString("Act")="Put" then
  493. Dim Put_Rs,Put_Sql,Bol_Put_IsEdit
  494. Bol_Put_IsEdit = false
  495. Put_Sql = "select top 1 PutNum,CardAddStr,CardNum_Len,CardPwd_Len from FS_ME_CardPut order by PutID desc"
  496. ''取最后一次的设置
  497. set Put_Rs=User_Conn.execute(Put_Sql)
  498. if not Put_Rs.eof then Bol_Put_IsEdit = true
  499. %>
  500. <tr  class="hback"> 
  501.       <td width="20%" align="right">生成数量</td>
  502.       <td> 
  503.     <input type="hidden" name="ActPut" value="1">
  504. <input type="text" name="Put_PutNum" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(0)) else response.Write("1") end if%>" dataType="Compare" msg="必须>=0" to="0" operator="GreaterThanEqual">
  505.   </td>
  506.     </tr>
  507. <tr  class="hback"> 
  508.       <td width="20%" align="right">冲值卡号前缀</td>
  509.       <td> 
  510. <input type="text" name="Put_CardAddStr" onKeyUp="value=value.replace(/[^a-zA-Z0-9]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9]/g,''))" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(1)) else response.Write("FS2006") end if%>" datatype="LimitB" min="-1" max="20" msg="前缀不能超过20个字符">
  511.         默认为FS2006可为空</td>
  512.     </tr>
  513. <tr  class="hback"> 
  514.       <td width="20%" align="right">冲值卡号长度</td>
  515.       <td> 
  516. <input type="text" name="Put_CardNum_Len" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(2)) else response.Write("12") end if%>" dataType="Compare" to="1" msg="必须在区间[前缀长+2,30]以内" operator="GreaterThanEqual" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')" >
  517.   </td>
  518.     </tr>
  519. <tr  class="hback"> 
  520.       <td width="20%" align="right">冲值卡密码长度</td>
  521.       <td> 
  522. <input type="text" name="Put_CardPwd_Len" size="40" value="<%if Bol_Put_IsEdit then response.Write(Put_Rs(3)) else response.Write("8") 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')">
  523.   </td>
  524.     </tr>
  525. <tr  class="hback"> 
  526.       <td width="20%" align="right">卡密码构成方式</td>
  527.       <td> 
  528.         <input name="Put_Pwd_Type" type="checkbox" value="1" checked<%'if Bol_Put_IsEdit then if instr(Put_Rs(4),"1")>0 then response.Write(" checked") end if else response.Write(" checked") end if%>>
  529.         数字
  530.         <input type="checkbox" name="Put_Pwd_Type" value="2" checked<%'if Bol_Put_IsEdit then if instr(Put_Rs(4),"2")>0 then response.Write(" checked") end if end if%>>
  531.         字母
  532.   </td>
  533.     </tr>
  534. <%
  535. Put_Rs.close
  536. set Put_Rs=nothing
  537. end if%>
  538. <!----批量生成时显示结束------>
  539.     <tr  class="hback"> 
  540.       <td align="right">点卡面值</td>
  541.       <td>
  542.   <input type="text" name="frm_CardMoney" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(3)) 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')">
  543.         元 </td>
  544.     </tr>
  545.     <tr  class="hback"> 
  546.       <td align="right">点卡天数</td>
  547.       <td>
  548.   <input type="text" name="frm_CardDateNumber" 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')">
  549.   </td>
  550.   
  551.     </tr>
  552.     <tr  class="hback"> 
  553.       <td align="right">点卡点数</td>
  554.       <td>
  555.   <input type="text" name="frm_CardPoint" 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')">
  556.   </td>
  557.   
  558.     </tr>
  559.     <tr  class="hback"> 
  560.       <td align="right"><span class="tx"><strong>点卡过期时间</strong></span></td>
  561.       <td>
  562.   <input type="text" class="tx" name="frm_CardOverDueTime" size="27" value="<%if Bol_IsEdit then response.Write(VClass_Rs(6)) else response.Write( dateadd("d",30,date()) ) end if%>" dataType="Date" msg="日期格式错误" readonly> <input name="SelectDate" type="button" id="SelectDate" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_CardOverDueTime);">   </td>
  563.   
  564.     </tr>
  565.     <tr  class="hback"> 
  566.       <td align="right">点卡是否已使用</td>
  567.       <td>
  568.   <select name="frm_IsUse" id="frm_IsUse" onChange="if(this.options[this.selectedIndex].value='0'){frm_UserNumber.value='';frm_UserTime.value=''}">
  569. <%=PrintOption(isuse,"1:已使用,0:未使用")%>
  570.       </select>
  571.         如果只是新增卡,请保持未使用</td>
  572.     </tr>
  574.     <tr  class="hback"> 
  575.       <td align="right">点卡拥有者编号</td>
  576.       <td>
  577.   <input type="text" name="frm_UserNumber" size="40" value="<%if Bol_IsEdit then response.Write(VClass_Rs(8)) end if%>">
  578.         如果只是新增卡,请留空</td>
  579.   
  580.     </tr>
  581.     <tr  class="hback"> 
  582.       <td align="right">冲值日期</td>
  583.       <td>
  584.   <input type="text" name="frm_UserTime" size="40" value="<%=UserTime%>">
  585.         如果只是新增卡,请留空</td>
  586.   
  587.     </tr>
  588.     <tr  class="hback"> 
  589.       <td align="right">点卡添加日期</td>
  590.       <td>
  591.   <input type="text" name="frm_AddTime" size="27" value="<%if Bol_IsEdit then response.Write(VClass_Rs(10)) else response.Write(date()) end if%>" dataType="Date" msg="日期格式错误" readonly> <input name="SelectDate5" type="button" id="SelectDate5" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_AddTime);">   </td>
  592.   
  593.     </tr>
  594.     <tr  class="hback"> 
  595.       <td align="right">是否销售</td>
  596.       <td>
  597.         <input type="radio" name="frm_isBuy" value="1" <%if Bol_IsEdit then if VClass_Rs(11)=1 then response.Write(" checked ") end if end if%>>
  598.           已销售   
  599.         <input type="radio" name="frm_isBuy" value="0" <%if Bol_IsEdit then if VClass_Rs(11)=0 then response.Write(" checked ") end if else response.Write(" checked ") end if%>>
  600.           未销售
  601.   </td>
  602.   
  603.     </tr>
  604.     <tr  class="hback"> 
  605.       <td colspan="4">
  606.   <table border="0" width="100%" cellpadding="0" cellspacing="0">
  607.           <tr> 
  608.             <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%>-->
  609.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
  610.      &nbsp; <input type="button" name="btn_todel" value=" 删除 " onClick="if(confirm('确定删除该项目吗？')) location='<%=server.URLEncode("Card.asp?Act=Del&CardID="&CardID)%>'">
  611.             </td>
  612.           </tr>
  613.         </table>
  614.       </td>
  615.     </tr>
  616.   </form>
  617. </table>
  618. <%End Sub
  620. Sub Search()
  621. %>
  623. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  624.   <form name="form1" onSubmit="return Validator.Validate(this,3)" method="post" action="?Act=SearchGo">
  625.     <tr  class="hback"> 
  626.       <td colspan="3" align="left" class="xingmu" >查询点卡</td>
  627.     </tr>
  628.     <tr  class="hback"> 
  629.       <td width="20%" align="right">卡号</td>
  630.       <td> <input type="text" name="frm_CardNumber" size="40" value="">
  631.         模糊查询 </td>
  632.     </tr>
  633.     <tr  class="hback"> 
  634.       <td align="right">卡号密码</td>
  635.       <td> <input type="password" name="frm_CardPasswords" size="40" value="">
  636.         准确查询 </td>
  637.     <tr  class="hback"> 
  638.       <td align="right">点卡面值</td>
  639.       <td> <select name="CardMoneyDate" style="width:55">
  640.         <option value="" selected="selected"></option>
  641.         <option value="*">*</option>
  642.         <option value="&gt;">&gt;</option>
  643.         <option value="&lt;">&lt;</option>
  644.         <option value="=">=</option>
  645.         <option value="&gt;=">&gt;=</option>
  646.         <option value="&lt;=">&lt;=</option>
  647.         <option value="&lt;&gt;">&lt;&gt;</option>
  648.       </select>
  649.          <input type="text" name="frm_CardMoney" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  650.       数字,可在开头加上简单比较符号,*号表示模糊查询</td>
  651.     </tr>
  652.     <tr  class="hback"> 
  653.       <td align="right">点卡天数</td>
  654.       <td> <select name="CardDateNumberDate" style="width:55">
  655.         <option value="" selected="selected"></option>
  656.         <option value="*">*</option>
  657.         <option value="&gt;">&gt;</option>
  658.         <option value="&lt;">&lt;</option>
  659.         <option value="=">=</option>
  660.         <option value="&gt;=">&gt;=</option>
  661.         <option value="&lt;=">&lt;=</option>
  662.         <option value="&lt;&gt;">&lt;&gt;</option>
  663.       </select>
  664.          <input type="text" name="frm_CardDateNumber" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  665.       数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
  666.     </tr>
  667.     <tr  class="hback"> 
  668.       <td align="right">点卡点数</td>
  669.       <td> <select name="CardPointDate" style="width:55">
  670.         <option value="" selected="selected"></option>
  671.         <option value="*">*</option>
  672.         <option value="&gt;">&gt;</option>
  673.         <option value="&lt;">&lt;</option>
  674.         <option value="=">=</option>
  675.         <option value="&gt;=">&gt;=</option>
  676.         <option value="&lt;=">&lt;=</option>
  677.         <option value="&lt;&gt;">&lt;&gt;</option>
  678.       </select>
  679.          <input type="text" name="frm_CardPoint" size="30" value="" onKeyUp="if(isNaN(value)||event.keyCode==32)execCommand('undo')"  onafterpaste="if(isNaN(value)||event.keyCode==32)execCommand('undo')">
  680.       数字,可在开头加上简单比较符号,*号表示模糊查询 </td>
  681.     </tr>
  682.     <tr  class="hback"> 
  683.       <td align="right">点卡过期时间</td>
  684.       <td>
  685.         <!-- dataType="Date" msg="日期格式错误" require="false" -->
  686.          <select name="CardOverDueTimeDate" style="width:55">
  687.            <option value="" selected="selected"></option>
  688.            <option value="*">*</option>
  689.            <option value="&gt;">&gt;</option>
  690.            <option value="&lt;">&lt;</option>
  691.            <option value="=">=</option>
  692.            <option value="&gt;=">&gt;=</option>
  693.            <option value="&lt;=">&lt;=</option>
  694.            <option value="&lt;&gt;">&lt;&gt;</option>
  695.          </select>
  696.          <input type="text" name="frm_CardOverDueTime" size="17" value="" readonly>
  697.         <input name="SelectDate4" type="button" id="SelectDate4" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_CardOverDueTime);">
  698.         日期,可在开头加上简单比较符号,*号表示模糊查询 </td>
  699.     </tr>
  700.     <tr  class="hback"> 
  701.       <td align="right">点卡是否已使用</td>
  702.       <td> <input type="radio" name="frm_IsUse"  value="1">
  703.         已使用 
  704.         <input type="radio" name="frm_IsUse"  value="0">
  705.         未使用 </td>
  706.     </tr>
  707.     <tr  class="hback"> 
  708.       <td align="right">点卡拥有者编号</td>
  709.       <td> <input type="text" name="frm_UserNumber" size="40" value="">
  710.         模糊查询 </td>
  711.     </tr>
  712.     <tr  class="hback"> 
  713.       <td align="right">冲值日期</td>
  714.       <td>  <select name="UserTimeDate" style="width:55">
  715.         <option value="" selected="selected"></option>
  716.         <option value="*">*</option>
  717.         <option value="&gt;">&gt;</option>
  718.         <option value="&lt;">&lt;</option>
  719.         <option value="=">=</option>
  720.         <option value="&gt;=">&gt;=</option>
  721.         <option value="&lt;=">&lt;=</option>
  722.         <option value="&lt;&gt;">&lt;&gt;</option>
  723.       </select>
  724.          <input type="text" name="frm_UserTime" size="17" value="" readonly=>
  725.         <input name="SelectDate2" type="button" id="SelectDate2" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_UserTime);">
  726.         日期,可在开头加上简单比较符号,*号表示模糊查询 </td>
  727.     </tr>
  728.     <tr  class="hback"> 
  729.       <td align="right">点卡添加日期</td>
  730.       <td> <select name="AddTimeDate" style="width:55">
  731.         <option value="" selected="selected"></option>
  732.         <option value="*">*</option>
  733.         <option value="&gt;">&gt;</option>
  734.         <option value="&lt;">&lt;</option>
  735.         <option value="=">=</option>
  736.         <option value="&gt;=">&gt;=</option>
  737.         <option value="&lt;=">&lt;=</option>
  738.         <option value="&lt;&gt;">&lt;&gt;</option>
  739.       </select>
  740.          <input type="text" name="frm_AddTime" size="17" value="" readonly>
  741.         <input name="SelectDate3" type="button" id="SelectDate3" value="选择时间" onClick="OpenWindowAndSetValue('../CommPages/SelectDate.asp',300,130,window,document.all.frm_AddTime);">
  742.         日期,可在开头加上简单比较符号,*号表示模糊查询 </td>
  743.     </tr>
  744.     <tr  class="hback"> 
  745.       <td align="right">是否销售</td>
  746.       <td> <input type="radio" name="frm_isBuy" value="1">
  747.         已销售 
  748.         <input type="radio" name="frm_isBuy" value="0">
  749.         未销售 </td>
  750.     </tr>
  751.     <tr  class="hback"> 
  752.       <td colspan="4"> <table border="0" width="100%" cellpadding="0" cellspacing="0">
  753.           <tr> 
  754.             <td align="center"> <input type="submit" name="submit" value=" 执行查询 " /> 
  755.               &nbsp; <input type="reset" name="ReSet" id="ReSet" value=" 重置 " /> 
  756.             </td>
  757.           </tr>
  758.         </table></td>
  759.     </tr>
  760.   </form>
  761. </table>
  763. <%End Sub%>
  764. </body>
  765. <%
  766. Set VClass_Rs=nothing
  767. User_Conn.close
  768. Set User_Conn=nothing
  769. %>
  770. <script language="JavaScript">
  771. <!--//判断后将排序完善.字段名后面显示指示
  772. //打开后根据规则显示箭头
  773. var Req_FildName;
  774. if (Old_Sql.indexOf("filterorderby=")>-1)
  775. {
  776. var tmp_arr_ = Old_Sql.split('?')[1].split('&');
  777. for(var ii=0;ii<tmp_arr_.length;ii++)
  778. {
  779. if (tmp_arr_[ii].indexOf("filterorderby=")>-1)
  780. {
  781. if(Old_Sql.indexOf("csed")>-1)
  782. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].indexOf("csed"));break;}
  783. else
  784. {Req_FildName = tmp_arr_[ii].substring(tmp_arr_[ii].indexOf("filterorderby=") + "filterorderby=".length , tmp_arr_[ii].length);break;}
  785. }
  786. }
  787. if (document.getElementById('Show_Oder_'+Req_FildName)!=null)  
  788. {
  789. if(Old_Sql.indexOf(Req_FildName + "csed")>-1)
  790. {
  791. eval('Show_Oder_'+Req_FildName).innerText = '↓';
  792. }
  793. else
  794. {
  795. eval('Show_Oder_'+Req_FildName).innerText = '↑';
  796. }
  797. }
  798. }
  799. ///////////////////////////////////////////////////////// 
  800. function GetCodes(number)
  801. {
  802. (isNaN(number))?10:number;
  803. new Ajax.Updater('More_Mode_Area', 'Card_ajax.asp?no-cache='+Math.random() , {method: 'get',parameters:'number='+number});
  804. }
  805. -->
  806. </script>
  808. </html>
  809. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->