02
2018
11

asp微信公众号电子会员卡源码,可用于美容会所,理发店,汽车俱乐部,旅游公司等

<%
Response.Charset = "GB2312"
Code = Trim(Request.QueryString("code"))
'Response.Write(Code&"<br/>")
SET Wx = New WxAPI
TokenArray = Wx.GetAccess_Token(Code)
Access_Token=TokenArray(0)
Openid=TokenArray(1)
'End If

02
2018
11

asp微信公众号获取用户地址信息源码,可以获取省市县及坐标

//获取定位
//$(".getLocation").on("click", function(){
wx.getLocation({
type: 'gcj02', // 默认为wgs84的gps坐标,如果要返回直接给openLocation用的火星坐标,可传入'gcj02'
success: function (res) {
var latitude = res.latitude; // 纬度,浮点数,范围为90 ~ -90
var longitude = res.longitude; // 经度,浮点数,范围为180 ~ -180。
$("#p_LatLng").html(longitude+','+latitude); //用户的坐标
var url='GetAddress.asp?lat='+latitude+'&lng='+longitude;
$.ajax({
type:"get",
cache:false,
url:url,
success:function(res)
{
$("#p_Address").html(res); //中文地址

}
});
},
cancel: function (res) {
alert('用户拒绝授权获取地理位置','');
}
});
//});

02
2018
11

微信公众号发送模板消息asp源码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
session.codepage=936
Response.Charset = "GB2312"
%>
<!--#include file="WxApi.asp"-->
<%
url = "http://www.xxx.com"
Dim Arr(4)
Arr(0) = "first=Hi,你好!"
Arr(1) = "keyword1=FromUserName"
Arr(2) = "keyword2="&Now
Arr(3) = "keyword3="&Url
Arr(4) = "remark=这里是备注信息"
color = "#000000"
Openid = "oGYGwuNbebj21KS3ydHKH5Mj5CRs"
template_id = "0x8MfyRiJSOYBPk4qLQ6m3AGdybjmOETitix18_IiBk" 
SET Wx = New WxAPI
call Wx.SendMessage(Openid,template_id,Url,Arr,color)
Set Wx=Nothing

02
2018
11

asp写的旅游线路拼团程序,旅游公司可用

<!--jdk分享-->
<script>
wx.ready(function () {

02
2018
11

获取微信公众号access_token源码asp写的源码

<%
Call Wx.C_A("wx_token")'调用函数,如果当前的token有效则不动,否则重新获取并写入缓存

02
2018
11

asp源码微信公众号发送客服消息原码asp写的程序

<%
url="https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token="&fff
body="{""touser"":""oOZeU0umT1gk9S3bGl50cc4qC0xU"",""msgtype"":""text"",""text"":{""content"":""新询价消息\n\n询价单位:<a href=\""http://baidu.com\"">张先生(北京)</a>\n询价时间:<a href=\""http://baidu.com\"">"&now()&"</a>\n产品名称:<a href=\""http://baidu.com\"">求购一台锅炉要求安装保修</a>\n需求数量:<a href=\""http://baidu.com\"">1台</a>\n\n<a href=\""http://baidu.com\"">如果不想接收此询盘信息,请点击进入后,注意底部“信息开关”进入关闭接收询盘信息即可。</a>""}}"
'发送纯文字body="{""touser"":""oOZeU0umT1gk9S3bGl50cc4qC0xU"",""msgtype"":""text"",""text"":{""content"":""本次登录的动态密码为:"&pwd&"(2分钟内有效)""}}"
'发送图文消息body="{""touser"":""oOZeU0umT1gk9S3bGl50cc4qC0xU"",""msgtype"":""link"",""link"":{""title"":""中国联通"",""description"":""中国电信"",""url"":""http://wx.tmwcd.com"",""thumb_url"":""http://wx.tmwcd.com/images/card.jpg""}}"

02
2018
11

asp源码获取微信服务器IP地址-微信公众号开发

Set xh = CreateObject("Microsoft.XMLHTTP")
xh.Open "POST",url,0
xh.setRequestHeader "Content-Length", Len(body)
xh.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
xh.Send(body)
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 2
MyStream.Open
MyStream.WriteText xh.responseText
MyStream.Position = 0
postHtml=MyStream.ReadText
MyStream.Close
set xh=nothing

02
2018
11

asp源码微信公众号验证消息真实性

<%
Openid = Wx.Get_Openid
Result = Wx.Get_UserInfo(Openid)
Function sex(v)
if v=1 then
sex = "男"
else
sex = "女"
end if
End Function
%>
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">
<meta name="renderer" content="webkit" />
<meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1">
<title>拉取用户基本信息</title>
<style>
img {
border: none;
border-radius: 100%;
}
</style>
</head>
<body>
<p>
<%
If Result(7) = 1 Then
Wx.Echo "openid:"&Openid
Wx.Echo "昵称:"&Result(0)
Wx.Echo "性别:"&sex(Result(1))
Wx.Echo "头像:<img src='"&Result(2)&"' height='50'>"
Wx.Echo "来自:"&Result(3)&"·"&Result(4)&"·"&Result(5)
Wx.Echo "关注时间:"&DateAdd("s",Result(6),"1970-01-01 08:00:00")
Else
Wx.Echo Openid&"未关注公众号呢"
End If
%>

02
2018
11

asp源码微信公众号获取用户基本信息(PC端)

blic Function Get_Access_Token()
sCode = Request("code")
If sCode ="" And Session("access_token")="" Then
Response.Redirect(GetAuthorization_Code)
Else
If DateDiff("s",Now,Session("access_token_expires"))> 0 Then
Exit Function
End If
End If
Dim url, params,Temp
Url="https://api.weixin.qq.com/sns/oauth2/access_token?"
params = "appid="&s_APPID
params = params & "&secret=" & s_APPSECRET
params = params & "&code=" & sCode
params = params & "&grant_type=authorization_code"
url = Url & params
Temp=RequestUrl(url,"GET","")
'Die Temp
If CheckData(Temp,"access_token") = True Then
set obj = getjson(Temp)
if isobject(obj) Then
Session("access_token") = obj.access_token
Session("access_token_expires") = DateAdd("s",obj.expires_in,Now)
Session("openid") = obj.openid
End If
set obj = Nothing
Else
Response.Write("Get_Access_Token()=>"&Temp) 
Response.End()
End If
End Function

02
2018
11

asp源码微信公众号获取用户基本信息手机端

'获取用户基本信息(UnionID机制)
'在关注者与公众号产生消息交互后,公众号可获得关注者的OpenID(加密后的微信号,每个用户对每个公众号的OpenID是唯一的。对于不同公众号,同一用户的openid不同)。公众号可通过本接口来根据OpenID获取用户基本信息,包括昵称、头像、性别、所在城市、语言和关注时间。)
Public Function Get_UserInfo(openid)
Call C_A("wx_token")
Dim url, params, result
url = "https://api.weixin.qq.com/cgi-bin/user/info?"
params = params & "&access_token=" & Application("wx_token")(0)
params = params & "&openid=" & openid
params = params & "&lang=zh_CN"
url = url & params
Temp = RequestUrl(url,"GET","")
'Echo Temp
set obj = getjson(Temp)
If CheckData(Temp,"subscribe") Then
If obj.subscribe=1 Then
Get_UserInfo = Array(obj.nickname,obj.sex,obj.headimgurl,obj.country,obj.province,obj.city,obj.subscribe_time,obj.subscribe)
Else
Get_UserInfo = Array("","","","","","","",obj.subscribe)
End If
Session("Reset_Token") = False
ElseIf obj.errcode="40001" And Session("Reset_Token") = False Then
Session("Reset_Token") = True
Call Get_wx_token()
Get_UserInfo = Get_userlist(openid)
Else
Response.Write("Get_UserInfo)=>"&Temp) 
Response.End()
End If
set obj = Nothing
End Function