ASP函数集

原创 2004年09月02日 17:33: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与数据库-连接、写入、修改、删除、显示代码属性与方法         PageCount 属性: 决定 Recordset 对象包括多少“页”的数据。        这里的“页”是数据记录...
  • QIU1988YANG
  • QIU1988YANG
  • 2017年01月23日 10:56
  • 1715

【ASP】页面引用与过程调用

ASP,也就是vbscript的过程与VB的完全一模一样。分两种,一种是无返回值的Sub过程、一种是有返回值Function。 你不介意的话,完全可以将其理解为其它编程语言的,有返回值与无返回值的函...
  • yongh701
  • yongh701
  • 2016年01月14日 20:57
  • 1261

ASP写的汉字转换UTF-8及UTF-8转GB2312

汉字转换为UTF-8 function chinese2unicode(Str)   dim i   dim Str_one   dim Str_unicode   for i=1 to l...
  • hefeng_aspnet
  • hefeng_aspnet
  • 2013年09月26日 15:29
  • 2294

asp短信接口开发经验及具体开发实现

http://www.leiyusoft.com/sms_sdk_asp.html 官网介绍及Demo下载。
  • baidu_31002735
  • baidu_31002735
  • 2015年09月02日 08:33
  • 763

关系规范化之函数依赖集闭包和属性集X对于函数依赖集F的闭包

最近在学数据库原理,关系规范化中介绍了几个算法,最基础也最重要的就是求属性集X关于某个函数依赖集合F的闭包。 /*8周的功夫一本数据库基本原理就学完了,很快要考试了,所以5-1假期也没打算出去玩,就...
  • icurious
  • icurious
  • 2016年04月22日 23:17
  • 2782

数据库系统概论——求最小函数依赖集

数据库:求F={A→B,B→A,B→C,A→C,C→A},最小(极小)函数依赖集合 要解答此问题我们先来了解一下概念: 如果函数依赖集F满足以下条件,则称F为一个极小函数依赖集。也...
  • qq280929090
  • qq280929090
  • 2014年07月10日 01:21
  • 2634

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

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

ASP远程脚本调用

远程脚本调用技术(Remote Scripting)的最大特点是:客户端脚本调用服务器脚本时无需刷新整个页面。一般情况  下,Web页面需要与服务器交互时必须提交表单数据,刷新整个页面。这不仅不利于...
  • u014739784
  • u014739784
  • 2014年04月25日 09:35
  • 380

asp 支付宝 企业版 接口 支持网银接口 ,网银直接支付

asp 支付宝 企业版 接口 支持网银接口 ,网银直接支付 只是多了一个defalutbank的参数。具体看  open.alipay.com ' 类名:AlipaySubmit ' 功能:支付宝...
  • zhangfeng1133
  • zhangfeng1133
  • 2015年08月23日 13:38
  • 2989

ASP采集-ASP采集程序原理

采集程序的主要步骤如下: 一、获取被采集的页面的内容 二、从获取代码中提取所有用的数据 一、获取被采集的页面的内容 我目前所掌握的ASP常用获取被采集的页面的内容方法: ...
  • lishimin1012
  • lishimin1012
  • 2015年12月15日 18:08
  • 906
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP函数集
举报原因:
原因补充:

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