📄 smsbuyok.asp
字号:
<%@ Language=VBScript codePage="936"%>
<!--#include file="conn.asp"-->
<!--#include file="../MD5/md5.asp" -->
<%
'定义您的交易认证密钥,(请查看主页上"我的个人信息"获得)
'--------------------------
MyPwd="输入你的认证码"
'--------------------------
%>
<%
'本函数每次调用都会向当前目录下的“成功订单.asa”文件写入一行记录
'这个文件是个文本文件,可以用记事本打开,如果您使用的是数据库如Access,请适当另做处理
Function WriteLineToFile(order_txt)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.MapPath(".\手机订单.asa"), 8, True)
f.WriteLine order_txt
f.Close()
set f=nothing
set fso=nothing
End Function
%>
<%
'接收回调的参数，短信支付成功后返回的参数包括
'------------------------------------------------------------------
bizPWD = Request("bizPWD") '交易认证密钥
bizSN = Request("bizSN") '交易序列号
SmsSvcName = Request("SmsSvcName") '短信服务名称
SmsSvcFeeCode = Request("SmsSvcFeeCode") '本次短信计费(以分为单位)
phone = Request("Mobile") '用户手机号
'------------------------------------------------------------------
'检测回调请求的合法性，如果不是由vsend服务器发出就停止执行
'调试的时候可以注释以下4行代码，调试完毕后应该马上恢复
if (Request("REMOTE_ADDR")<>"210.51.0.197") or (bizPWD<>MyPwd) then
Response.Write "非法请求"
Response.End
end if
'将订单信息写入文件
WriteLineToFile(CStr(now() & vbtab & bizSN & vbtab & SmsSvcName & vbtab & SmsSvcFeeCode & vbtab & Phone))
'自动产随机生密码
function makePassword(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'“character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function
password=makePassword(6)
set rs=server.createobject("adodb.recordset")
sql1="select * from users"
rs.open sql1,conn,1,3
rs.addnew
rs("userid")=phone
rs("password")=md5(password)
rs("name")="手机用户"
rs("phone")=phone
rs("email")=phone
rs("lasthits")=date()
rs("oklook")=3
rs("money")=now()+30
rs("baoyue")=1
rs("usercount")=0 '注册即获得20点电影点数，不要的话只要改为0即可！
rs.update
rs.close
set rs=nothing
response.cookies("userid")=phone
response.cookies("password")=md5(password)
response.cookies("okerer")="yesok"
set rs=server.createobject("adodb.recordset")
rs.open "select * from buy",conn,1,3
rs.addnew
rs("name")=phone
rs("oklook")=3
rs("paymoney")=15
rs("userid")=phone
rs("email")=phone
rs("money")=30
rs("giveme")="手机支付"
rs("pay")=1
rs("baoyue")=1
rs("vip")=0
rs("vipdown")=0
rs.update
conn.close
set conn=nothing
%>
<!--以下内容由您自定义-->
<html>
<head><title>支付成功</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<h3>恭喜，您此次支付成功完成，以下是您的支付信息：</h3>
<hr>
<pre>
交易序列号:<%=bizSN%>
购买服务:<%=SmsSvcName%>
计费金额:<%=SmsSvcFeeCode/100%>(元)
手机号:<%=phone%> <font color=red>(即你在本站的登录用户名）</font>
登录密码：<%=password%>
</pre>
<hr>
<!--您的网站署名及连接-->
<a href="../index.html">返回首页</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -