Asp,Php,Jssdk,mysql,mssql,微信公众号开发,小程序开发-学习笔记

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

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

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

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

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

//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'})
}

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

<view class="container">

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
session.codepage=936
Response.Charset = "GB2312"
%>
<%
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

最近接的一个旅行社的微信会员卡系统，用户在公众号注册后，有积分，充值等功能，管理员在后台操作，主要是吸引老客户，吸粉引流的作用，程序是asp编写的，需要的可以下载：ly.ftphn.com/lyxt.rar