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

📄 payonline.asp

📁 个人网站比较简短
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<!--#include file="../Start.asp"-->
<!--#include file="../Include/PowerEasy.MD5.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

If CheckUserLogined() = True Then
    Call GetUser(UserName)
End If
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=SiteName & " >> 在线支付"%></title>
<link href="../Skin/DefaultSkin.css" rel="stylesheet" type="text/css">
</head>
<body>
<SCRIPT language='JavaScript1.2' src='../js/stm31.js' type='text/javascript'></SCRIPT>

<table height=114 cellSpacing=0 cellPadding=0 width=778 align=center background=../skin/Ocean/top_bg.jpg border=0>
  <tr>
    <td width=213><img src="../skin/Ocean/top_01.jpg" width="213" height="114" alt=""></td>
    <td>
      <table cellSpacing=0 cellPadding=0 width="100%" border=0>
        <tr>
          <td colSpan=2 align="right">
            <table cellSpacing=0 cellPadding=0 align=right border=0>
              <tr>
                <td><IMG height=25 src="../skin/Ocean/Announce_01.jpg" width=68></td>
                <td class=showa width=280 background=../skin/Ocean/Announce_02.jpg>&nbsp;</td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td width="83%" height=80><img src="<%= strInstallDir %>images/banner.jpg" width="468" height="60"></td>
          <td width="17%">
            <table height=89 cellSpacing=0 cellPadding=0 width=94 background=<%= strInstallDir %>Skin/images/topr.gif border=0>
              <tr>
                <td align=middle colSpan=2>
                  <table height=56 cellSpacing=0 cellPadding=0 width=79 border=0>
                    <tr>
                      <td align=middle width=26><IMG height=13 src="../skin/Ocean/arrows.gif" width=13></td>
                      <td width=68><A class=Bottom href="javascript:window.external.addFavorite('http://www.powereasy.net','动易网络');">加入收藏</A></td>
                    </tr>
                    <tr>
                      <td align=middle><IMG height=13 src="../skin/Ocean/arrows.gif" width=13></td>
                      <td><A class=Bottom onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('动易网络');" href="http://www.powereasy.net">设为首页</A></td>
                    </tr>
                    <tr>
                      <td align=middle><IMG height=13 src="../skin/Ocean/arrows.gif" width=13></td>
                      <td><A class=Bottom href="mailto:info@asp163.net">联系站长</A></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
</table>

<table width="756" border="0" align="center" cellpadding="0" cellspacing="0" class="user_border">
  <tr>
    <td valign="top">
      <table width="100%" border="0" cellpadding="5" cellspacing="0" class="user_box">
        <tr>
          <td height="200" valign='top'>
<%
Dim OrderFormID, OrderFormNum, rsOrder, dblMoneyTotal, dblMoneyReceipt, dblMoneyNeedPay
Dim PlatformID, PlatformName, AccountsID, PayGateUrl, MD5Key, Rate, PlusPoundage

OrderFormID = PE_CLng(Trim(Request("OrderFormID")))
If OrderFormID > 0 Then
    Set rsOrder = Conn.Execute("select * from PE_OrderForm where OrderFormID=" & OrderFormID & " And UserName='" & UserName & "'")
    If rsOrder.BOF And rsOrder.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的订单！</li>"
    Else
        If rsOrder("MoneyTotal") <= rsOrder("MoneyReceipt") Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>指定的订单已经付清，不用再付款！</li>"
        Else
            OrderFormNum = rsOrder("OrderFormNum")
            dblMoneyTotal = rsOrder("MoneyTotal")
            dblMoneyReceipt = rsOrder("MoneyReceipt")
            dblMoneyNeedPay = dblMoneyTotal - dblMoneyReceipt
        End If
    End If
    rsOrder.Close
    Set rsOrder = Nothing
    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Response.End
    End If
Else
    dblMoneyNeedPay = 100
End If

Select Case Action
Case "Step2"
    Call Step2
Case "Step3"
    Call Step3
Case Else
    Call Step1
End Select
If FoundErr = True Then
    Response.Write ErrMsg
    Response.End
End If
%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>


<table cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <tr>
    <td class=menu_bottombg align=middle>
      | <a class="Bottom" href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=SiteUrl%>');">设为首页</a>
      | <a class="Bottom" href="javascript:window.external.addFavorite('<%=SiteUrl%>','<%=SiteName%>');">加入收藏</a>
      | <a class="Bottom" href="mailto:<%=WebmasterEmail%>">联系站长</a>
      | <a class="Bottom" href="<%=InstallDir%>FriendSite/Index.asp" target="_blank">友情链接</a>
      | <a class="Bottom" href="<%=InstallDir%>Copyright.asp" target="_blank">版权申明</a>
      | <a class='Bottom' href='<%=InstallDir&AdminDir%>/Admin_Index.asp' target='_blank'>管理登录</a>
      |
    </td>
  </tr>
  <tr>
    <td class=bottom_bg height=80>
      <table cellSpacing=0 cellPadding=0 width="90%" align=center border=0>
        <tr>
          <td><IMG height=80 src="<%=InstallDir%>Skin/images/bottom_left.gif" width=9></td>
          <td align=middle width="80%"> 版权所有 &copy; 2003-2006</td>
          <td align=right><IMG height=80 src="<%=InstallDir%>Skin/images/bottom_r.gif" width=9></td>
        </tr>
    </table></td>
  </tr>
</table>

</body>
</html>
<%
Call CloseConn



Sub Step1()
%>
<form name='payonline' method='post'  action='PayOnline.asp'>
<table class=center_tdbgall cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <tr>
    <td vAlign=top><table width="100%"  border="0" cellpadding="2" cellspacing="1" class="Shop_border">
        <tr>
          <td align="center" class="Shop_title"><b>在 线 支 付 操 作</b>(第一步)</td>
        </tr>
        <tr>
          <td class="Shop_tdbg">
          <table width="400" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#999999">
    <tr>
      <td colspan="2" align="center" bgcolor="#E6E6E6"><b>在 线 支 付</b></td>
    </tr>
<%
    If OrderFormID > 0 Then
%>
    <tr>
      <td width="125" bgcolor="#FFFFFF">订单号码：</td>
      <td width="264" bgcolor="#FFFFFF"><%=OrderFormNum%></td>
    </tr>
    <tr>
      <td width="125" bgcolor="#FFFFFF">订单金额：</td>
      <td width="264" bgcolor="#FFFFFF"><%=FormatNumber(dblMoneyTotal, 2, vbTrue, vbFalse, vbTrue)%></td>
    </tr>
    <tr>
      <td width="125" bgcolor="#FFFFFF">已 付 款：</td>
      <td width="264" bgcolor="#FFFFFF"><%=FormatNumber(dblMoneyReceipt, 2, vbTrue, vbFalse, vbTrue)%></td>
    </tr>
    <tr>
      <td width="125" bgcolor="#FFFFFF">需要支付：</td>
      <td width="264" bgcolor="#FFFFFF"><%=FormatNumber(dblMoneyNeedPay, 2, vbTrue, vbFalse, vbTrue)%></td>
    </tr>
<%
    End If
    If OrderFormID = 0 Then
%>
    <tr>
      <td width="125" bgcolor="#FFFFFF">请输入你要汇的金额：</td>
      <td width="264" bgcolor="#FFFFFF"><input name="vMoney" type="text" id="vMoney" value="<%=FormatNumber(dblMoneyNeedPay, 2, vbTrue, vbFalse, vbTrue)%>" size="10" maxlength="20">
元</td>
    </tr>
<%
    End If
%>
    <tr>
      <td width="125" bgcolor="#FFFFFF">请选择在线支付平台：</td>
      <td width="264" bgcolor="#FFFFFF"><%=GetPayPlatformList%></td>
    </tr>
    <tr>
      <td colspan="2" align="center" bgcolor="#E6E6E6"><input name="OrderFormID" type="hidden" id="OrderFormID" value="<%=OrderFormID%>">
      <input name="Action" type="hidden" id="Action" value="Step2">
          <input type="submit" Name="Submit" value=" 下一步 "></td>
    </tr>
  </table>
  </td>
1234

⌨️ 快捷键说明

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