cashsave.asp

电子商城代码

<!--#include file="top.asp"-->  
<!--#include file="include/md5pay.asp"-->  
<!--#include file="plus/alipay_md5.asp"-->
<!--#include file="plus/alipay_fun.asp"-->
<!--#include file="include/56770_email_cls.asp"-->
<%
'on error resume next
session.codepage=65001
response.charset="utf-8"
strwebtitle=www56770com_word120
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
www56770com_basket_cash()
Dim sum1,sum2,sum3,js,summoney,totalcash
Dim yy,mm,dd,ymd,xiaoshi,fenzhong,miao,billno,order_number,userid,orderid
Dim to_name,to_adds,tel,sendtype1,postcode,paymenttype,sendtype,other,email,fei
Dim fapiao_taitou,fapiao_company,fapiao_zhanghao,fapiao_shuihao,fapiao_adds,fapiao_zip,iffapiao
Dim Quatity,casherror,z_discount,dis_sum,z_str1,z_str2,z_str3	
Function disreplace(str)
	    If Isnull(Str) Then
	    	    disreplace = ""
	    	    Exit Function 
	    End If
        str=Replace(Str,"[z_str1]",z_str1)
		str=Replace(Str,"[z_str2]",z_str2)
		str=Replace(Str,"[z_str3]",z_str3)
		disreplace=str
End Function
Select Case request("action")
       Case "save" : save()
	   Case Else
	             cashview()
End Select
        
Sub cashview

        If Len(to_name)<2 Or to_name="" Then
                casherror=true
		        mes=mes&"路"&www56770com_word85&"<br>"
        End if
        If Len(tel)<6 Or Len(tel)>13 Then
                casherror=true
		        mes=mes&"路"&www56770com_word86&"<br>"
        End If
        If IsValidEmail(email)=false Then
                casherror=true
		        mes=mes&"路"&www56770com_word88&"<br>"
        End If
        If Len(postcode)>7 or Len(postcode)<4 Then
                casherror=true
		        mes=mes&"路"&www56770com_word89&"<br>"
        End If
        If Len(to_adds)<2 Or to_adds="" Then
                casherror=true
		        mes=mes&"路"&www56770com_word87&"<br>"
        End If
        If casherror=true Then
		        response.write"<table width='500' cellpadding='0' cellspacing='0' align='center'>"&_
                                "  <tr>"&_
                                "   <td>"
		        response.write"<meta http-equiv=refresh content=5;url=javascript:history.go(-1)>"
                tl=www56770com_word84
		        casherror=true
                mes="路"&www56770com_word675&"<br><br>"&mes&"<br>路<a href='javascript:history.go(-1)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		        mes=mes&"<br><br>"&loading&""
		        call sendinfo(tl,mes)
                response.write"</td>"&_
                                                "  </tr>"&_
                                                "</table>"

        Else 

		response.write"<table width='"&webwidth&"' cellpadding='0' cellspacing='0' align='center'>"&_
              "  <tr>"&_
              "   <td>"
        response.write c_skin_56770(c_skin_word(skin_basket_cashsave_1))
        response.write"</td>"&_
              "  </tr>"&_
              "</table>"
		End If 
End Sub
%>
<%
Sub save
        Response.Buffer = True 
        Response.ExpiresAbsolute = Now() - 1 
        Response.Expires = 0 
        Response.CacheControl = "no-cache"
        set rs = conn.execute("select * from [56770_lsbuy] where sessionid="&session.sessionid&"")
        If rs.eof Then
		        response.write"<meta http-equiv=refresh content=5;url=default.asp>"
                tl=www56770com_word84
		        mes=www56770com_word134
                mes="路"&www56770com_word675&"<br><br>"&mes&"<br><br>路<a href='javascript:history.go(-1)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		        mes=mes&"<br><br>"&loading&""
		        call sendinfo(tl,mes)
        Else 
                If session(""&cookiesname&"user_id")="" Then
                        user_id=""&www56770com_word135&""
                Else
                        user_id=session(""&cookiesname&"user_id")
                End If
                '鐢熸垚璁㈠崟鍙