<%
|
'接口信息
|
If weixinID="" Then weixinID=1
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
sql="select * from GBR.dbo.weixinAPP where id="&weixinID
|
'Response.Write sql &"<br><br>"
|
rs.open sql,objConn,1,1
|
wx_Name = rs("wx_Name")
|
APPID = rs("APPID")
|
APPSECRET = rs("APPSECRET")
|
token = rs("token")
|
access_token = rs("access_tokenID")
|
access_token_time= rs("access_tokenTime")
|
jsapi_ticket = rs("jsapi_ticketID")
|
jsapi_ticket_time= rs("jsapi_ticketTime")
|
mch_id = rs("mch_id")
|
mch_key = rs("mch_key")
|
mch_customs = rs("mch_customs")
|
mch_customs_no = rs("mch_customs_no")
|
OriginalID=rs("OriginalID")
|
rs.close()
|
If InStr(jsapi_ticket,"40001")>0 Or InStr(access_token,"40001")>0 Then
|
access_token_time=now()-1
|
jsapi_ticket_time=now()-1
|
End If
|
|
'access_token_time="2016-10-1 10:00:00"
|
If weixinID="10" Then
|
access_token=GetAccess_token_qy(weixinID,access_token,access_token_time)
|
Else
|
access_token=GetAccess_token(weixinID,access_token,access_token_time)
|
End If
|
|
|
'--------------------------UNIX时间戳---------------------begin
|
'ToUnixTime(now(), +8)
|
Function ToUnixTime(strTime, intTimeZone)
|
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
|
If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0
|
ToUnixTime = DateAdd("h",-intTimeZone,strTime)
|
ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)
|
End Function
|
'--------------------------UNIX时间戳---------------------end
|
|
'把UNIX时间戳转换为标准时间---------------------begin
|
Function FromUnixTime(intTime, intTimeZone)
|
If IsEmpty(intTime) or Not IsNumeric(intTime) Then
|
FromUnixTime = Now()
|
Exit Function
|
End If
|
If IsEmpty(intTime) or Not IsNumeric(intTimeZone) Then intTimeZone = 0
|
FromUnixTime = DateAdd("s", intTime, "1970-01-01 00:00:00")
|
FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)
|
End Function
|
'把UNIX时间戳转换为标准时间---------------------end
|
|
'获取access_token
|
Function GetAccess_token(weixinID,access_token,access_token_time)
|
If DateDiff("s",access_token_time,now())>0 Then
|
'获取新的access_token
|
url="https://api.weixin.qq.com/cgi-bin/token" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="grant_type=client_credential&appid="&APPID&"&secret="&APPSECRET
|
HTMLCODE= GetBody(url,Origin)
|
access_token=replace(HTMLCODE,"{""access_token"":""","")
|
access_token=Left(access_token,InStr(access_token,""",""")-1)
|
access_token_time=DateAdd("s",7000,now())
|
'写入数据库
|
sql="update GBR.dbo.weixinAPP set access_tokenID='"&access_token&"',access_tokenTime='"&access_token_time&"' where id="&weixinID
|
objConn.Execute sql
|
End if
|
GetAccess_token = access_token
|
End Function
|
|
'获取jsapi_ticket
|
Function Getjsapi_ticket(weixinID,jsapi_ticket,jsapi_ticket_time)
|
If DateDiff("s",jsapi_ticket_time,now())>0 then
|
'获取新的jsapi_ticket
|
url="https://api.weixin.qq.com/cgi-bin/ticket/getticket" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="access_token="&access_token&"&type=jsapi"
|
HTMLCODE= GetBody(url,Origin)
|
jsapi_ticket=replace(replace(HTMLCODE,"{""errcode"":0,""errmsg"":""ok"",""ticket"":""",""),""",""expires_in"":7200}","")
|
jsapi_ticket_time=DateAdd("s",7000,now())
|
'写入数据库
|
sql="update GBR.dbo.weixinAPP set jsapi_ticketID='"&jsapi_ticket&"',jsapi_ticketTime='"&jsapi_ticket_time&"' where id="&weixinID
|
objConn.Execute sql
|
End if
|
Getjsapi_ticket = jsapi_ticket
|
End Function
|
|
'获取企业号access_token
|
Function GetAccess_token_qy(weixinID,access_token,access_token_time)
|
If DateDiff("s",access_token_time,now())>0 Then
|
'获取新的access_token
|
url="https://qyapi.weixin.qq.com/cgi-bin/gettoken" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="corpid="&APPID&"&corpsecret="&APPSECRET
|
HTMLCODE= GetBody(url,Origin)
|
str="["&HTMLCODE&"]"
|
set obj = getjson(str)
|
access_token = obj.get(0).access_token
|
expires_in = obj.get(0).expires_in
|
access_token_time=DateAdd("s",(expires_in-100),now())
|
'写入数据库
|
sql="update GBR.dbo.weixinAPP set access_tokenID='"&access_token&"',access_tokenTime='"&access_token_time&"' where id="&weixinID
|
objConn.Execute sql
|
End if
|
GetAccess_token_qy = access_token
|
End Function
|
|
'获取企业号jsapi_ticket
|
Function Getjsapi_ticket_qy(weixinID,jsapi_ticket,jsapi_ticket_time)
|
If DateDiff("s",jsapi_ticket_time,now())>0 then
|
'获取新的jsapi_ticket
|
url="https://qyapi.weixin.qq.com/cgi-bin/get_jsapi_ticket" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="access_token="&access_token
|
HTMLCODE= GetBody(url,Origin)
|
If InStr(HTMLCODE,"""errmsg"":""ok""")>=1 Then
|
jsapi_ticket=replace(replace(HTMLCODE,"{""errcode"":0,""errmsg"":""ok"",""ticket"":""",""),""",""expires_in"":7200}","")
|
jsapi_ticket_time=DateAdd("s",7000,now())
|
'写入数据库
|
sql="update GBR.dbo.weixinAPP set jsapi_ticketID='"&jsapi_ticket&"',jsapi_ticketTime='"&jsapi_ticket_time&"' where id="&weixinID
|
objConn.Execute sql
|
End If
|
End if
|
Getjsapi_ticket_qy = jsapi_ticket
|
End Function
|
|
'获取用户OpenID
|
Function GetOpenID(code)
|
'获取OpenID
|
url="https://api.weixin.qq.com/sns/oauth2/access_token" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="appid="&APPID&"&secret="&APPSECRET&"&code="&code&"&grant_type=authorization_code"
|
HTMLCODE= GetBody(url,Origin)
|
If InStr(HTMLCODE,"""openid"":""")>0 then
|
OpenID=Mid(HTMLCODE,InStr(HTMLCODE,"""openid"":""")+10)
|
OpenID=Mid(OpenID,1,InStr(OpenID,""",""")-1)
|
Else
|
OpenID=""
|
End If
|
GetOpenID = OpenID
|
End Function
|
|
'获取用户OpenID2
|
Function GetOpenID2(code)
|
'获取OpenID
|
url="https://api.weixin.qq.com/sns/oauth2/access_token" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="appid="&APPID&"&secret="&APPSECRET&"&code="&code&"&grant_type=authorization_code"
|
HTMLCODE= GetBody(url,Origin)
|
GetOpenID2 = HTMLCODE
|
End Function
|
|
'获取用户OpenID_CX 小程序专用
|
Function GetOpenID_CX(code)
|
'获取OpenID
|
url="https://api.weixin.qq.com/sns/jscode2session" '//定义要获取源代码的网址，一般是通过变量传递过来
|
Origin="appid="&APPID&"&secret="&APPSECRET&"&js_code="&code&"&grant_type=authorization_code"
|
HTMLCODE= GetBody(url,Origin)
|
GetOpenID_CX = HTMLCODE
|
End Function
|
|
'获取code
|
Function GetCode(state)
|
redirectUrl = "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")
|
state=state&"|N"
|
url="https://open.weixin.qq.com/connect/oauth2/authorize"
|
Origin="appid="&APPID&"&redirect_uri="&redirectUrl&"&response_type=code&scope=snsapi_base&state="&state&"#wechat_redirect"
|
Response.Redirect url&"?"&Origin
|
End Function
|
|
'Get方法
|
Function GetBody(appUrl,Origin)
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
With https
|
.Open "GET", appUrl&"?"&Origin, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send ""
|
GetBody = .ResponseBody
|
End With
|
GetBody = BytesToBstr(GetBody,"utf-8")
|
Set https = Nothing
|
End Function
|
|
'Post方法
|
Function PostBody(appUrl,args1)
|
Set PBrs = Server.CreateObject("ADODB.Recordset")
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP")
|
|
'Set https = Server.CreateObject("MSXML2.XMLHTTP")
|
With https
|
.Open "Post", appUrl, False
|
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
|
.Send args1
|
PostBody = .ResponseBody
|
End With
|
PostBody = BytesToBstr(PostBody,"utf-8")
|
Set https = Nothing
|
End Function
|
|
Function BytesToBstr(body,Cset) '飘易：转换GB2312
|
dim objstream
|
set objstream = Server.CreateObject("adodb.stream")
|
objstream.Type = 1
|
objstream.Mode =3
|
objstream.Open
|
objstream.Write body
|
objstream.Position = 0
|
objstream.Type = 2
|
objstream.Charset = Cset
|
BytesToBstr = objstream.ReadText
|
objstream.Close
|
set objstream = nothing
|
End Function
|
|
'微信支付统一下单
|
Function PostXML(pUrl, pXml)
|
PostXML = ""
|
Dim https, ResponseBody
|
Set https = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
|
https.setOption(3) = "LOCAL_MACHINE\My\MMPay"
|
|
Dim xmlDoc
|
Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0")
|
xmlDoc.async = false
|
xmlDoc.loadXML pXml
|
|
With https
|
.Open "POST", pUrl, False
|
.setRequestHeader "Content-Type","application/xml;charset=UTF-8"
|
.Send xmlDoc 'pXml
|
PostXML = .ResponseText
|
End With
|
Set https = Nothing
|
End Function
|
%>
|
<!--#include virtual="/weixin/sha1.asp"-->
|
