<%
user=Request.cookies("JyDownUserName")
if user<>"" then
user=replace(user," ","+++ close")
else
response.write("<li>您没有进入本页面的权限,本次操作已被记录!<br><li>如果你是本站会员请先<a href=login.asp target=_top>登陆</a>后进入.")
response.end
end if
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from UserInfo where user='"&JyDownAdminName&"'",conn,1,1
email=rs("email")
tel=rs("oicq")
%>
<%

' 表单的各项参数如下：

' v_mid
' 商户号,这里为测试商户号1001，替换为自己的商户号即可
' key
' MD5私钥
' v_oid
' 订单号，构成格式年月日-商户号-小时分钟秒
' v_amount
' 订单金额
' v_moneytype
' 支付币种0为人民币
' v_url
' 商户自定义返回接收支付结果的页面
' remark1
' 备注字段1
' remark2
' 备注字段2
' style
' 指网关模式0(普通)，1(银行列表中带外卡)

'********以下几项与网上支付货款无关，建议不用**************
' v_rcvname
' 收货人
' v_rcvaddr
' 收货地址
' v_rcvtel
' 订货人电话
' v_rcvpost
' 邮编
' v_ordername
' 发货人
' v_orderemail
' 订货人EMAIL

key = "test" '这里添上你chianbank的KEY
v_mid = "10001" '这里添上你的商户号
v_amount="0.01" '价格
v_moneytype = "0"
style="0"
v_url="http://www.域名.com/admin/Receive.asp"
remark1="VIP费"
remark2=""

'根据系统时间产生订单，格式：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))) '网银支付平台对MD5值只认大写字符串，所以小写的MD5值得转换为大写

'**********以下几项与网上支付货款无关，建议不用**************
v_rcvname=JyDownAdminName
v_rcvaddr=""
v_rcvtel=tel
v_rcvpost=""
v_ordername=""
v_orderemail =email
%>


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线支付接口ASP版</title>
</head>

<body>

<br>
<table border="0" width="80%" align=center>
<tr>
<td width="100%">请您确认信息:<br>
<table border="0" width="80%">
<tr>
<td align="left" width="20%">会员ID：</td>
<td><%=v_rcvname%></td>
</tr>
<tr>
<td align="left" width="20%">会员QQ：</td>
<td><%=v_rcvtel%></td>
</tr>
<tr>
<td align="left" width="20%">会员EMAIL：</td>
<td><%=v_orderemail%></td>
</tr>
</table>
<br>
<a href="edit.asp">修改联系方法</a></td>
</tr>
<tr>
<td><br>
您付款总金额为:<font color=red><%=v_amount%><br>
</font><br>
如果以上资料正确，请您开始下一步操作,注意浏览器不要禁用cookies。</td>
</tr>
</table>
<form method="post" action="https://pay.chinabank.com.cn/select_bank" name="E_FORM" target=new>

<div align="center">
<input type="hidden" name="v_md5info" size="100" value="<%=v_md5info%>">
<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="style" value="<%=style%>">
<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_ordername" value="<%=v_ordername%>">
<input type="hidden" name="v_orderemail" value="<%=v_orderemail%>">

<input type=submit name=v_action value="在线支付立即开通">
</div>
</form>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href="pay.htm" target="_blank">其他付费方式</a></td>
</tr>
</table>
</body>
</html>

Receive.asp文件

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>
<body>





<%
user=Request.cookies("JyDownUserName")
if user<>"" then
user=replace(user," ","+++ close")
else
response.Write "user错误！"
response.End()
end if
%>

<%
' 提取表单参数
'
' v_oid
' 商户发送的v_oid定单编号
' v_pmode
' 支付方式（字符串）
' v_pstatus
' 支付状态
' 20（支付成功）
' 30（支付失败）
' v_pstring
' 支付结果信息
' 支付完成（当v_pstatus=20时）；
' 失败原因（当v_pstatus=30时）；
' v_md5str
' Md5校验串
' v_amount
' 订单实际支付金额
' v_moneytype
' 订单实际支付币种
' remark1
' 备注字段1
' remark2
' 备注字段2
' key
' 私钥值，商户可上chinabank后台自行设定
'
'/
v_oid=request("v_oid")
v_pmode=request("v_pmode")
v_pstatus=request("v_pstatus")
v_pstring=request("v_pstring")
v_amount=request("v_amount")
v_moneytype=request("v_moneytype")
remark1=request("remark1")
remark2=request("remark2")
v_md5str=request("v_md5str")

key="test" '这里添你的chinabank key

if request("v_md5str")="" then
response.Write("v_md5str：空值")
response.end
end if

'md5校验

text = v_oid&v_pstatus&v_amount&v_moneytype&key
md5text = Ucase(trim(md5(text)))

'按md5检验情况输出结果 Ucase转换为大写
if md5text<>v_md5str then
response.write("MD5 error")
else
'逻辑处理
if v_pstatus=20 then
'支付成功
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from UserInfo where user='"&user&"'",conn,1,2
rs("dj")=1
rs.Update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write("VIP开通成功")
else
'支付失败
response.Write("支付出现问题，未扣除您的金额")
end if

'提示：仅是对校验码校验通过不表示该支付结果是成功只意味着该信息是由网银传回
'校验成功需对传回的v_pstatus参数做判断，其中20都意味着支付成功，30表示支付失败
'如果商户涉及实时售卡，请对返回的金额与数据库中原始金额做大小判断，以防恶意行为

'-----------------------------------------------
end if
%>


<table width="60%" border="0" align="center">
<tr>
<td> <p><b><font color="#FF0000">提示：</font> 您网上在线支付情况反馈如下：</b><br>
此次交易编号： <%=v_oid%></p>
<p>
<%if v_pstatus=20 then
zhuangtai = "在线支付已经支付成功"
%>
在线支付已经支付成功
。
<%elseif v_pstatus=30 then
zhuangtai = "在线支付失败!"
%>
在线支付失败! 支付中途出现问题，未扣除您的金额"
<%end if%>
<br>
<br>
<br>
您所使用的卡为：<%=v_pmode%><br>
订单实际支付金额：<%=v_amount%><br>
</p> </td>
</tr>
</table>

MD5.asp 文件自己到 chianbank下载吧

（出处：ABC网络学院）

上一篇:免费的WEB版QQ挂机工具：KOQQ

下一篇:Microsoft Windows 2000 Server FSO 安全隐患解决办法

惊云高级会员网银在线支付接口程序 相关软件：

惊云高级会员网银在线支付接口程序 相关文章：

·Delphi应用程序开发精彩实例

·JSP 程序设计精彩实例(PDG)

·Windows 2000 安全修补程序Build 2003.03.26 简体中文版

·Fdisk分区练习模拟程序

·傲论坛 TO 动网论坛6.0.0转换程序 V2.0

·家佳网上购物商城全站程序

·中国网站网贴吧(琪琪贴吧)程序 v3.2

·利用.net反射动态调用指定程序集的中的方法

·Windows XP注册表与驱动程序优化全集

·.net 2.0(c#)下简单的FTP应用程序

·动态网页技术PHP程序字符串处理函数

·vBB, IPB, phpBB, Discuz, Snitz, WWF, Dvbbs七款论坛程序比较

·危险！WinRAR自解压程序可能为所欲为

·关闭Windows Server 2003关机事件跟踪程序

·破解程序及注册机使用方法

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.abcdown.net

首页 | 本站声明 | 下载帮助 | 发布软件 |