ASP版微信分享JS-SDK代码
jssdk.asp
<!--#include file="jssdk_config.asp"-->
<!--#include file="sha1.asp"-->
<%
'-------------------------------------------------
'解析json
'Call InitScriptControl
'Set objTest = getJSONObject(strTest)
'-------------------------------------------------
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject("MSScriptControl.ScriptControl")
sc4Json.Language = "JavaScript"
sc4Json.AddCode "var itemTemp=null;function getJSArray(arr, index){itemTemp=arr[index];}"
End Sub
Function getJSONObject(strJSON)
sc4Json.AddCode "var jsonObject = " & strJSON
Set getJSONObject = sc4Json.CodeObject.jsonObject
End Function
Sub getJSArrayItem(objDest,objJSArray,index)
On Error Resume Next
sc4Json.Run "getJSArray",objJSArray, index
Set objDest = sc4Json.CodeObject.itemTemp
If Err.number=0 Then Exit Sub
objDest = sc4Json.CodeObject.itemTemp
End Sub
Call InitScriptControl
'-------------------------------------------------
'函数名称:GetRnd
'参数:t0 生成字符串长度
'作用:生成随机字符串
'-------------------------------------------------
Function GetRnd(t0)
randomize
dim n1,n2,n3
do while len(getrnd)<t0 '随机字符位数
n1=cstr(chrw((57-48)*rnd+48)) '0~9
n2=cstr(chrw((90-65)*rnd+65)) 'a~z
n3=cstr(chrw((122-97)*rnd+97)) 'a~z
getrnd=getrnd&n1&n2&n3
loop
End Function
'-------------------------------------------------
'函数名称:ToUnixTime
'参数:strTime 欲转换的时间
'作用:普通日期转换成时间戳
'-------------------------------------------------
Function ToUnixTime(strTime)
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
ToUnixTime = DateAdd("h",-8,strTime)
ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)
End Function
'-------------------------------------------------
'函数名称:Get_signature
'参数:Ticket
' nonceStr
' uTime
' LocationURL
'作用:生成signature
'-------------------------------------------------
function Get_signature(Ticket,nonceStr,uTime,LocationURL)
Get_signature=sha1("jsapi_ticket="&Ticket&"&noncestr="&nonceStr&"×tamp="&uTime&"&url="&LocationURL&"")
end function
'-------------------------------------------------
'函数名称:GetLocationURL
'作用:获取得当页面地址
'-------------------------------------------------
Function GetLocationURL()
Dim Url
Dim ServerPort,ServerName,ScriptName,QueryString,indexfile
ServerName = Request.ServerVariables("SERVER_NAME")
ServerPort = Request.ServerVariables("SERVER_PORT")
ScriptName = Request.ServerVariables("SCRIPT_NAME")
indexfile = Mid(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/")+1)
if indexfile="index.asp" then
ScriptName=replace(ScriptName,"index.asp","")
end if
if indexfile="default.asp" then
ScriptName=replace(ScriptName,"default.asp","")
end if
QueryString = Request.ServerVariables("QUERY_STRING")
Url="http://"&ServerName
If ServerPort <> "80" Then Url = Url & ":" & ServerPort
Url=Url&ScriptName
If QueryString <>"" Then Url=Url&"?"& QueryString
GetLocationURL=Url
End Function
'-------------------------------------------------
'函数名称:GetToken
'作用:获取最新Access_token
'-------------------------------------------------
Private function GetToken()
dim strJson
strJson=GetURL("https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid="&AppId&"&secret="&Appsecret&"")
if InStr(strJson,"errcode")>0 then GetToken="":exit function
Set objTest = getJSONObject(strJson)
TokenTime=nowTime
ExpiresIn=objTest.expires_in
GetToken=objTest.access_token '获取新Access_token
set objTest=nothing
End function
'-------------------------------------------------
'函数名称:Get_Ticket
'作用:获取最新jsapi_ticket
'-------------------------------------------------
Private function Get_Ticket()
dim strJson
strJson=GetURL("https://api.weixin.qq.com/cgi-bin/ticket/getticket?access_token="&AccessToken&"&type=jsapi")
Set objTest2 = getJSONObject(strJson)
if objTest2.errcode<>"0" then Get_Ticket="":exit function
TicketTime=nowTime
ExpiresIn=objTest2.expires_in
Get_Ticket=objTest2.ticket '获取新jsapi_ticket
set objTest2=nothing
End function
'-------------------------------------------------
'函数名称:PostURL
'参数:url
' PostStr
'作用:Post内容,通过xml.http形式获取远程文件
'-------------------------------------------------
Function PostURL(url,PostStr)
Set Retrieval = Server.CreateObject("Msxml2.ServerXMLHTTP")
With Retrieval
.Open "POST", url, false ,"" ,""
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send(PostStr)
PostURL = .responsetext
End With
Set Retrieval = Nothing
'response.Write PostURL
End Function
'-------------------------------------------------
'函数名称:GetURL
'参数:url
'作用:Get内容,通过xml.http形式获取远程文件
'-------------------------------------------------
Function GetURL(url)
dim http
set http=server.createobject("Msxml2.ServerXMLHTTP")
http.open "GET",url,false
http.setRequestHeader "If-Modified-Since","0"
http.send()
GetURL=http.responsetext
set http=nothing
'response.Write GetURL
End Function
'-------------------------------------------------
'函数名称:ReadTextFile
'参数:FileUrl
' CharSet
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
Function ReadFromTextFile (FileUrl,CharSet)
dim str,stm
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
End Function
'-------------------------------------------------
'函数名称:WriteToTextFile
'参数:FileUrl
' Str
' CharSet
'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
'----------------------------------------------------
Sub WriteToTextFile (FileUrl,byval Str,CharSet)
dim stm
set stm=server.CreateObject("adodb.stream")
stm.Type=2 '以本模式读取
stm.mode=3
stm.charset=CharSet
stm.open
stm.WriteText str
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Close
set stm=nothing
End Sub
dim nowTime,outConten,timestamp,nonceStr,signature,lUrl
nowTime = ToUnixTime(now)
If nowTime-TokenTime>ExpiresIn then '当Access_token过期时,重新获取新Access_token
AccessToken = GetToken()
End If
If nowTime-TicketTime>ExpiresIn then '当jsapi_ticket过期时,重新获取新jsapi_ticket
JsapiTicket = Get_Ticket()
End If
outConten = "<"&Chr("37")&vbcrlf
outConten = outConten&"dim AppId,AppSecret,AccessToken,TokenTime,JsapiTicket,TicketTime,ExpiresIn"&vbcrlf
outConten = outConten&"AppId = ""这里预置AppId"""&vbcrlf
outConten = outConten&"AppSecret = ""这里预置AppSecret"""&vbcrlf
outConten = outConten&"AccessToken = """&AccessToken&""""&vbcrlf
outConten = outConten&"TokenTime = "&TokenTime&vbcrlf
outConten = outConten&"JsapiTicket = """&JsapiTicket&""""&vbcrlf
outConten = outConten&"TicketTime = "&TicketTime&vbcrlf
outConten = outConten&"ExpiresIn = 7000"&vbcrlf
outConten = outConten&Chr("37")&">"
call WriteToTextFile("./jssdk_config.asp",outConten,"utf-8")
timestamp=ToUnixTime(now)
nonceStr=GetRnd(10)
lUrl=GetLocationURL()
signature=Get_signature(JsapiTicket,nonceStr,timestamp,lUrl)
%>
jssdk_config.asp
<%
dim AppId,AppSecret,AccessToken,TokenTime,JsapiTicket,TicketTime,ExpiresIn
AppId = "预置AppId"
AppSecret = "预置AppSecret"
AccessToken = ""
TokenTime = 0
JsapiTicket = ""
TicketTime = 0
ExpiresIn = 7000
%>
sample.asp
<!--#include file="jssdk.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title></title>
</head>
<body>
</body>
<script src="http://res.wx.qq.com/open/js/jweixin-1.2.0.js"></script>
<script>
/*
* 注意:
* 1. 所有的JS接口只能在公众号绑定的域名下调用,公众号开发者需要先登录微信公众平台进入“公众号设置”的“功能设置”里填写“JS接口安全域名”。
* 2. 如果发现在 Android 不能分享自定义内容,请到官网下载最新的包覆盖安装,Android 自定义分享接口需升级至 6.0.2.58 版本及以上。
* 3. 常见问题及完整 JS-SDK 文档地址:http://mp.weixin.qq.com/wiki/7/aaa137b55fb2e0456bf8dd9148dd613f.html
*
* 开发中遇到问题详见文档“附录5-常见错误及解决办法”解决,如仍未能解决可通过以下渠道反馈:
* 邮箱地址:weixin-open@qq.com
* 邮件主题:【微信JS-SDK反馈】具体问题
* 邮件内容说明:用简明的语言描述问题所在,并交代清楚遇到该问题的场景,可附上截屏图片,微信团队会尽快处理你的反馈。
*/
wx.config({
debug: true,
appId: '<%=AppId%>',
timestamp: <%=timestamp%>,
nonceStr: '<%=nonceStr%>',
signature: '<%=signature%>',
jsApiList: [
// 所有要调用的 API 都要加到这个列表中
]
});
wx.ready(function () {
// 在这里调用 API
});
</script>
</html>
sha1.asp
<script language="JScript" runAt="server">
// MD5 SHA1 共用
function add(x, y)
{
return ((x&0x7FFFFFFF) + (y&0x7FFFFFFF)) ^ (x&0x80000000) ^ (y&0x80000000);
}
// MD5
function MD5hex(i)
{
var sHex = "0123456789abcdef"
h = "";
for(j = 0; j <= 3; j++)
{
h += sHex.charAt((i >> (j * 8 + 4)) & 0x0F) +
sHex.charAt((i >> (j * 8)) & 0x0F);
}
return h;
}
function R1(A, B, C, D, X, S, T)
{
q = add(add(A, (B & C) | (~B & D)), add(X, T));
return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function R2(A, B, C, D, X, S, T)
{
q = add(add(A, (B & D) | (C & ~D)), add(X, T));
return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function R3(A, B, C, D, X, S, T)
{
q = add(add(A, B ^ C ^ D), add(X, T));
return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function R4(A, B, C, D, X, S, T)
{
q = add(add(A, C ^ (B | ~D)), add(X, T));
return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function MD5(sInp) {
var sAscii = " !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
wLen = (((sInp.length + 8) >> 6) + 1) << 4;
var X = new Array(wLen);
j = 4;
for (i = 0; (i * 4) < sInp.length; i++)
{
X[i] = 0;
for (j = 0; (j < 4) && ((j + i * 4) < sInp.length); j++)
{
X[i] += (sAscii.indexOf(sInp.charAt((i * 4) + j)) + 32) << (j * 8);
}
}
if (j == 4)
{
X[i++] = 0x80;
}
else
{
X[i - 1] += 0x80 << (j * 8);
}
for(; i < wLen; i++) { X[i] = 0; }
X[wLen - 2] = sInp.length * 8;
a = 0x67452301;
b = 0xefcdab89;
c = 0x98badcfe;
d = 0x10325476;
for (i = 0; i < wLen; i += 16) {
aO = a;
bO = b;
cO = c;
dO = d;
a = R1(a, b, c, d, X[i+ 0], 7 , 0xd76aa478);
d = R1(d, a, b, c, X[i+ 1], 12, 0xe8c7b756);
c = R1(c, d, a, b, X[i+ 2], 17, 0x242070db);
b = R1(b, c, d, a, X[i+ 3], 22, 0xc1bdceee);
a = R1(a, b, c, d, X[i+ 4], 7 , 0xf57c0faf);
d = R1(d, a, b, c, X[i+ 5], 12, 0x4787c62a);
c = R1(c, d, a, b, X[i+ 6], 17, 0xa8304613);
b = R1(b, c, d, a, X[i+ 7], 22, 0xfd469501);
a = R1(a, b, c, d, X[i+ 8], 7 , 0x698098d8);
d = R1(d, a, b, c, X[i+ 9], 12, 0x8b44f7af);
c = R1(c, d, a, b, X[i+10], 17, 0xffff5bb1);
b = R1(b, c, d, a, X[i+11], 22, 0x895cd7be);
a = R1(a, b, c, d, X[i+12], 7 , 0x6b901122);
d = R1(d, a, b, c, X[i+13], 12, 0xfd987193);
c = R1(c, d, a, b, X[i+14], 17, 0xa679438e);
b = R1(b, c, d, a, X[i+15], 22, 0x49b40821);
a = R2(a, b, c, d, X[i+ 1], 5 , 0xf61e2562);
d = R2(d, a, b, c, X[i+ 6], 9 , 0xc040b340);
c = R2(c, d, a, b, X[i+11], 14, 0x265e5a51);
b = R2(b, c, d, a, X[i+ 0], 20, 0xe9b6c7aa);
a = R2(a, b, c, d, X[i+ 5], 5 , 0xd62f105d);
d = R2(d, a, b, c, X[i+10], 9 , 0x2441453);
c = R2(c, d, a, b, X[i+15], 14, 0xd8a1e681);
b = R2(b, c, d, a, X[i+ 4], 20, 0xe7d3fbc8);
a = R2(a, b, c, d, X[i+ 9], 5 , 0x21e1cde6);
d = R2(d, a, b, c, X[i+14], 9 , 0xc33707d6);
c = R2(c, d, a, b, X[i+ 3], 14, 0xf4d50d87);
b = R2(b, c, d, a, X[i+ 8], 20, 0x455a14ed);
a = R2(a, b, c, d, X[i+13], 5 , 0xa9e3e905);
d = R2(d, a, b, c, X[i+ 2], 9 , 0xfcefa3f8);
c = R2(c, d, a, b, X[i+ 7], 14, 0x676f02d9);
b = R2(b, c, d, a, X[i+12], 20, 0x8d2a4c8a);
a = R3(a, b, c, d, X[i+ 5], 4 , 0xfffa3942);
d = R3(d, a, b, c, X[i+ 8], 11, 0x8771f681);
c = R3(c, d, a, b, X[i+11], 16, 0x6d9d6122);
b = R3(b, c, d, a, X[i+14], 23, 0xfde5380c);
a = R3(a, b, c, d, X[i+ 1], 4 , 0xa4beea44);
d = R3(d, a, b, c, X[i+ 4], 11, 0x4bdecfa9);
c = R3(c, d, a, b, X[i+ 7], 16, 0xf6bb4b60);
b = R3(b, c, d, a, X[i+10], 23, 0xbebfbc70);
a = R3(a, b, c, d, X[i+13], 4 , 0x289b7ec6);
d = R3(d, a, b, c, X[i+ 0], 11, 0xeaa127fa);
c = R3(c, d, a, b, X[i+ 3], 16, 0xd4ef3085);
b = R3(b, c, d, a, X[i+ 6], 23, 0x4881d05);
a = R3(a, b, c, d, X[i+ 9], 4 , 0xd9d4d039);
d = R3(d, a, b, c, X[i+12], 11, 0xe6db99e5);
c = R3(c, d, a, b, X[i+15], 16, 0x1fa27cf8);
b = R3(b, c, d, a, X[i+ 2], 23, 0xc4ac5665);
a = R4(a, b, c, d, X[i+ 0], 6 , 0xf4292244);
d = R4(d, a, b, c, X[i+ 7], 10, 0x432aff97);
c = R4(c, d, a, b, X[i+14], 15, 0xab9423a7);
b = R4(b, c, d, a, X[i+ 5], 21, 0xfc93a039);
a = R4(a, b, c, d, X[i+12], 6 , 0x655b59c3);
d = R4(d, a, b, c, X[i+ 3], 10, 0x8f0ccc92);
c = R4(c, d, a, b, X[i+10], 15, 0xffeff47d);
b = R4(b, c, d, a, X[i+ 1], 21, 0x85845dd1);
a = R4(a, b, c, d, X[i+ 8], 6 , 0x6fa87e4f);
d = R4(d, a, b, c, X[i+15], 10, 0xfe2ce6e0);
c = R4(c, d, a, b, X[i+ 6], 15, 0xa3014314);
b = R4(b, c, d, a, X[i+13], 21, 0x4e0811a1);
a = R4(a, b, c, d, X[i+ 4], 6 , 0xf7537e82);
d = R4(d, a, b, c, X[i+11], 10, 0xbd3af235);
c = R4(c, d, a, b, X[i+ 2], 15, 0x2ad7d2bb);
b = R4(b, c, d, a, X[i+ 9], 21, 0xeb86d391);
a = add(a, aO);
b = add(b, bO);
c = add(c, cO);
d = add(d, dO);
}
MD5Value=MD5hex(a) + MD5hex(b) + MD5hex(c) + MD5hex(d);
return MD5Value.toUpperCase();
}
// SHA1
function SHA1hex(num)
{
var sHEXChars="0123456789abcdef";
var str="";
for(var j=7;j>=0;j--)
str+=sHEXChars.charAt((num>>(j*4))&0x0F);
return str;
}
function AlignSHA1(sIn){
var nblk=((sIn.length+8)>>6)+1, blks=new Array(nblk*16);
for(var i=0;i<nblk*16;i++)blks[i]=0;
for(i=0;i<sIn.length;i++)
blks[i>>2]|=sIn.charCodeAt(i)<<(24-(i&3)*8);
blks[i>>2]|=0x80<<(24-(i&3)*8);
blks[nblk*16-1]=sIn.length*8;
return blks;
}
function rol(num,cnt){
return(num<<cnt)|(num>>>(32-cnt));
}
function ft(t,b,c,d){
if(t<20)return(b&c)|((~b)&d);
if(t<40)return b^c^d;
if(t<60)return(b&c)|(b&d)|(c&d);
return b^c^d;
}
function kt(t) {
return(t<20)?1518500249:(t<40)?1859775393:
(t<60)?-1894007588:-899497514;
}
function SHA1(sIn)
{
var x=AlignSHA1(sIn);
var w=new Array(80);
var a=1732584193;
var b=-271733879;
var c=-1732584194;
var d=271733878;
var e=-1009589776;
for(var i=0;i<x.length;i+=16){
var olda=a;
var oldb=b;
var oldc=c;
var oldd=d;
var olde=e;
for(var j=0;j<80;j++){
if(j<16)w[j]=x[i+j];
else w[j]=rol(w[j-3]^w[j-8]^w[j-14]^w[j-16],1);
t=add(add(rol(a,5),ft(j,b,c,d)),add(add(e,w[j]),kt(j)));
e=d;
d=c;
c=rol(b,30);
b=a;
a=t;
}
a=add(a,olda);
b=add(b,oldb);
c=add(c,oldc);
d=add(d,oldd);
e=add(e,olde);
}
SHA1Value=SHA1hex(a)+SHA1hex(b)+SHA1hex(c)+SHA1hex(d)+SHA1hex(e);
return SHA1Value.toUpperCase();
}
</script>
ASP版微信分享JS-SDK代码相关推荐
- 微信分享接口SDK(前端js和后端php)
微信分享接口SDK 1,帮兄弟对接微信公众号上的分享朋友圈接口对接:签名一定要用微信签名工具去生成比对下代码中签名规则是否一致:好,下面讲下对接顺序: 2,首先:我分享的页面是index.html,所 ...
- 微信分享 JS 失效
转自:方倍工作室 -- 微信分享JS接口失效说明及解决方案 关键字:微信分享 JS 失效 分享到朋友圈 微信分享JS接口目前已失效,以前可以自定义分享的标题.描述.图片.链接地址在微信6.0.2版 ...
- 微信分享JS接口失效说明及解决方案
微信分享JS接口目前已失效,以前可以自定义分享的标题.描述.图片.链接地址在微信6.0.2版本中失效. 官方回复如下: 旧版的获取分享状态及设置分享内容的JS接口一直用于内部业务,并未对外开放,在微信 ...
- 微信开放JS SDK,这场web巨变意味着什么?
原文链接:原文链接 作者王安 如有侵权请及时联系,立即删除. 摘要:微信近期推出JS SDK,开放了包括分享.图像.地理位置.微店.微信支付等11个接口.新能力给公众号运营者.开发者更多的玩法.而这样 ...
- 微信开放JS SDK,再次给浏览器们上了一课
2015 年刚刚开始,微信 JS SDK 发布,惊爆众人,HTML5 产业好事连连. JS SDK 这个概念,其实微博和淘宝的开放平台很早前就有,包括手机 QQ 前段时间也推出了几个增强 API,但都 ...
- ASP版微信小程序支付(包含源代码)
asp版本的微信小程序支付里面代码的解说和各代码用途 微信小程序交流群:111733917 | 微信小程序从0基础到就业的课程:https://edu.csdn.net/topic/huangjuhu ...
- asp版微信公众号支付(包含源代码)
微信支付网站需要接入的内容 微信小程序交流群:111733917 | 微信小程序从0基础到就业的课程:https://edu.csdn.net/topic/huangjuhua 需要准备的内容: 微信 ...
- 微信企业号JS SDK
微信企业号JS SDK <?php define('CorpID', "wx82e2c31215d9a5a7"); define('CorpSecret', "&q ...
- 微信分享js 微信JS-SDK 微信分享接口开发(介绍版)
https://blog.csdn.net/u013713832/article/details/72778692 本文主要是分享自己的开发过程,希望能给部分存在同样问题的朋友一点点帮助: 最近项目中 ...
- java版微信分享功能(支持分享给好友/分享到朋友圈)
点击上方[全栈开发者社区]→右上角[...]→[设为星标⭐] 先上官方文档:http://mp.weixin.qq.com/wiki/home/index.html 做之前建议先过遍文档,文档都说的清 ...
最新文章
- 火灾检测、人流量统计… 这个开源项目太香了!
- pyhton3 rsa长加密/解密
- 筛法求素数 素数打表
- linux redis release.c:37:10: fatal error: release.h: No such file or directory
- python写文字方法_Transcrypt: 用Python写js的方法
- [转]EntityFramework走马观花之CRUD(中)
- IT大神提升代码效率的秘密,都私藏在这10个神仙软件里
- Python基础——6面向对象编程
- windows编程 识别拖动_Quicker 解锁新姿势!Windows 还能这么用?
- java单例模式 参数_java中的几种单例模式
- java m2文件放哪里_windows下打开.m2文件夹,没有找到setting.xml
- T-SQL命令性能比较– NOT IN与SQL NOT EXISTS与SQL LEFT JOIN与SQL EXCEPT
- .netcore 判断是否 ajax 请求_第3部分-异步使用2-2:Ajax 之 状态码
- Keras入门——(1)全连接神经网络FCN
- Zmap详细用户手册及DDOS的可行性
- Linux下安装人大金仓数据库说明
- Windows下在MSDos窗口下打开指定目录
- 解决wampserver server offline
- 搞 AI 建模预测都在用 Python,其实入门用 SPL 也不错
- java的深浅拷贝_Java中深浅拷贝