asp 一些支付接口(34)
c = ASP_AddUnsigned(c, CC)
d = ASP_AddUnsigned(d, DD)
Next
ASP_MD5 = LCase(ASP_WordToHex(a) & ASP_WordToHex(b) & ASP_WordToHex(c) & ASP_WordToHex(d))
End Function
'使用方法是 md5 ("字符串") 下面是使用示范
'Response.Write "ASP_MD5('a')的加密结果为[" & ASP_MD5 ("a") & "]<br>"
'Response.Write "ASP_MD5('b')的加密结果为[" & ASP_MD5 ("b") & "]"
%>
2.send.asp
复制代码 代码如下:
<!-- #include file="asp_md5.asp" -->
<%
Dim merchantId
Dim keyValue
merchantId = request("cid") '''商户编号
keyValue = request("mykey") '''商户密钥
orderid = request("orderid") '''订单编号
amount = request("totalmoney") '''订单金额
%>
<html>
<title>财付通支付</title>
<meta http-equiv="Cache-Control" content="no-cache"/>
<body onLoad="javascript:document.frm.submit()">
<% Response.Charset="GB2312" %>
<%
' 获取服务器日期，格式YYYYMMDD
Function CFTGetServerDate
Dim strTmp, iYear,iMonth,iDate
iYear = Year(Date)
iMonth = Month(Date)
iDate = Day(Date)
strTmp = CStr(iYear)
If iMonth < 10 Then
strTmp = strTmp & "0" & Cstr(iMonth)
Else
strTmp = strTmp & Cstr(iMonth)
End If
If iDate < 10 Then
strTmp = strTmp & "0" & Cstr(iDate)
Else
strTmp = strTmp & Cstr(iDate)
End If
CFTGetServerDate = strTmp
End Function
内容版权声明：除非注明，否则皆为本站原创文章。