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

asp源碼微信公眾號生成帶參數的二維碼