example_post.asp

酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~ 此代码仅供个人学习使用

<!--#include file="md5.asp"-->
<%
'===============================================================
'  PAY88支付接口应用演示代码.  本演示代码仅作参考!              
'  详细PAY88技术规范请参见:                                                
'  << 用户使用手册及使用规范V1.4 >> ;                         
'  如有任何问题请使用PAY88自助客户服务中心服务.                 
'===============================================================
' 程序开始
' 此处可为商户自己的程序操作,此处略.
orderid=trim(Request.Form("orderid"))        '获取订单号
shopname=trim(Request.Form("shopname"))      '获取商品名称
paycash=trim(Request.Form("paycash"))           '获取支付金额
email=trim(Request.Form("email"))            '获取电子邮箱
phono=trim(Request.Form("phono"))            '获取联系电话
othernote=trim(Request.Form("othernote"))    '获取留言信息

pay88id="demo"   '设置商户的PAY88用户ID

'在Ver1.4版中，如果您在 配置>接受配置 中设置了支付加密码，下面将生成一个支付加密码:
' rescode="您在接受配置中设置的支付加密码"            '设置您在接收配置中设置的支付加密码
' clacodes=md5(pay88id&custid&shopname&rescode)       '生成一个加过密的加密码

Response.Write("订单编号:"&orderid&"<br>")
Response.Write("商品名称:"&shopname&"<br>")
Response.Write("支付金额:"&paycash&"<br>")
Response.Write("电子邮箱:"&email&"<br>")
Response.Write("留言信息:"&othernote&"<br>")
%>
<!-- 通过链接 -->
<a href="http://www.pay88.com:1888/postorderinfor_check.asp?custid=<%=orderid%>&shopname=<%=shopname%>&cash=<%=paycash%>&email=<%=email%>&phono=<%=phono%>&note=<%=othernote%>&username=<%=pay88id%>&clacodes=<%=clacodes%>">点击这里确认开始支付</a>
<%
'直接接入支付网关
'Response.Redirect("http://www.pay88.com:1888/postorderinfor_check.asp?custid="&orderid&"&shopname="&shopname&"&cash="&paycash&"&email="&email&"&phono="&phono&"&note="&othernote&"&username="&pay88id&"&clacodes=<%=clacodes%>")
'Response.End
'支付请求接入完成
%>