⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_payonline.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>在线支付管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
<script language="javascript" src="../Js/Ajax.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
   If EL_Admin.CheckAdminPurview(23, 3) = False Then
      EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
   End If
End If

Dim CurrentPath, Search_Keywords, Search_Field
Dim IsConfirm, PayOnlineProvider(10)

PayOnlineProvider(1) = "网银在线1.1版"
PayOnlineProvider(2) = "网银在线2.0版"
PayOnlineProvider(3) = "中国在线支付网"
PayOnlineProvider(4) = "易付通"
PayOnlineProvider(5) = "支付宝支付"
PayOnlineProvider(6) = ""
PayOnlineProvider(7) = ""
PayOnlineProvider(8) = ""
PayOnlineProvider(9) = "上海环迅IPS"

Search_Keywords = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Keywords", 1))
Search_Field = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Search_Field", 1))
IsConfirm = EL_Common.ELRequest("IsConfirm", 1)

If IsConfirm = "" Then
   IsConfirm = -1
Else
   IsConfirm = EL_Common.ELClng(IsConfirm)
End If

CurrentPath = "·您现在的位置：<a href='"& EL_CurrentScriptName &"'>在线支付管理</a> "
%>

<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong>在线支付管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_PayOnline.asp">在线支付管理首页</a></td>
  </tr>
  <tr>
    <td class="item_25">
	<div class="leftdiv">
	  <input name="IsConfirm" type="radio" class="nomargin" value="-1" <%=EL_Common.SetObjectChecked(-1, IsConfirm)%> onClick="location.href='Admin_PayOnline.asp?IsConfirm=-1'">
	  所有记录
	  <input name="IsConfirm" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, IsConfirm)%> onClick="location.href='Admin_PayOnline.asp?IsConfirm=1'">
	  已确认记录
	  <input name="IsConfirm" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, IsConfirm)%> onClick="location.href='Admin_PayOnline.asp?IsConfirm=0'">
	  未确认记录
	</div>
	<div style="margin-left:30px; float:left; font-weight:bold; padding-top:3px;">记录搜索：</div>
	<div>
	  <form name="myform" action="Admin_PayOnline.asp" method="get">
	  <select name="Search_Field" id="Search_Field">
	    <option value="BookNumber">关联订单</option>
	    <option value="UserName">会员名</option>
	    <option value="Editor">操作员</option>
	  </select>
	  <input name="Search_Keywords" type="text" id="Search_Keywords" size="15">
	  <input type="submit" name="Submit" value="搜索">
	  </form>
	</div>
	</td>
  </tr>
</table>
<br>
<%
Select Case Action
  Case "": Call ManagePayOnline()
  Case "Show": Call ShowPayOnline()
  Case "Confirm": Call ConfirmRecord(0)
  Case "Delete": Call ConfirmRecord(1)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()


Sub ConfirmRecord(SetType)
  On Error Resume Next
  Dim PayOnlineCmd, PayOnlineID, ConfirmIntro
  
  PayOnlineID = EL_Common.ELRequest("PayOnlineID", 2)
  ConfirmIntro = EL_Common.ELRequest("ConfirmIntro", 1)
  Call EL_Common.InitCommand(PayOnlineCmd, "EL_SP_ConfirmPayOnline")
  With PayOnlineCmd
    .Parameters.Append .CreateParameter("RETURN", 2, 4)
	.Parameters.Append .CreateParameter("@Type", 3, 1, 4, SetType)
	.Parameters.Append .CreateParameter("@PayOnlineID", 3, 1, 4, PayOnlineID)
	.Parameters.Append .CreateParameter("@ConfirmIntro", 200, 1, 500, ConfirmIntro)
	.Parameters.Append .CreateParameter("@Editor", 200, 1, 50, EL_Admin.AdminName)
	.Parameters.Append .CreateParameter("@IpAddress", 200, 1, 15, RemoteIp)
	.Execute()
  End With
  If PayOnlineCmd(0) = 40 Then
     EL_Common.ShowErrorMsg("指定记录不存在")
	 Set PayOnlineCmd = Nothing
	 Exit Sub
  End If
  Set PayOnlineCmd = Nothing
  EL_Common.ShowScriptError()
  If SetType = 0 Then
     Call EL_Common.InsertLog(3, ComeURL, "确认在线支付", EL_Admin.AdminName)
     EL_Common.ShowSuccessMsg("记录已确认成功")
  Else
     Call EL_Common.InsertLog(3, ComeURL, "删除在线支付记录", EL_Admin.AdminName)
     EL_Common.ShowSuccessMsg("删除在线支付记录成功")
  End If
  EL_Common.ShowScriptError()
End Sub

Sub ShowPayOnline()
On Error Resume Next
Dim PayOnlineCmd, rsPayOnline, PayOnlineID
PayOnlineID = EL_Common.ELRequest("PayOnlineID", 2)
Call EL_Common.InitCommonCmd(PayOnlineCmd, rsPayOnline, "EL_PayOnline", "*", "PayOnlineID="& PayOnlineID)
rsPayOnline.Close()
If PayOnlineCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定记录不存在")
   Set rsPayonline = Nothing
   Set PayOnlineCmd = Nothing
   Exit Sub
End If
rsPayOnline.Open()
%>
<form name="myform" action="Admin_PayOnline.asp" method="post" onSubmit="SubmitOnce(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>查看支付记录</strong></td>
  </tr>
  <tr>
    <td width="16%" class="td_ItemName"><strong>关联订单号</strong></td>
    <td width="84%" class="item_25"><%=EL_Common.ServerHTMLEncode(rsPayOnline("BookNumber"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>会员名</strong></td>
    <td class="item_25"><%=EL_Common.ServerHTMLEncode(rsPayOnline("UserName") &"("& rsPayOnline("TrueName" )&")")%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>支付平台</strong></td>
    <td class="item_25"><%=PayOnlineProvider(rsPayOnline("PayOnlineProvider"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>支付金额</strong></td>
    <td class="item_25"><%=EL_Common.ELFormatCurrency(rsPayOnline("PayMoney"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>备注</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsPayOnline("Remark"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>IP地址</strong></td>
    <td class="item_25"><%=rsPayOnline("IPAddress")%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>支付时间</strong></td>
    <td class="item_25"><%=rsPayOnline("PayDateTime")%></td>
  </tr>
  <% If rsPayOnline("IsConfirm") = True Then %>
  <tr>
    <td class="td_ItemName"><strong>确认时间</strong></td>
    <td class="item_25"><%=rsPayOnline("ConfirmDateTime")%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>确认备注</strong></td>
    <td class="item_25"><%=EL_Common.HTMLEncode(rsPayOnline("ConfirmIntro"))%></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>操作员</strong></td>
    <td class="item_25"><%=EL_Common.ServerHTMLEncode(rsPayOnline("Editor"))%></td>
  </tr>
  <% Else %>
  <tr>
    <td class="td_ItemName"><strong>确认备注</strong></td>
    <td class="td_25"><textarea name="ConfirmIntro" cols="60" rows="6" id="ConfirmIntro"></textarea></td>
  </tr>
  <% End If%>
  <tr>
    <td colspan="2" class="item_25"><strong class="redText">注：当确认记录后，不能对其做任何修改，请校验记录的真实性</strong></td>
    </tr>
  <tr>
    <td class="td_ItemName"></td>
    <td class="td_50">
	<% If rsPayOnline("IsConfirm") = False Then %>
	<input name="Action" type="hidden" id="Action" value="Confirm">
	<input name="PayOnlineID" type="hidden" id="PayOnlineID" value="<%=PayOnlineID%>">
	<input type="submit" name="Submit3" value="确认记录">
	<% End If %>
	<input type="button" name="Submit4" value=" 返 回 " onClick="history.back()">	</td>
  </tr>
</table>
</form>
<%
rsPayOnline.Close()
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -