chongzhi.asp

电子商城代码

<!--#include file="top.asp" -->
<!--#include file="include/md5pay.asp" -->
<%
strwebtitle=www56770com_word572
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
%>
<table width="<%=webwidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<%=c_skin_56770(c_skin_word(skin_myuser_left))%>
<td width="5"></td>
<td valign="top">
<%=c_skin_56770(c_skin_word(skin_myuser_ctop))%>
<%
dim action
Select Case Request("action")
	Case "update" : update()
	Case Else
		     list()
End Select

Sub list
        Dim payifqpay,qpayusername,qpayshopname,qpaykeys,qpayleixing,qpayfangshi,qpayurlback,qpayver,v_amount,style,curdate,text,v_md5info,v_oid
		Dim cz_price,cz_fuyan,linkurl,str_linkurl,str_linkurl_r,str_linkurl_rr,shenqingtype,chongzhiinfo
        cz_price=safereplace(request("cz_price"))
		cz_fuyan=safereplace(request("cz_fuyan"))
		linkurl=request.servervariables("HTTP_REFERER")
		shenqingtype=safereplace(request("shenqingtype"))
		If cz_price="" Then 
		        response.write"<meta http-equiv=refresh content=3;url=javascript:history.go(-1)>"
                tl=www56770com_word572
                mes="路"&www56770com_word612&""
                mes=mes&"<br><br>路<a href='javascript:history.go(-1)'><img border=0 src=images/re.gif align=absmiddle>"&www56770com_word345&"</a>"
		        call sendinfo(tl,mes)
		Else
		str_linkurl=Split(linkurl,"/")
		str_linkurl_r=str_linkurl(UBound(str_linkurl))
        str_linkurl_rr=Replace(linkurl,str_linkurl_r,"chongzhi.asp?action=update")
		qpayshopname=request("qpayshopname")
	    qpayusername =request("qpayusername")
	    qpayleixing = request("qpayleixing")
		qpayfangshi = request("qpayfangshi")
		qpayurlback= request("qpayurlback")
		qpayver= "2.0"
	    v_amount=cz_price
	    style=request("paystyle")
	    v_url=str_linkurl_rr
	    

	    '鏍规嵁绯荤粺鏃堕棿浜х敓璁㈠崟锛屾牸寮忥細YYYYMMDD-v_mid-HMMSS
	    curdate=now()
        v_oid=year(curdate)&month(curdate)&day(curdate)&"-"&v_mid&"-"&hour(curdate)&minute(curdate)&second(curdate)
	    text = v_amount&v_moneytype&v_oid&v_mid&v_url&key
	    v_md5info=Ucase(trim(md5(text)))	
		If session("chongzhi")="ok" And cz_price<>"" Then
		       If shenqingtype="" Then 
			          chongzhiinfo=www56770com_word572
			   Else
			          chongzhiinfo=www56770com_txt75
			   End If 
		       conn.execute("insert into [56770_buy](name,price,fuyan,order_num,addtime)values('"&session(""&cookiesname&"user_id")&"',"&cz_price&",'"&cz_fuyan&"','"&v_oid&"',"&sqlnowstring&")")
			   rem 棰勫瓨娆炬秷璐规槑缁