asp中获取当前页面的地址与参数的函数代码
来源：asp之家 发布时间：2011-02-20 10:37:00
代码如下:
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
0
投稿猜你喜欢
Ajax 技术改变了大型商业 Web 应用程序的外观，但是许多较小的 Web 站点都不具备足够的资源重新构建完整的用户界面（UI）。Ajax- 1、什么是超链接图标规范超链接图标规范是我根据《Iconize Textlinks with CSS》修改调整完成的。主要是整理出常用到的一
- 代码都比较容易理解的，主要就是在以16进制读取图片信息那段代码有点乱，其实仔细看看，也没什么的。glabal.cssbody{}{ &nbs
- 原来看到这个代码的时候，觉得功能不错，调试并整理了一下也许大家用的到，对于越来越注重用户体验的今天，这种功能一定很受欢迎，当然本例子只是一个
- SSI是英文Server Side Includes的缩写，翻译成中文就是服务器端包含的意思。从技术角度上说，SSI就是在HTML文件中，可
- 简单方法实现网页自动适应任何分辨率任何窗口大小(只适用于IE)<!DOCTYPE html PUBLIC "-//W3C//
- 作为入门者来说，了解JavaScript中timer的工作方式是很重要的。通常它们的表现行为并不是那么地直观，而这是因为它们都处在一个单一线
- 本文总结了input的各种使用方法，挺全面的1.取消按钮按下时的虚线框在input里添加属性值 hideFocus 或者 HideFocus
- 在Web开发中，JavaScript的一个很重要的作用就是对DOM进行操作，可你知道么？对DOM的操作是非常昂贵的，因为这会导致浏览器执行回
- SQL的扩展的删除与恢复 删除 代码如下:use master exec spdropextendedproc “xpcmdshell“ e
- 把下面SQL里的SELECT单独执行,没有问题,但是用来CREATE VIEW 就报错了.CREATE OR REPLA
- 网上大部分的免费asp程序使用的是access数据库。但是access数据库作为一个中小型的单机数据库系统，在承担访问量、数据量大的网站应用
- 一个表单焦点效果javascript函数，可以用在美化表单界面，挺好看的。function validForms(){
- 关于本文：本着互联网共享主义精神，特写此文献给建站新手，授人以鱼，不如授人以渔，本文所讲的只是方法和原理，希望大家看完此文，能够从中得到些帮
- 本文介绍了几乎所有关于对象的基本概念，什么是对象，如何创建对象，对象的属性的设置和读取，删除属性的方法，构造函数，对象原型，父类，子类，继承
- 一个asp读取数据库中数据到数组的类，仅供参考！DbPath = "test.mdb"’数据库位置&
- 最近的一个页面中碰到的，本来想用 border 来模拟设计图的虚线效果，但是很明显 border 效果不如设计图来的好看。顺便研究了下 da
- 记住：这时候08安装的时候要自定义一个实例 比如：mysql2008(不能在使用默认实例了) sql server 2008 express
- 一、'建立register.asp 代码如下:<％@ language=vbscript ％>&nb
- 代码如下:'============================== '格式化HTML，SDCMS加强版 '==
