几个常用的ASP函数

作者:无名 - ASP基础 -
========取得带端口的URL,推荐使用================ 
Function Get_ScriptNameUrl() 
If request.servervariables("SERVER_PORT")="80" Then 
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) 
Else 
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("script_name")) 
End If 
End Function 



'=================用正则表达式突出显示字符串中查询到的单词的函数====================== 
Function BoldWord(strContent,word) 
If word="" Then 
BoldWord = strContent 
Exit Function 
End IF 
dim objRegExp 
Set objRegExp=new RegExp 
objRegExp.IgnoreCase =true 
objRegExp.Global=True 

objRegExp.Pattern="(" & word & ")" 
strContent=objRegExp.Replace(strContent,"<font color=""#FF0000""><b>$1</b></font>" ) 

Set objRegExp=Nothing 
BoldWord=strContent 
End Function 



'===============取得用户当前IP地址=================== 
Function GetIP() 
uIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If uIP = "" Then uIP = Request.ServerVariables("REMOTE_ADDR") 
GetIp = uIP 
End Function 

'===============取得当前程序脚本路径================== 
Function GetScriptName() 
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))'取得当前地址 
If (Request.QueryString <> "") Then 
ScriptAddress = ScriptAddress & "" & Server.HTMLEncode(Request.QueryString)'取得带参数地址 
End If 
If Len(ScriptAddress)>250 Then ScriptAddress = Left(ScirptAddress,250)&"..." '进行路径截取,最大为250个字符 
GetScriptName = ScriptAddress 
End Function 




'===========返回带参数的Url,多关键字排序时使用============== 
' RemoveList 参数:需要从Url中去除的参数,可以是多个,中间请用逗号隔开 
Function KeepUrlStr(RemoveList) 
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))&""'取得当前地址,并加入“”符号 
M_ItemUrl = "" 
For Each M_item In Request.QueryString 
If InStr(RemoveList,M_Item)=0 Then 
M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&" 
End If 
Next 
KeepUrlStr = ScriptAddress & M_ItemUrl 
End Function 

IT人知识库 该篇知识地址:http://www.itpeo.net/12728/370729.html





ASP操作Excel技术总结

目录  一、 环境配置  二、 ASP对Excel的基本操作  三、&... ...

显示在线人数

<%NowUrl=request.servervariables("HTTP_REFERER")UserName ... ...

生成静态页大全[ASP/PHP/ASPX]

ASP生成静态网页的方法   随着网站访问量的加大,每次从数据库读取都是以效率作为代价的,很多用ACCESS作数据库的更... ...

让ASP搭配MYSQL

让ASP搭配MYSQL 所需要工具    mysql-4.1.11-win32  ... ...

E-mail表单递交

<HTML><HEAD><META http-equiv='Content-Type' c... ...

替换数据库内容

<%'####################################'替换数据库内容 lamking 2... ...

怎么远程调用ACCESS数据库[要求加精!!]

使用了TCP/IP,ADO及XML(需要安装Microsoft XML 4.0。)。分服务器和客户端两部分,服务器可以多... ...

无组件生成缩略图

网上有不少生成缩略图的ASP组件。若你的虚拟空间不支持注册新组件,可能会感觉自己的网站失色不少。心晴不才,结合网上资源写... ...

多附件上传组件演示

table{ FILTER: progid:DXImageTransform.Microsoft.Shadow(... ...

asp实现无限级分类的方法js版

MenuArr=new Array()MenuLenArr=new Array()SubMenuArr=new Arra... ...

ASP中Request对象获取客户端数据的顺序(容易忽略)

在ASP中Request对象是获取客户端提交数据的一个很重要的对象,大家对他也是非常熟悉了。虽然如此,还是经常有人问我下... ...

ASP连接11种数据库语法总结

经常使用到有关数据库的操作。包括连接代码、SQL命令等等,又不曾刻意去记忆它们(我本人是不愿意去记这东东),所以常常在用... ...

asp中Byval与Byref的区别

文件名称: ByVal.asp ByRef.asp 具体代码: <%Sub TestMain()... ...

asp组件编写准备工作

最近在尝试用组件写asp,一些心得如下,不对之处请指正 经常要重启IIS,所以需要一个批处理的文件,将下面两行代码存为x... ...

保证asp叶面一定不会出现乱码 UTF8

保证asp叶面一定不会出现乱码的代码应该是这样的:(假定是UTF-8的叶子) <%@ CODE... ...

经典的分页完整程序+注释

在前面我们已经给大家讲了分页程序,在这里再给大家提供一个,分析一下也许有新的收获. 代码如下:<% '以下程序是... ...

vbcrlf的意思

常数         &nbs... ...

js+asp总结

一直在用JS写ASP,也不是特别原因,只是当初学的是JS,后来学ASP时知道ASP也可以用JS写,就没去学VBS.前几个... ...

解决rs.absolutepage=-1的问题

有时候在做asp的分页程序的时候会遇到无法分页的情况,就试着把rs.absolutepage打印出来结果却一直为-1。 ... ...

ASP实现URL编码

URL编码是指为了将信息通过URL进行传输,所以必须将某些含有特殊意义的字符进行替换的一种编码方式,在asp中我们都知道... ...