asp源码微信公众号获取用户列表

Public Function Get_url()
SCRIPT_NAME = CStr(Request.ServerVariables("SCRIPT_NAME"))
SERVER_NAME = CStr(Request.ServerVariables("HTTP_HOST"))
SERVER_PORT = Request.ServerVariables("SERVER_PORT")
QS=Request.ServerVariables("QUERY_STRING")
http = "http://"
If SERVER_PORT = "443" Then
http = "https://"
End If
if qs<>"" then
Get_url = http & SERVER_NAME & SCRIPT_NAME &"?"&QS
else
Get_url = http & SERVER_NAME & SCRIPT_NAME
end if
End Function

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

互相学习电话微信：18611436777（加微信注明事由）