saveto.asp

来自「国内第一数字点卡销售程序。功能强大。 完整无错！数据文件经MD5加密！经严格测」· ASP 代码 · 共 296 行

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


<!--#include file="md5.asp"-->
<td width="15" height="3">&nbsp;</td>
<!--#include file="lest.asp"--></td>
<td width="15" height="30">&nbsp;</td>
<td width="450" valign="top" align="left">

<IMG alt="" border=0 height=113 src="images/liucheng.jpg" width=560>

<div align="center">
<table border="0" width="405" cellspacing="0" cellpadding="0" height="417">
<tr>
<td width="98%"  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 
        on error resume next
        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)
    %>

<%set rs1=server.createobject("adodb.recordset")
    hw_id = request("hw_id")
    kucun=int(request("kucun"))
    if not isNumeric (hw_id) then
        response.write "参数必须为数字型!"
        response.end
    end if

count=int(request("count"))
sql="select * from hw  where hw_id="&hw_id
rs.open sql,conn,3,3
if session("user_name")<>"" then%>
<%vip=session("user_vip")
select case vip
    case "普通会员"
      h2=rs("hw_cash1")
    case "VIP会员"
      h2=rs("hw_cash2")
    case "经销商会员"
      h2=rs("hw_cash3")     
   end select
%> 
<%else%>
<%h2=rs("hw_cash1")%>
<%end if%>
       <%hw_name=rs("hw_name")
         hw_cz=rs("hw_cz")
       rs.close
       if count<=0 then
              response.write "<script language=javascript>alert(您的购买数量小于0，重新输入吧，谢谢合作！');history.go(-1);</script>"
              response.End
       End If 
       
      aa=kucun-count
   if hw_cz="0" and aa<0 then
              response.write "<script language=javascript>alert('库存小于您的订购量，请重新选择数量，谢谢合作！');history.go(-1);</script>"
              response.End
   end if      

        sub_totalcash=count*h2
        sub_to=trim(request("sub_to"))
        sub_mail=trim(request("sub_mail"))
        sub_tel=trim(request("sub_tel"))
        sub_qq=trim(request("sub_qq"))
        if checkinput(sub_to) or checkinput(sub_mail)  or checkinput(sub_qq)  or checkinput(sub_tel)  then
           response.write "<script language=javascript>alert('您的输入字符中含有<、>类似字符，此类字符不适合输入，请检查更正，谢谢配合！');history.go(-1);</script>"
           response.End
        end if

               if hw_cz="1" then
           sub_gameid=trim(request("sub_gameid"))
           sub_gameid1=trim(request("sub_gameid1"))
           sub_other=trim(request("sub_other"))
           sub_gameaddr=trim(request("sub_gameaddr")) 
           if sub_gameid="" or sub_gameid1="" or sub_gameid<>sub_gameid1 then
              response.write "<script language=javascript>alert('游戏用户名不能为空，或者您两次填写的用户名不一样，请核对，谢谢合作！！');history.go(-1);</script>"
              response.End
           end if
           if checkinput(sub_gameid) or checkinput(sub_gameid1)  or checkinput(sub_other)  or checkinput(sub_gameaddr)  then
              response.write "<script language=javascript>alert('您的输入字符中含有<、>类似字符，此类字符不适合输入，请检查更正，谢谢配合！');history.go(-1);</script>"
              response.End
           end if
        end if      
       


        sql="select * from sub where sub_number='"&sub_number&"'"
        rs.open sql,conn,3,3
        if rs.eof then
        rs.addnew
        if session("user_name")<>"" then
           rs("user_name")=session("user_name")
        end if
        rs("sub_to")=sub_to
        rs("sub_tel")=sub_tel
        rs("sub_mail")=sub_mail
        rs("hw_id")=hw_id
        rs("hw_name")=hw_name
        rs("hw_count")=count
        rs("sub_date")=now()
        rs("hw_cash")=h2
        if mid(trim(sub_totalcash),1,1)="." then
           sub_totalcash="0"&sub_totalcash
        end if
        rs("sub_totalcash")=sub_totalcash
        rs("sub_number")=sub_number
        rs("sub_qq")=sub_qq
        rs("sub_cz")="0"
        
        if hw_cz="1" then
        rs("sub_gameid")=sub_gameid
        rs("sub_gameaddr")=sub_gameaddr
        rs("sub_other")=sub_other
        rs("sub_cz")="1"
        end if
        
        rs.update
        %><font color="#339933">收货人信息如下：</font></b>
</td>
</tr>
<tr>
<td width="98%">
<div align="center">
<table border="1" width="81%" cellspacing="1" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" height="297">
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="24">收货人:</td>
<td width="63%" bgcolor="#FFFFFF" height="24"><%=sub_to%>
</td>
</tr>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="24">电话:</td>
<td width="63%" bgcolor="#FFFFFF" height="24"><%=sub_tel%></td>
</tr>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="24">E-mail:</td>
<td width="63%" bgcolor="#FFFFFF" height="24"><%=sub_mail%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">Q  Q:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=sub_qq%>&nbsp;</td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">订单号:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=sub_number%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">订购产品:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=hw_name%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">产品单价:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=h2%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">订购数量:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=count%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">总金额:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=sub_totalcash%></td>
</tr>
<%if hw_cz="1" then%>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">游戏帐户名:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=sub_gameid%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">服务器所在区:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=sub_gameaddr%></td>
</tr>
<tr>
<td width="33%" bgcolor="#FFFFFF" align="right" height="25">备注:</td>
<td width="63%" bgcolor="#FFFFFF" height="25"><%=sub_other%>&nbsp; </td>
</tr>
<%end if%>
</table></div>
</td>
</tr>
<tr>
<td width="98%" align="right">

<p align="center">
<%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.vip025.com/ReceivePayment.asp"		
BillNO = sub_number		
Amount = sub_totalcash
Merchant = "004004"
merpassword = ""
%>
<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> 
<p>
		 注:<b>支付成功后实时取卡。客服6900278谢谢!!</b>            
  
<%if session("user_vip")<>"" then%>
<form action="receivepayment2.asp" target=_blank> 
        <input type="hidden" name="sub_number" value="<%=sub_number%>">
        <p align="center">
        <input type="submit" name="submit" value="用帐户上费用去支付">
</p>
</form>





<TABLE cellSpacing=0 cellPadding=0 width=555 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width=555 border=0>
<TBODY>
<TR>
<TD width=172>
<P><IMG height=35 src="texiao/xdd9.jpg" width=172 border=0></P></TD>
<TD width=383 background=texiao/xdd8.jpg>
<P>&nbsp;</P></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=555>
<TABLE cellSpacing=0 cellPadding=0 width=545 align=center border=0>
<TBODY>
<TR>
<TD width=272>
<TABLE id=add2order_paymentarea_paymentarea style="WIDTH: 100%" border=0>
<TBODY>
<TR>
<TD><INPUT language=javascript id=add2order_paymentarea_paymentarea_0 onclick="__doPostBack('add2order_paymentarea_paymentarea_0','')" type=radio CHECKED value=1 name=add2order_paymentarea:paymentarea><LABEL for=add2order_paymentarea_paymentarea_0>全国</LABEL></TD></TR></TBODY></TABLE></TD>
<TD width=272>
<TABLE id=add2order_delivergoods_delivergoods style="WIDTH: 100%" border=0>
<TBODY>
<TR>
<TD><INPUT id=add2order_delivergoods_delivergoods_0 type=radio CHECKED value=2;0 name=add2order_delivergoods:delivergoods><LABEL for=add2order_delivergoods_delivergoods_0>实时配送<BR>基本费用:￥0.00;配送费用:配送周期:实时</LABEL></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=53>
<P align=center><SPAN class=style7 style="FONT-SIZE: 10pt"><B><FONT color=red>请在支付前关闭IE浏览器弹出窗口拦截功能。 <BR>例如“3721上网助手”、“google工具栏”或者“Alexa工具栏”。</FONT></B></SPAN> </P></TD></TR></TBODY></TABLE>













<%end if%>
<p align="center">
<%else
       response.write "<script language=javascript>alert('订单号已存在!烦请您返回再提交一次!');history.go(-1);</script>"
       response.End
end if
rs.close
%>
</td>
</tr>
<center>
</table>
</div>
</center></td>


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