和server XMLHTTP相关的几个函数
作者:亮亮 来源:亮亮blog 发布时间:2008-09-21 13:56:00
标签:xmlhttp,函数
返回页面的类容,weburl为页面url
Function GetBytes(weburl)
'创建对象
Dim ObjXMLHTTP
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
'请求文件,以异步形式
ObjXMLHTTP.Open "GET",weburl,False
ObjXMLHTTP.send
While ObjXMLHTTP.readyState <> 4
ObjXMLHTTP.waitForResponse 1000
Wend
'得到结果
GetBytes=ObjXMLHTTP.responseBody
'释放对象
Set ObjXMLHTTP=Nothing
End Function
把页面内容转化为某个编码的字符串
Function bytesTostr(bytes,setCode)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write bytes
objstream.Position = 0
objstream.Type = 2
objstream.Charset = setCode
bytesTostr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
清除字符串中script标记
Function removeJs(StrCon)
Dim reg
set reg = New RegExp
reg.Pattern = "<SCRIPT[\s\S.]*</SCRIPT>"
reg.IgnoreCase = True
reg.Global = True
removeJs = reg.Replace(StrCon, "")
set reg=nothing
End Function
得到字符串某个标记间的内容
bTag开始标记,eTag结束标记
function getTagStr(str,bTag,eTag)
set regEx=new RegExp
regEx.IgnoreCase=true
regEx.Global=true
regEx.pattern=bTag&"([\s\S.]*)"&eTag
set Matchs=regEx.execute(str)
'bodys=Matchs(0).SubMatches(0)
for each match in Matchs
getTagStr=getTagStr&match.SubMatches(0)
next
set regEx=nothing
end function
过滤字符串中的html标记
Function RemoveHTML(str)
Dim re
Set re=New RegExp
re.Pattern="<.*?>"
re.IgnoreCase=True
re.Global=True
str=re.Replace(str,"")
Set re=Nothing
RemoveHTML=str
End Function
加亮页面字符中的第一个关键字keyWord,并截取关键字前后length个字符
Function subStr(str,keyWord,length)
n=instr(str,keyWord)
if n>length then
subString=Mid(str,n-5,length)
else
subString=Mid(str,1,length)
end if
if Len(subString)<length then
m=Len(str)-length
if m<0 then m=1 end if
subString=Mid(str,m,Len(str))
end if
subStr=replace(subString,keyWord,"<font color='#66CC00'>"&keyWord&"</font>")
End Function
0
投稿
猜你喜欢
- 这最近在PJ的function库里看到的这个函数,感觉思路差了点,不过相对比较完美,只是闭合标签时的顺序问题,呵呵 修改一下数组arrTag
- 每个进行过较大型的ASP-Web应用程序设计的开发人员大概都有如下的经历:ASP代码与页面HTML混淆难分,业务逻辑与显示方式绞合,使得代码
- Dreamweaver一直是不少网友钟情的网页设计工具,除了它强大的动态效果制作能力外,方便简洁的操作界面更是独具特色,下面我们将以最新版本
- asp学习入门经验介绍,本文初步介绍了初学asp的一些相关知识,如VBScript语法简介,循环控制语句的使用,asp数据库的简单操作查询,
- sql2000的服务器版本是8.0,sql2005是9.0首先要读安装必须配置(见后记)1.我是先装2000的,安装好后打上sp4补丁,(s
- 代码如下:---ntext数据类型字符替换 create table tt ( sid INT IDENTITY(1,1), c
- 如何在读取Excel文件时创建列表的下拉菜单?代码如下,用来创建工作表列表的下拉菜单: < select 
- 为了显示一个渐变而专门制作一个图片的做法是不灵活的,而且很快会成为一种不好的做法。但是遗憾的是,截至写这篇文章,可能还必须这样做,但是希望不
- 如何在线修改表?具体代码如下:<%Set conn1 = Server.CreateObject(&qu
- 看到有人用的PJBlog使用的是自动填写验证码,这样其实也不使用验证码基本上没有什么区别,很容易被 * ,因此在参照许多修改的基础上,找到
- 设计与开发之间本有一线界限,但当时代步入又一个十年,这个线变得更加模糊甚至感觉不到它的存在。使用PS设计网页版面,足矣?或许五年前是吧!现在
- 利用图标工具(有很多)制作图标文件(favicon.ico)上传到网站所在的服务器的根目录下,这个文件必须是16*16大小的图标文件。当然,
- “博客就像一本书”这话其实几个月前深圳FB时就有扯到,这也不是什么新概念,也许本身就应该是这样。打个比方,当你拿到一本未看过的书时,理论上你
- 代码如下:Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,h
- 前一段时间,一个流行的东方系列mv 《bad apple》 带来一股奇怪的风潮: 各种技术狂人纷纷把这段mv在一些匪夷
- 一个能对访问者进行编号、记录访问次数、IP、时间的统计制作实例我以ACCESS库为例子,其实用SQL SERVER库也只要改一下链接库的语句
- 当数据库的数据量读写频繁的时候,我们就要考虑把数据库的读写分开,以提高数据库的使用效率,(当然还有其他用处比如,备份数据),这个时候我们就要
- 看着这个题目可能大家会有点陌生,不知道是什么,说的直白一点,RDFa就是让你的页面更好的被机器所理解,而不简简单单是展示你的页面,下面就关于
- CSS圆角的现实一直是大家所热衷的话题,我们进行CSS布局一直强调语义,强调文档的结构。圆角作为页面的外面表现,应该分离到CSS文件中,可以
- 如何选择速度最快的站点? <html><head><meta http-equiv=&qu