摘要:
'设置参数值 Public Sub setParameter(parameter, parameterValue) If parameters.Exists(parameter) = True Then parameters.Remove(parameter) End If parameters.A 阅读全文
摘要:
Private Function CheckData(data,str) If Instr(data,str)>0 Then CheckData = True Else CheckData = False End If End Function Public Sub Die(v) Response. 阅读全文
摘要:
Public Function Get_Access_Token() sCode = Request("code") If sCode ="" And Session("access_token")="" Then Response.Redirect(GetAuthorization_Code) E 阅读全文
摘要:
Public Function GetAuthorization_Code() Dim url, params url = "https://open.weixin.qq.com/connect/oauth2/authorize?" params = "appid="&s_APPID params 阅读全文