rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Pay.asp';" value='在线支付设置' /> rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Pay.asp?action=pay';" value='点卡生成管理' /> rb2<%Else%>rb1<%end if%>" onClick="location='Admin_Pay.asp?action=log';" value='在线支付记录' />
<% Dim Action Dim arr1,arr2 Dim CmsDjPay:Set CmsDjPay = New CmsDj_Com_Pay Dim CmsDjFeed:Set CmsDjFeed = New CmsDj_Com_Feed action=Request.QueryString("action") page=int(request.QueryString ("page")) key=request.QueryString("key") path=request.querystring("path") Select Case Lcase(action) Case "save" : Call Save() Case "log" : Call Log() Case "pay" : Call Pay() Case "saveadd" : Call SaveAdd() Case "editsave": Call EditSave() Case "del" : Call Del() Case Else : Call Main() End Select Call Admin_FooterB %> <%Sub Log()%>
 在线支付记录
  关键字（可以输入订单号或会员名）：            
<% Dim Rs,SqlA if page<=0 or page="" then page=1'初始化分页参数 i=0 If key="成功" Then SqlA="FeedA=12 and FeedC=1 order by FeedE desc" ElseIf key="失败" Then SqlA="FeedA=12 and FeedC=0 order by FeedE desc" ElseIf key<>"" Then SqlA="FeedD like '%"&key&"%' or UserName like '%"&key&"%' and FeedA=12 order by FeedE desc" Else SqlA="FeedA=12 order by FeedE desc" End If Set Rs=CmsDjFeed.GetRs("",0,SqlA) If Not(rs.bof And rs.EOF) Then rs.pagesize=20 '每页舞曲 rs.AbsolutePage=page m=rs.recordcount '总记录 n=rs.PageCount '总页数 z=rs.pagesize '每页数量 do while not rs.eof and i <% rs.movenext loop Else %> <% End If rs.Close Set rs=nothing %>
      交易定单号 <%if key<>"" then Response.Write "（以下为搜索 "&key&" 结果）"%> 金额 状态 支付会员 支付时间
    <%=replace(rs("FeedD"),key,""&key&"")%> <%=rs("FeedB")%> <%=passed%> "><%=replace(rs("UserName"),key,""&key&"")%> <%If Cstr(FormatDatetime(rs("FeedE"),2))=Cstr(Date()) Then Response.Write""&rs("FeedE")&"" Else Response.Write""&rs("FeedE")%>


没有数据
<%=List_Page(m,z,page,"Admin_Pay.asp?action="&action&"&key="&key&"&",15,7)%>
<% End Sub Sub Pay()%>
<% Dim Rs i=0 Set Rs=CmsDjPay.GetRs("",0,"order by CD_Dk asc") if not rs.eof then do while not rs.eof i=i+1 %> <% rs.movenext loop else %> <% end if rs.close set rs=nothing %>
 点卡管理
 " class="checkbox"/><%=i%>、 " value="<%=rs("CD_Dk")%>" size="8" onkeyup="this.value=this.value.replace(/[^\d]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" /> 点 " value="<%=rs("CD_Money")%>" size="8" onkeyup="this.value=this.value.replace(/[^\d]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" /> 元 ';" class="rb1">  
        
 生成点卡  
 点  元
<% End Sub Sub Main()%>
 网银在线支付设置（注册地址）
商户号：  ＊ 网银在线的商户号，不是帐号
MD5私钥：  ＊ 自己设定的MD5私钥,可以到网银在线自己设置
返回地址：  ＊ http://<%=Request.ServerVariables("SERVER_NAME")&InstallDir%>User/Receive.asp
<% End Sub Sub Del() CD_ID = SafeRequest("CD_ID","get") Call CmsDjPay.del("CD_ID="&CD_ID) Call AdminAlert("恭喜您，点卡删除成功！","Admin_Pay.asp?action=pay",0) End Sub Sub EditSave() CD_ID = SafeRequest("CD_ID","post") IF CD_ID="" Then Call AdminAlert("出错了，请选择要操作的点卡！","Admin_Pay.asp",1) Response.End End IF CD_ID=Split(CD_ID,", ") For Each ID In CD_ID CD_Dk = trim(request.form("CD_Dk"&ID)) CD_Money = trim(request.form("CD_Money"&ID)) IF Not IsNum(CD_Dk) Then Call AdminAlert("出错了，点卡必须是数字型！","Admin_Pay.asp",1) Response.End End If IF Not IsNum(CD_Money) Then Call AdminAlert("出错了，金额必须是数字型！","Admin_Pay.asp",1) Response.End End If arr1=Array("CD_Dk","CD_Money") arr2=Array(CD_Dk,CD_Money) Call CmsDjPay.UpDate(arr1,arr2,"CD_ID="&ID) Next Call AdminAlert("恭喜您，修改点卡成功！","Admin_Pay.asp?action=pay",0) Response.End End Sub Sub SaveAdd() CD_Dk = SafeRequest("CD_Dk","post") CD_Money=SafeRequest("CD_Money","post") IF Not IsNum(CD_Dk) Then Call AdminAlert("出错了，点卡必须是数字型！","Admin_Pay.asp",1) Response.End End If IF Not IsNum(CD_Money) Then Call AdminAlert("出错了，金额必须是数字型！","Admin_Pay.asp",1) Response.End End If arr1=Array("CD_Dk","CD_Money") arr2=Array(CD_Dk,CD_Money) Call CmsDjPay.add(arr1,arr2) Call AdminAlert("恭喜您，增加点卡成功！","Admin_Pay.asp?action=pay",0) Response.End End Sub Sub Save() Pay_Id = Replace(Trim(Request.Form("Pay_Id")),CHR(34),"'") Pay_Md5 = Replace(Trim(Request.Form("Pay_Md5")),CHR(34),"'") Pay_Url = Replace(Trim(Request.Form("Pay_Url")),CHR(34),"'") Dim n,TempStr TempStr = "" TempStr = TempStr & chr(60) & "%" & VbCrLf TempStr = TempStr & "Dim Pay_Id,Pay_Md5,Pay_Url" & VbCrLf TempStr = TempStr & "Pay_Id="& Chr(34) & Pay_Id & Chr(34) & VbCrLf TempStr = TempStr & "Pay_Md5="& Chr(34) & Pay_Md5 & Chr(34) & VbCrLf TempStr = TempStr & "Pay_Url="& Chr(34) & Pay_Url & Chr(34) & VbCrLf TempStr = TempStr & "%" & chr(62) & VbCrLf ADODB_SaveToFile FormatStringA(TempStr),"../Data/Cache/CmsDj.Pay.asp" Call AdminAlert("更新在线支付信息成功，正在返回...","Admin_Pay.asp",0) Response.End End Sub Function FormatStringA(String) on Error resume next String = Replace(String, "request", "") String = Replace(String, "execute", "") String = Replace(String, "eval", "") String = Replace(String, "include", "") FormatStringA = String End Function Function FormatStringB(String) on Error resume next String = LCase(String) String = Replace(String, "asp", "html") String = Replace(String, "php", "html") String = Replace(String, "aspx", "html") String = Replace(String, "jsp", "html") FormatStringB = String End Function %>