ASP函数集
来源:互联网 发布:个人简历制作软件 编辑:程序博客网 时间:2024/04/29 09:22
'========取得带端口的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
- ASP函数集
- ASP函数集
- ASP函数集
- asp.net函数集
- ASP函数集
- asp.net 函数集
- Asp.Net函数集
- Asp.Net函数集
- Asp.Net函数集
- asp常用函数集
- Asp.Net函数集
- ASP自定义函数集
- Asp.Net函数集
- Asp.Net函数集
- Asp.Net函数集
- Asp.Net函数集
- Asp.Net函数集
- ASP通用函数源码集
- 原来的事件的参数
- 托盘程序
- Data Grid控件
- ASP经典分页类
- [原创代码]汉字转拼音 /成语词典/简体繁体在线互转
- ASP函数集
- n(n<100)的阶乘
- Bugzilla简明使用手则
- 觉得很是高兴。
- MSDN文章:HttpModules [自己翻译]
- Solaris的版本命名
- if there is love between us
- VB.net基础:如何获得并显示网上图片
- 我的求职日记《三》