没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
<script language="JScript" runat="Server">
function JsonToObject(json) {
eval("var o=" + json);
return o;
}
</script>
<%
'提交服务器菜单设置
Function Set_menu_toServer(token,content)
Dim url,rtn
url="https://api.weixin.qq.com/cgi-bin/menu/create?access_token="&token
Set rtn=getJsonToObject(setHTTPPage(url,content))
Set_menu_toServer=rtn.errmsg
End Function
'解析URL中的内容
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
With objstream
.Type = 1
.Mode =3
.Open
.Write body
.Position = 0
.Type = 2
.Charset = Cset
BytesToBstr = .ReadText
function JsonToObject(json) {
eval("var o=" + json);
return o;
}
</script>
<%
'提交服务器菜单设置
Function Set_menu_toServer(token,content)
Dim url,rtn
url="https://api.weixin.qq.com/cgi-bin/menu/create?access_token="&token
Set rtn=getJsonToObject(setHTTPPage(url,content))
Set_menu_toServer=rtn.errmsg
End Function
'解析URL中的内容
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
With objstream
.Type = 1
.Mode =3
.Open
.Write body
.Position = 0
.Type = 2
.Charset = Cset
BytesToBstr = .ReadText
资源评论
hujinbing
- 粉丝: 9
- 资源: 7
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功