02
2018
11

asp源码微信公众号获取用户列表

Public Function Get_url()
SCRIPT_NAME = CStr(Request.ServerVariables("SCRIPT_NAME"))
SERVER_NAME = CStr(Request.ServerVariables("HTTP_HOST"))
SERVER_PORT = Request.ServerVariables("SERVER_PORT")
QS=Request.ServerVariables("QUERY_STRING")
http = "http://"
If SERVER_PORT = "443" Then
http = "https://"
End If
if qs<>"" then
Get_url = http & SERVER_NAME & SCRIPT_NAME &"?"&QS
else
Get_url = http & SERVER_NAME & SCRIPT_NAME
end if
End Function

02
2018
11

asp源码微信公众号生成带参数的二维码

Public Function Get_Openid()
If Session("openid")="" Then
s_SCOPE ="snsapi_base"
Call Get_Access_Token()
End If
Get_Openid = Session("openid")
End Function

Public Function C_A(v) '<------Check_Application
Funstr = "Call Get_"&v
If IsArray(Application(v)) Then
If DateDiff("s",Now,Application(v)(1))<0 Then
Execute(Funstr)
End If
Else
Execute(Funstr) 
End If
End Function

02
2018
11

asp源码微信公众号获取jsapi_ticket

Public Function GetAuthorization_Code()
Dim url, params
url = "https://open.weixin.qq.com/connect/oauth2/authorize?"
params = "appid="&s_APPID
params = params & "&redirect_uri=" & server.URLEncode(s_REDIRECT_URI)
params = params & "&response_type=code"
params = params & "&scope="&s_SCOPE
params = params & "&state=123#wechat_redirect"
url = url & params
GetAuthorization_Code = (url)
End Function

02
2018
11

asp源码微信公众号网页授权获取用户基本信息

Public 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源码微信分享带图片jdk分享功能获取“分享到朋友圈

Private Function CheckData(data,str)
If Instr(data,str)>0 Then
CheckData = True
Else
CheckData = False
End If
End Function

02
2018
11

asp源码微信公众号拍照或从手机相册中选图接口

'设置参数值
Public Sub setParameter(parameter, parameterValue)
If parameters.Exists(parameter) = True Then
parameters.Remove(parameter)
End If
parameters.Add parameter, parameterValue
End Sub

02
2018
11

asp源码调起微信扫一扫接口

Class WxAPI
Private s_APPID
Private s_APPSECRET
Private s_REDIRECT_URI
Private s_SCOPE
Private parameters

Private Sub Class_Initialize 
Set parameters = Server.CreateObject("Scripting.Dictionary") 
s_APPID = APPID 'APPID'APP ID
s_APPSECRET = APPSECRET 'APPSECRET'APP KEY
s_REDIRECT_URI = Get_url 'REDIRECT_URI
s_SCOPE ="snsapi_userinfo" '授权项snsapi_userinfo,snsapi_base 
End Sub

Private Sub Class_Terminate() 
Set parameters = Nothing
Set Wx = Nothing
'Response.Write("对象已销毁")
End Sub

02
2018
11

大闸蟹提货系统(微信公众号版)asp源码下载

最近接到了一个卖大闸蟹的海鲜店老板的定制开发,他要在店里卖礼品卡,礼品卡上有面值298、598、998元不等的面值卡,上面有卡号,密码, 
密码用刮刮银涂上了,客户买礼品卡送人,送别人礼品卡而不直接送大闸蟹,这中间有很多道理(成熟的人才懂),收到礼品卡的贵人,什么时 
候想吃了,就什么时候按照礼品卡上的方式提货,扫码-提货-输入卡号密码-输收货地址,然后就等着收货吧!

02
2018
11

asp微信小程序获取用户头像和微信名-asp写的服务端

//index.js
//获取应用实例
var app = getApp()
Page({
data: {
paydata: { title: "支付测试", total_fee:1},
userInfo: {}
},
onLoad: function () {
console.log('onLoad');
//判断是否获取到了详细信息
if (!wx.getStorageSync("userInfo")) {
wx.navigateTo({ url: '/pages/login/index'})
}

02
2018
11

asp写的微信小程序支付demo-服务器端是asp+mdb的

这个微信小程序支付demo代码是我用asp写的,微信小程序端加上服务器端用的asp和mdb数据库,下面是代码分享:

<view class="container">