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

asp源碼微信公眾號獲取用戶列表