example_get.asp

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

<%
'===============================================================
'  PAY88支付接口应用演示代码.  本演示代码仅作参考!              
'  详细PAY88技术规范请参见:                                     
'   << PAY88商户会员支付接口使用规范V1.2 >> ;                  
'   << 用户使用手册及使用规范V1.3 >> ;                         
'  如有任何问题请使用PAY88自助客户服务中心服务.                 
'===============================================================
' 接收支付结果程序开始
' 此处可为商户自己的程序操作,此处略.下一步为加载md5加密函数
%>
<!--#include file="md5.asp"-->
<%
custid=trim(Request.Form("custid"))        '获取商品的自定义订单号
shopname=trim(Request.Form("shopname"))    '获取出售的商品名称
paycash=trim(Request.Form("paycash"))      '获取支付金额
email=trim(Request.Form("email"))          '获取消费者电子邮箱
phono=trim(Request.Form("tel"))            '获取消费者联系电话
othernote=trim(Request.Form("other"))      '获取留言信息
paysok=trim(Request.Form("paysok"))        '获取支付是否成功的标记

' 商户可以通过获取的参数对自身的数据库进行查询.检查是否各项匹配。

codes=trim(Request.Form("codes"))          '获取PAY88返回的加密MD5串


' 开始写商户的信息
pay88id="demo"                '设置商户的PAY88用户ID,例子中的ID是demo
pay88pwd="love"               '设置商户的PAY88登陆密码,例子中的密码是love
namecardid="510211600606281"  '设置商户注册PAY88时的身份证号码,必须与商户资料里的身份证一样
pay88mail="[e-mail]"    '设置商户注册PAY88时的EMAIL地址,必须与商户资料里的EMAIL一样

Rcodes=md5(pay88id&pay88pwd&namecardid&pay88mail&custid&shopname&paycash&email&phono) '对获取的信息进行加密.

 if codes <> Rcodes then     '比较PAY88传回的加密码,并检查是否加密通过
  response.write "发生交易加密错误，非法操作，交易结束!"
  getok="no"
  ' 错误时的处理,商户可以自己操作
 Else
  getok="yes"
 End If

 if paysok="yes" then        '检查PAY88支付中心对本次支付的标记是否为支付成功
  getok="yes"
 else
  Response.write "支付失败!交易结束!"
  getok="no"
 end if

 if getok="yes" then
  ' 支付成功,商户对本订单进行各种操作.如提供服务等. 提醒：请记住在操作后对此订单进行删改.
  ' 以下进行自动化操作（如自动数据库操作，自动点播电影，自动充值、自动提供服务等）
  Response.write "支付成功!感谢您的支持"
 end if
%>