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

 

=============================================

互相学习电话微信:18611436777(加微信注明事由)

« 上一篇下一篇 »