ASP函数集

原创 2004年09月05日 19:04:00

'========取得带端口的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对Access数据库的连接、增删改查及ASP的基本语法》(点击打开链接)中介绍过ASP,也就是VBScript的增删改查,虽然这种写法非常传统,但是,页面的代码比较混乱不容易维护。...
  • yongh701
  • yongh701
  • 2016年01月18日 16:33
  • 1155

asp rs记录集recordset常用操作代码 详细

几乎每一个ASP数据库程序都要用到recordset,关于recordset的很多用法您都知道吗?下面介绍了一些经常用到的ASP RS记录集操作,包括添加、更新、修改、删除数据库内容等,并对一些关键的...
  • fearlessxjdx
  • fearlessxjdx
  • 2016年12月05日 20:45
  • 2546

Asp.Net 如何调用js中的函数function ?

http://bbs.csdn.net/topics/330215458 1、直接在前台调用 javascript 函数  很简单,在 head 元素之间加入 script 元素,将 ty...
  • DJ2008
  • DJ2008
  • 2013年09月28日 17:34
  • 5418

asp常用函数集合

  • 2015年07月19日 10:38
  • 33KB
  • 下载

asp经常要用到的函数集

  • 2010年04月01日 11:13
  • 23KB
  • 下载

ASP.NET网络编程中经常用到的27个函数集

  • 2009年09月11日 15:00
  • 49KB
  • 下载

Asp.Net函数集

  • 2007年10月17日 12:01
  • 12KB
  • 下载

asp vbscript函数集

  • 2012年04月23日 15:07
  • 41KB
  • 下载

ASP.NET中经常用到的27个函数集

  • 2010年05月19日 11:07
  • 36KB
  • 下载

Asp.Net函数集

  • 2012年12月12日 15:04
  • 13KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP函数集
举报原因:
原因补充:

(最多只允许输入30个字)