复制代码 代码如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & Request.ServerVariables("SERVER_NAME") If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") end if strTemp = strTemp & Request.ServerVariables("URL") getCurrentUrl = strTemp End Function Function getUrlWithParams() Dim ScriptAddress,Servername,qs ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) Servername = CStr(Request.ServerVariables("Server_Name")) qs=Request.QueryString If Request.ServerVariables("SERVER_PORT") <> 80 Then Servername = Servername & ":" & Request.ServerVariables("SERVER_PORT") end if if qs<>"" then getUrlWithParams ="http://"& Servername & ScriptAddress &"?"&qs else getUrlWithParams ="http://"& Servername & ScriptAddress end if End Function

　　推荐阅读

　　asp添加数据实现代码

举例： 如：在字段名处输入:username,password,email,telphone 注意：不同的字段名用英文逗号隔开，且不支持星号 表名处输入要查询的表名:如：table1 前台表单页面： 主要是注意input字段的name属性。 asp下常用的>>>详细阅读

本文标题：asp中获取当前页面的地址与参数的函数代码

地址：http://www.17bianji.com/kaifa2/ASP/31890.html

 1/2    1