onlinepay_2.asp

国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测试

<!--#include file="top.asp"-->
<% if session("user_name")="" then
   response.write "<script language=javascript>alert('请先登陆后操作，谢谢合作！');history.go(-1);</script>"
   response.End
end if%>
<td width="15" height="3">&nbsp;</td>
<!--#include file="lest.asp"--></td>
<td width="15" height="30">&nbsp;</td>
<td width="582" valign="top" align="center">
<table border="0" width="580" cellspacing="0" cellpadding="0" height="301">
<tr>
<td width="600"  height="18" align="center"><br><b>
<%   function checkinput(incc)
                 checkinput = false
                 if instr(incc,"<")>0 or instr(incc,">")>0  then
                    checkinput = true
                    exit function
                 end if
     end function 
        sub_number=now()
        sub_number=replace(sub_number,"-","")
        sub_number=replace(sub_number," ","")
        sub_number=replace(sub_number,":","")
        sub_number=replace(sub_number,"AM","")
        sub_number=replace(sub_number,"PM","")
        sub_number=replace(sub_number,"上午","")
        sub_number=replace(sub_number,"下午","")
        sub_number=int(sub_number)+int((10-1+1)*Rnd + 1)
if not isNumeric (trim(request("sub_totalcash"))) then
   response.write "<script language=javascript>alert('您未输入汇款金额或输入不正确，请返回重新输入！');history.go(-1);</script>"
   response.End
end if
if trim(request("sub_totalcash"))<=0 then
   response.write "<script language=javascript>alert('您汇款金额不能为负数或零的，请返回重新输入！');history.go(-1);</script>"
   response.End
end if

if checkinput(request("sub_username")) or checkinput(request("sub_usernamec"))  or checkinput(request("sub_usermail"))  or checkinput(request("sub_usertel"))  or checkinput(trim(request("sub_getbank")))  or checkinput(trim(request("sub_totalcash")))  then
   response.write "<script language=javascript>alert('您的输入字符中含有<、>类似字符，此类字符不适合输入，请检查更正，谢谢配合！');history.go(-1);</script>"
   response.End
end if
        sql="select * from onlinepay"
        rs.open sql,conn,3,3
        sub_username=replace(request("sub_username"),"'","''")

        sub_usernamec=replace(request("sub_usernamec"),"'","''")

        sub_usermail=replace(request("sub_usermail"),"'","''")

        sub_usertel=replace(request("sub_usertel"),"'","''")

        sub_totalcash=replace(trim(request("sub_totalcash")),"'","''")
        sub_totalcash1=round(sub_totalcash+sub_totalcash*0.01,2)
        rs.addnew
        rs("sub_username")=sub_username
        rs("sub_usernamec")=sub_usernamec
        rs("sub_usermail")=sub_usermail
        rs("sub_usertel")=sub_usertel
        rs("sub_getbank")=sub_number
        rs("sub_totalcash")=sub_totalcash
        rs("sub_date")=now()
        rs.update
        rs.close
        %></b></td>
</tr>
<tr>
<td width="100%" height="194">
<div align="center">
<table border="1" width="74%" cellspacing="0" bordercolorlight="#339933" bordercolordark="#FFFFFF" height="167" cellpadding="0">
<tr>
<td width="87%" bgcolor="#339933" align="right" style="padding: 5px" colspan="2">
<p align="center"><b>
<font color="#FFFFFF">您提交的在线充值信息</font></b></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF" align="right" style="padding: 5px">订单号:</td>
<td width="67%" bgcolor="#FFFFFF" style="padding: 5px"><%=sub_number%> &nbsp; </td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF" align="right" style="padding: 5px">用户名:</td>
<td width="67%" bgcolor="#FFFFFF" style="padding: 5px"><%=sub_username%>
</td>
</tr>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF" align="right" style="padding: 5px">电&nbsp; 话:</td>
<td width="67%" bgcolor="#FFFFFF" style="padding: 5px"><%=sub_usertel%></td>
</tr>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF" align="right" style="padding: 5px">E-mail:</td>
<td width="67%" bgcolor="#FFFFFF" style="padding: 5px"><%=sub_usermail%></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF" align="right" style="padding: 5px">汇款金额:</td>
<td width="67%" bgcolor="#FFFFFF" style="padding: 5px"><%=sub_totalcash%></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFFFFF" align="right" style="padding: 5px">应汇金额:</td>
<td width="67%" bgcolor="#FFFFFF" style="padding: 5px"><%=sub_totalcash1%> &nbsp;&nbsp;&nbsp; 
<font color="#FF0000"><b>注：</b></font>在线充值加1%手续费</td>
</tr>
</table></div>

</td>
</tr>
<tr>
<td width="100%">
<%set rs1=server.createobject("adodb.recordset")     
  sql1="select top 1 * from sys "
  rs1.open sql1,conn,3,3
  shopid=rs1("sys_http")&"/ReceivePayment1.asp"
  rs1.close
ReplyURL = "http://www.100tom.cn/card/ReceivePayment1.asp"		
BillNO = sub_number		
Amount = sub_totalcash1
Merchant = "008633"
%>
<form name="form1" method="post" action="http://www.allbuy.cn/payment/payment.asp" target=_blank>
<input type="hidden" name="Merchant" value="<%=Merchant%>">
<input type="hidden" name="BillNO" value="<%=BillNO%>">
<input type="hidden" name="Amount" value="<%=Amount%>">
<input type="hidden" name="Remark" value="<%=Remark%>">
<input type="hidden" name="BackUrl" value="<%=ReplyURL%>">
<p align="center">
<input type="submit" name="submit" value="在线银行支付">
</p>
</form> 
</td>
</tr>
</table>
</td>

<!--#include file="copy.asp"-->