-
本版专家分：4904结帖率 90% -
<%
t2 = "chinaxxy@126.com" '商户支付宝账户（改成你自己的）
t3 = "iabcg89z2vlxr5pgykuo612f52xhhr6r" '安全校验码（改成你自己的）。登陆支付宝网站->商家工具->右下角.一长窜乱码就是校验码了。
'这儿是MD5的代码，太长了我删了
%>
<%myurl="http://"+request.servervariables("server_name")+request.servervariables("url")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网店支付宝整合 Http://www.22CN.net.cn 湖南E族网络信息服务中心</title>
<style type="text/css">
<!--
a,body,td {
font-size: 13px;
line-height: 22px;
}
input {
border: 1px solid #000000;
}
-->
</style>
<script>
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
</script>
</head>
<body><%
dim id
id=request("id")
if id ="" then
%>
<table width="100%" border="2" cellpadding="5" cellspacing="1" bordercolor="#0000FF" bgcolor="#FFFFFF">
<form name="wangdaofan" action="<%=myurl%>?id=Confirm" method="POST" onSubmit="return CheckForm();">
<tr align="center" bgcolor="#0000FF">
<td height="35" colspan="2"><strong><font color="#FFFFFF">支付宝在线付款程序</font></strong></td>
</tr>
<tr>
<td width="25%" align="right">金 额：</td>
<td width="75%"><input name="jh" type="text" size="12" maxlength="12" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))">
元（<strong><font color="#0000FF">例：</font></strong>如输入 100.88 就是支付 100元8角8分
）</td>
</tr>
<tr>
<td align="right">用 途：</td>
<td><input name="yt" type="text" size="12" maxlength="12"></td>
</tr>
<tr>
<td align="right">附加说明：</td>
<td><input name="sm" type="text" size="50" maxlength="50"></td>
</tr>
<tr>
<td align="right">您的姓名：</td>
<td><input name="xm" type="text" size="12" maxlength="12"></td>
</tr>
<tr>
<td align="right">联系地址：</td>
<td><input name="dz" type="text" size="50" maxlength="50"></td>
</tr>
<tr>
<td align="right">邮政编码：</td>
<td><input name="yb" type="text" size="12" maxlength="7" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))"></td>
</tr>
<tr>
<td align="right">电 话：</td>
<td><input name="dh" type="text" size="22" maxlength="22" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))"></td>
</tr>
<tr>
<td align="right">手 机：</td>
<td><input name="sj" type="text" size="22" maxlength="33" onkeypress = "return regInput(this, /^\d*\.?\d{0,2}$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^\d*\.?\d{0,2}$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^\d*\.?\d{0,2}$/, event.dataTransfer.getData('Text'))"></td>
</tr>
<tr>
<td height="34" align="right"> </td>
<td><input type="submit" name="Submit" value="提交支付">
<input type="reset" name="Submit2" value="重新填写"></td>
</tr>
<tr>
<td colspan="2" align="right">网店支付宝整合由 <a href="http://www.22cn.net.cn" target="_blank"><font color="#0000FF">Http://www.22CN.net.cn</font></a> 提供</td>
</tr>
</FORM>
</table>
<%elseif id="Confirm" then%>
<%
jh=request.form("jh")
yt=request.form("yt")
sm=request.form("sm")
xm=request.form("xm")
dz=request.form("dz")
yb=request.form("yb")
dh=request.form("dh")
sj=request.form("sj")
ranNum=int(9*rnd)+10
iddata=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum'生成日期型订单号
%>
<%
t1 = "https://www.alipay.com/payto:" '支付接口
s1 = "0001" 'cmd 命令码
s2 = DelStr(yt) 'subject 商品名称
s3 = DelStr(sm) 'body 商品描述
s4 = iddata 'order_no 商户订单号
s5 = jh 'price 商品单价 0.01～50000.00
s6 = myurl 'url 商品展示网址
s7 = "1" 'type 支付类型 1：商品购买2：服务购买3：网络拍卖4：捐赠
s8 = "1" 'number 购买数量
s9 = "2" 'transport 发货方式 1：平邮2：快递3：虚拟物品
s10 = "" 'ordinary_fee 平邮运费
s11 = "" 'express_fee 快递运费
s12 = "true" 'readonly 交易信息是否只读
s13 = DelStr(sm) 'buyer_msg 买家给卖家的留言
s14 = "" 'buyer 买家Email
s15 = xm 'buyer_name 买家姓名
s16 = DelStr(dz) 'buyer_address 买家地址
s17 = yb 'buyer_zipcode 买家邮编
s18 = dh 'buyer_tel 买家电话号码
s19 = sj 'buyer_mobile 买家手机号码
s20 = "2088002065360282" 'partner 友情通用ID请不要修改,用来统计交易金额的
'初始化各必要变量
INTERFACE_URL = t1+t2 '支付接口
sellerEmail = t2 '商户支付宝账户
keyCode = t3 '安全校验码
str2CreateAc = "cmd" & s1 & "subject" & s2
str2CreateAc = str2CreateAc & "body" & s3
str2CreateAc = str2CreateAc & "order_no" & s4
str2CreateAc = str2CreateAc & "price" & s5
str2CreateAc = str2CreateAc & "url" & s6
str2CreateAc = str2CreateAc & "type" & s7
str2CreateAc = str2CreateAc & "number" & s8
str2CreateAc = str2CreateAc & "transport" & s9
str2CreateAc = str2CreateAc & "ordinary_fee" & s10
str2CreateAc = str2CreateAc & "express_fee" & s11
str2CreateAc = str2CreateAc & "readonly" & s12
str2CreateAc = str2CreateAc & "buyer_msg" & s13
str2CreateAc = str2CreateAc & "seller" & sellerEmail
str2CreateAc = str2CreateAc & "buyer" & s14
str2CreateAc = str2CreateAc & "buyer_name" & s15
str2CreateAc = str2CreateAc & "buyer_address" & s16
str2CreateAc = str2CreateAc & "buyer_zipcode" & s17
str2CreateAc = str2CreateAc & "buyer_tel" & s18
str2CreateAc = str2CreateAc & "buyer_mobile" & s19
str2CreateAc = str2CreateAc & "partner" & s20
str2CreateAc = str2CreateAc & keyCode
acCode = MD5(str2CreateAc)
itemURL = INTERFACE_URL & "?cmd=" & s1
itemURL = itemURL & "&subject=" & Server.HTMLEncode(s2)
itemURL = itemURL & "&body=" & Server.HTMLEncode(s3)
itemURL = itemURL & "&order_no=" & s4
itemURL = itemURL & "&price=" & s5
itemURL = itemURL & "&url=" & s6
itemURL = itemURL & "&type=" & s7
itemURL = itemURL & "&number=" & s8
itemURL = itemURL & "&transport=" & s9
itemURL = itemURL & "&ordinary_fee=" & s10
itemURL = itemURL & "&express_fee=" & s11
itemURL = itemURL & "&readonly=" & s12
itemURL = itemURL & "&buyer_msg=" & Server.HTMLEncode(s13)
itemURL = itemURL & "&buyer=" & Server.HTMLEncode(s14)
itemURL = itemURL & "&buyer_name=" & Server.HTMLEncode(s15)
itemURL = itemURL & "&buyer_address=" & Server.HTMLEncode(s16)
itemURL = itemURL & "&buyer_zipcode=" & s17
itemURL = itemURL & "&buyer_tel=" & s18
itemURL = itemURL & "&buyer_mobile=" & s19
itemURL = itemURL & "&partner=" & s20
itemURL = itemURL & "&ac=" & acCode
'调用方法 DelStr(值)，防止SQL注入攻击
Function DelStr(Str)
If IsNull(Str) Or IsEmpty(Str) Then
Str = ""
End If
DelStr = Replace(Str,";","")
DelStr = Replace(DelStr,"'","")
DelStr = Replace(DelStr,"&","")
DelStr = Replace(DelStr," ","")
DelStr = Replace(DelStr," ","")
DelStr = Replace(DelStr,"%20","")
DelStr = Replace(DelStr,"--","")
DelStr = Replace(DelStr,"==","")
DelStr = Replace(DelStr,"<","")
DelStr = Replace(DelStr,">","")
DelStr = Replace(DelStr,"%","")
DelStr = Replace(DelStr,"+","")
DelStr = Replace(DelStr,"顶级","DingJi")
End Function
%>
<table width="100%" border="2" cellpadding="5" cellspacing="1" bordercolor="#0000FF" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#0000FF">
<td height="35" colspan="2"><strong><font color="#FFFFFF">支付宝在线付款信息确认</font></strong></td>
</tr>
<tr>
<td width="25%" align="right">金 额：</td>
<td width="75%"><font color="#FF0000"><%=jh%>元</font></td>
</tr>
<tr>
<td align="right">用 途：</td>
<td><%=yt%></td>
</tr>
<tr>
<td align="right">附加说明：</td>
<td><%=sm%></td>
</tr>
<tr>
<td align="right">支付单号：</td>
<td><%=iddata%></td>
</tr>
<tr>
<td align="right">您的姓名：</td>
<td><%=xm%></td>
</tr>
<tr>
<td align="right">联系地址：</td>
<td><%=dz%></td>
</tr>
<tr>
<td align="right">邮政编码：</td>
<td><%=yb%></td>
</tr>
<tr>
<td align="right">联系电话：</td>
<td><%=dh%></td>
</tr>
<tr>
<td align="right">手 机：</td>
<td><%=sj%></td>
</tr>
<tr>
<td align="right"> </td>
<td><input type="button" name="立即提交" value="立即提交" onClick="location.href='<%=itemURL%>'">
<input type="button" name="Submit21" onClick="javascript:history.go(-1)" value="返回修改">
</td>
</tr>
<tr>
<td colspan="2" align="right">网店支付宝整合由 <a href="http://www.22cn.net.cn" target="_blank"><font color="#0000FF">Http://www.22CN.net.cn</font></a> 提供</td>
</tr>
</table>
<%end if%>
</body>
</html>
看看是否可用，毕竟这好像是07年的代码了，我在上面删除了一段MD5算法的代码，和JS验证代码代码太长了
-
本版专家分：88290
-
- 铜牌 2008年10月 总版技术专家分月排行榜第三
-
-
红花
2009年1月 Web 开发大版内专家分月排行榜第一
2008年12月 Web 开发大版内专家分月排行榜第一
2008年10月 Web 开发大版内专家分月排行榜第一
2008年9月 Web 开发大版内专家分月排行榜第一
2008年8月 Web 开发大版内专家分月排行榜第一
-
-
黄花
2009年3月 Web 开发大版内专家分月排行榜第二
2009年2月 Web 开发大版内专家分月排行榜第二
2008年11月 Web 开发大版内专家分月排行榜第二
-
-
只要是支付宝给的那个DEMO就是好用的
-
本版专家分：4904
-
没人做过吗？小弟第一次接触支付宝接口,帮帮忙吧
-
本版专家分：4904
-
这好像不是，那我下载一个去看看
-
本版专家分：1926 -
很简单,去支付宝下载一个最新的ASP接口就可以了
PS:支付宝现在接口要收费......
- 代码相似度分析工具
一个代码相似度分析工具，结果准确度还行，分享给有需要的人。
- 代码相似度检测
简单的代码相似度检测，使用Java编写。 算法步骤： S1：剔除程序中所有注释、空行、空格 S2：剔除程序中所有变量、函数名 S3：剩下的部分（实际上主要是有 C++关键词构成的字符串）作为代码特征串 S4：两个特征串...
- 狗品种图像识别算法CNN
狗的品种识别,人脸检测,tensofflow,cnn,迁移学习, 有些模板代码已经提供给你，但还需要实现更多的功能来完成这个项目,也提供答案
- VC++ 签名鉴定_笔迹识别源代码.
VC++ 签名鉴定/笔迹识别源代码，包含AR算法和DTW算法及应用实例。
- 一种笔迹鉴定的方法(基于线性判别式)
一种笔迹鉴定的方法，该资源引用别人的专利，只允许学习不得进行随意传播
- 珠宝鉴定系统
北京林业大学信息学院计算机科学与技术专业实践课——珠宝鉴定系统。
- java编码规范+技能鉴定
NULL 博文链接：https://meng-sicheng.iteye.com/blog/1696561
- 51单片机指纹考勤代码
基于51单片机的指纹识别考勤设计代码，每个人包括指纹在内的皮肤纹路在图案、断点和交叉点上各不相同，呈现唯一性且终生不变。据此，我们就可以把一个人同他的指纹对应起来，通过将他的指纹和预先保存的指纹数据进行...
- 门禁系统代码
可以实现身份鉴定。查看记录情况等功能强大
- 金山卫士开源代码_Update20160525
版本说明： 网盾与实时保护标签合并，不再需要东奔西走寻找开关; 查杀木马与插件清理的信任项合并，更易于使用; 垃圾清理补充关闭被占用的程序入口，清理过程更顺畅 ...主页设定拦截启用云鉴定，更安全可靠
- vc笔迹鉴别程序包括字分割预处理以及鉴别算法
自己开发的一个笔迹鉴别系统，包括笔迹预处理，字分割，鉴别算法的实现等功能
- 一个汉字笔迹鉴别方法
清华大学的专利 仅供学习 请勿二传
- 华为往年试题源代码c和c++版
华为往年试题源代码c和c++版（部分题库）
- 珠宝玉器网站源码
珠宝玉器网站源码，集成支付，留言模版，是一个卖玉器珠宝的不错选择
- 精通VC++指纹模式识别系统算法(源码+电子书)
第二篇讲解指纹模式识别系统算法，包括指纹模式识别预处理和指纹图像特征提取与比对的源代码实现；第三篇讲解如何亲手打造指纹模式识别系统，带领读者制作一个指纹模式识别系统的软硬件系统；第四篇讲解指纹模式识别...
- 玉石证书查询系统
很不错的ASP查询门户网站
- 小说朗读器之央视播音员女声加男声 v2014.6.15.zip
男声真人朗读，字正腔圆，充满阳刚，朗读有节奏感，接近央视播音员水准(经权威鉴定相似度99.8％)男女声可切换。这的确是一款用来听小说的好东给，软件完全免费可永久使用。 小说朗读器之央视播音员女声加男声...
- 人工智能五子棋
这个程序是一个人工智能版的五子棋，你可以和电脑对战，难点就在于电脑部分代码的实现，希望读者仔细看那部分。
- vc++数字图像识别技术经典案例 光盘源码
第8章 印鉴鉴定系统 433 8.1 伪印鉴的制作及人工防伪技术 433 8.1.1 常用伪造印鉴的方法及其特征 433 8.1.2 真假印鉴印文的检验 435 8.2 印鉴图像的分离 435 8.2.1 封闭凸多边形图像提取的算法提出 436 ...
- 高校科研信息管理系统
有源代码和需求分析报告、数据库文件等，很方便... 功能列表: 基础设置: 学院设置 管理员管理 教师管理 项目管理: 项目申报管理 项目申报 项目管理 计划经费汇总 到位经费汇总 成果管理: 论文 著作 权利 鉴定...