繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 收藏的ASP常用的函数集
- ASP
- FrontPage 2000+DB2实现数据库信息发布
- Execel文件插入到ASP页面
- 利用ASP在客户端注册DLL文件
- 1栏分页显示（附显示的形式前页，后页）
- 1栏分页显示（附显示的形式[1][2]）
- 一个基于web的QQ程序 2（xml+asp）
- XMLHTTP+javascript+Asp写得聊天室，无刷新实现（一）
- XMLHTTP+javascript+Asp写得聊天室，无刷新实现（二）
- XMLHTTP+javascript+Asp写得聊天室，无刷新实现（三）
- XMLHTTP+javascript+Asp写得聊天室，无刷新实现（四）
- XMLHTTP+javascript+Asp写得聊天室，无刷新实现（五）
- XMLHTTP+javascript+Asp写得聊天室，无刷新实现（六）
- 建立一个广告交换及跟踪系统
- 如何制作无状态的ASP组件
- 无组件文件上传代码实例
- 建立动态下拉式选单(三阶层)
- 用ASP编写的“俄罗斯方块游戏”
- 利用ASP.NET来访问Excel文档
- 初探SSI网页制作
- 具有自攻击性的代码
收藏的ASP常用的函数集
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 105 ::
收藏到网摘: n/a
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
评论 (0) All
