www.gusucode.com > 凡人网络购物系统 2008源码程序 > IncAsp/venshop_inpay.asp
<table border="0" cellpadding="5" cellspacing="0">
<tr>
<%if pay_tenpayo=1 then%><td align="center">
<% spid = pay_tenpay
sp_key = pay_tenpayp
cmdno = "1"
bill_date = CFTGetServerDate
bank_type = "0"
desc = sub_number
purchaser_id = ""
bargainor_id = spid
sp_billno = year(now())&right(month(now()),1)&right(day(now()),1)&right(hour(now()),1)&right(minute(now()),1)&right(second(now()),1)&right(sub_number,1)
transaction_id = spid & bill_date & sp_billno
total_fee = totalcash*100
if bizhong="USD" then
fee_type = "2"
elseif bizhong="HKD" then
fee_type = "3"
else
fee_type = "1"
end if
return_url = pay_url
attach = "my_magic_string"
sign_text = "cmdno=" & cmdno & "&date=" & bill_date & "&bargainor_id=" & bargainor_id &_
"&transaction_id=" & transaction_id & "&sp_billno=" & sp_billno &_
"&total_fee=" & total_fee & "&fee_type=" & fee_type & "&return_url=" & return_url &_
"&attach=" & attach & "&key=" & sp_key
md5_sign = UCase(ASP_MD5(sign_text))
%>
<table border="0" cellpadding="0" cellspacing="0">
<form action="http://portal.tenpay.com/cfbiportal/cgi-bin/cfbiin.cgi" target="_blank"><tr><td colspan="2" align="center">
<input type=hidden name="cmdno" value="<%=cmdno%>">
<input type=hidden name="date" value="<%=bill_date%>">
<input type=hidden name="bank_type" value="<%=bank_type%>">
<input type=hidden name="desc" value="<%=desc%>">
<input type=hidden name="purchaser_id" value="<%=purchaser_id%>">
<input type=hidden name="bargainor_id" value="<%=bargainor_id%>">
<input type=hidden name="transaction_id" value="<%=transaction_id%>">
<input type=hidden name="sp_billno" value="<%=sp_billno%>">
<input type=hidden name="total_fee" value="<%=total_fee%>">
<input type=hidden name="fee_type" value="<%=fee_type%>">
<input type=hidden name="return_url" value="<%=return_url%>">
<input type=hidden name="attach" value="<%=attach%>">
<input type=hidden name="sign" value="<%=md5_sign%>">
<input type=image border="0" src="img/pay/tenpay.gif">
</td></tr></form></table></td>
<%end if%>
<%if pay_cncardo=1 then
c_mid = pay_cncard
c_order = sub_number
c_orderamount = totalcash
c_ymd = year(date())*10000+month(date())*100+day(date())
c_moneytype = "0"
c_retflag = "0"
c_paygate = ""
c_returl = pay_url
c_memo1 = "Venshop"
c_memo2 = "70"
c_pass = pay_cncardp
notifytype = "0"
c_language = "0"
srcStr = c_mid & c_order & c_orderamount & c_ymd & c_moneytype & c_retflag & c_returl & c_paygate & c_memo1 & c_memo2 & notifytype & c_language & c_pass
c_signstr = MD5(srcStr)%>
<td align="center">
<table border="0" cellpadding="0" cellspacing="0">
<form name="payForm1" action="https://www.cncard.net/purchase/getorder.asp" method="POST" target="_blank">
<tr><td colspan="2" align="center">
<input type="hidden" name="c_name" value="<%=trim(rs("sub_to"))%>">
<input type="hidden" name="c_address" value="<%=trim(rs("sub_adds"))%>">
<input type="hidden" name="c_tel" value="<%=trim(rs("sub_tel"))%>">
<input type="hidden" name="c_post" value="<%=trim(rs("sub_post"))%>">
<input type="hidden" name="c_email" value="<%=trim(rs("sub_mail"))%>">
<input type="hidden" name="c_mid" value="<%=c_mid%>">
<input type="hidden" name="c_order" value="<%=c_order%>">
<input type="hidden" name="c_orderamount" value="<%=c_orderamount%>">
<input type="hidden" name="c_ymd" value="<%=c_ymd%>">
<input type="hidden" name="c_moneytype" value="<%=c_moneytype%>">
<input type="hidden" name="c_retflag" value="<%=c_retflag%>">
<input type="hidden" name="c_paygate" value="<%=c_paygate%>">
<input type="hidden" name="c_returl" value="<%=c_returl%>">
<input type="hidden" name="c_memo1" value="<%=c_memo1%>">
<input type="hidden" name="c_memo2" value="<%=c_memo2%>">
<input type="hidden" name="c_language" value="<%=c_language%>">
<input type="hidden" name="notifytype" value="<%=notifytype%>">
<input type="hidden" name="c_signstr" value="<%=c_signstr%>">
<input type=image border="0" src="img/pay/cncard.gif">
</td></tr></form></table></td>
<%end if%>
<%if pay_ebanko=1 then
v_mid=pay_ebank
v_url=pay_url
key=pay_ebankp
v_oid=sub_number
v_amount=totalcash
v_moneytype=bizhong
text=v_amount&v_moneytype&v_oid&v_mid&v_url&key
v_md5info=Ucase(trim(md5(text)))
v_rcvname=rs("sub_to")
v_rcvaddr=rs("sub_adds")
v_rcvtel=rs("sub_tel")
v_rcvpost=rs("sub_post")
v_rcvemail=rs("sub_mail")
v_rcvmobile=rs("sub_tel")
v_ordername=rs("sub_from")
v_orderaddr=rs("sub_fromadds")
v_ordertel=rs("sub_fromtel")
v_orderpost=rs("sub_frompost")
v_orderemail=rs("sub_frommail")
v_ordermobile=rs("sub_fromtel")
remark1="venshop.com"
remark2="venshop2008"%>
<td align="center">
<table border="0" cellpadding="0" cellspacing="0">
<form action="https://pay3.chinabank.com.cn/PayGate" method="POST" name="E_FORM" target="_blank">
<tr><td colspan="2" align="center">
<input type="hidden" name="v_md5info" value="<%=v_md5info%>" size="100">
<input type="hidden" name="v_mid" value="<%=v_mid%>">
<input type="hidden" name="v_oid" value="<%=v_oid%>">
<input type="hidden" name="v_amount" value="<%=v_amount%>">
<input type="hidden" name="v_moneytype" value="<%=v_moneytype%>">
<input type="hidden" name="v_url" value="<%=v_url%>">
<input type="hidden" name="remark1" value="<%=remark1%>">
<input type="hidden" name="remark2" value="<%=remark2%>">
<input type="hidden" name="v_rcvname" value="<%=v_rcvname%>">
<input type="hidden" name="v_rcvaddr" value="<%=v_rcvaddr%>">
<input type="hidden" name="v_rcvtel" value="<%=v_rcvtel%>">
<input type="hidden" name="v_rcvpost" value="<%=v_rcvpost%>">
<input type="hidden" name="v_rcvemail" value="<%=v_rcvemail%>">
<input type="hidden" name="v_rcvmobile" value="<%=v_rcvmobile%>">
<input type="hidden" name="v_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_orderaddr" value="<%=v_orderaddr%>">
<input type="hidden" name="v_ordertel" value="<%=v_ordertel%>">
<input type="hidden" name="v_orderpost" value="<%=v_orderpost%>">
<input type="hidden" name="v_orderemail" value="<%=v_orderemail%>">
<input type="hidden" name="v_ordermobile" value="<%=v_ordermobile%>">
<input type=image border="0" src="img/pay/chinab.gif">
</td></tr></form></table></td>
<%end if%>
<%if pay_zhifubaoo=1 then%><td align="center">
<a target="_blank" href="alipayindex_a.asp?ProductName=<%=sub_number%>&prices=<%=totalcash%>" target="_blank">
<img border="0" src="img/pay/alipay_buy.gif"></a></td>
<%end if%>
<%if pay_paypalo=1 then%>
<td align="center">
<a target="_blank" href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=<%=pay_paypal%>&item_name=<%=sub_number%>&item_number=<%=sub_number%>&amount=<%=totalcash%>¤cy_code=<%=bizhong%>" target="_blank">
<img border="0" src="img/pay/paypal_buy.gif"></a></td>
<%end if%>
</table>