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

📄 cz_pay.asp

📁 鄂尔多斯建站网全站程序(冬季修正版)
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/message.asp"-->
<!--#include file="include/config.asp"-->
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有,请保留该信息,谢谢合作 *
'**********************************
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title><%=homepage%></title>
</head>

<body>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="758" style="border-left: 1px solid #808080; border-right: 1px solid #808080">
		<tr>
			<td><div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="758">
    <tr>
      <td>
        <p align="center"><%call top_title%></td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="758">
    <tr>
      <td width="191">
        <table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
          <tr>
            <td width="100%" background="pic/line_gb.gif" height="1"></td>
          </tr>
        </table>
      </td>
      <td width="1" background="pic/height_bg.gif" rowspan="2"></td>
      <td width="566">
        <table border="0" cellpadding="0" cellspacing="0" width="100%" height="1">
          <tr>
            <td width="100%" background="pic/line_gb.gif" height="1"></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td width="191" valign="top"><%call left_title%></td>
      <td width="566" valign="top">
        <div align="center">
          <center>
          <table border="0" cellpadding="0" cellspacing="0" width="95%">
            <tr>
              <td width="100%"> </td>
            </tr>
            <tr>
              <td width="100%">
<%
if request("action")="pay_1" then
sub_number=request("sub_number")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from basket where sub_number='"&sub_number&"'"
rs.open sql,conn,3,3
%>
                <table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
                  <tr>
                    <td width="17%" height="20" align="center"><font color="#FFFFFF">商品名称</font></td>
                    <td width="18%" height="20" align="center"><font color="#FFFFFF">商品单价</font></td>
                    <td width="18%" height="20" align="center"><font color="#FFFFFF">购买数量</font></td>
                    <td width="21%" height="20" align="center"><font color="#FFFFFF">商品总额</font></td>
                    <td width="25%" height="20" align="center"><font color="#FFFFFF">购买时间</font></td>
                  </tr>
                  <%do while not rs.eof%>
                  <tr>
                    <td width="17%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("sort_name")%></td>
                    <td width="18%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("price")%>元/件</td>
                    <td width="18%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("basket_count")%></td>
                    <td width="21%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("basket_count")*rs("price")%>元</td>
                    <td width="25%" height="20" bgcolor="#FFFFFF" align="center"><%=rs("basket_time")%></td>
                  </tr><%totalcash=totalcash+(rs("basket_count")*rs("price"))%>
                    <%rs.movenext         
    loop
    rs.close
set rs=nothing
    %>
                  <tr>
                    <td width="100%" height="20" bgcolor="#FFFFFF" colspan="5">&nbsp;总额:<font color="#FF0000"><%=totalcash%></font>元</td>
                  </tr>
                </table>
              </td>
            </tr>
            
            <tr>
              <td width="100%"><script language="javascript" src="http://www.1st-pay.net/work/paycode.asp?username=<%=zhifu%>&leixing=1&shopname=<%=sub_number%>&cash=<%=totalcash%>"></script></td>
            </tr>
            
            <tr>
              <td width="100%"> </td>
            </tr>
            <%else%>
            <tr>
              <td width="100%"><script language="javascript" src="http://www.1st-pay.net/work/paycode.asp?username=<%=zhifu%>&leixing=1&shopname=<%=request("shopname")%>&cash=<%=request("cash")%>"></script></td>
            </tr>
            <%end if%>
            <tr>
              <td width="100%"> </td>
            </tr>
          </table>
          </center>
        </div>
      </td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="758" height="1">
    <tr>
      <td width="100%" background="pic/line_gb.gif" height="1"></td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="758">
    <tr>
      <td>
        <p align="center"><%call foot_title%></td>
    </tr>
  </table>
  </center>
</div>
</td>
		</tr>
	</table>
</div>
</body>

</html>
<%
call close_conn%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: steven_bass@msn.com         *
'手机:(0)13632779827              *
'mail:wtez@vip.163.com            *
'版权所有,请保留该信息,谢谢合作 *
'**********************************
%>

⌨️ 快捷键说明

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