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（加微信注明事由）