和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


猜你喜欢
- 第一种方法:采用git命令操作1、例如仓库中有下面的代码(版本1)2、现在继续编写代码,并且提交到远程仓库中(版本2)3、回退到版本1中gi
- 前言我已经使用ES2015(ES6)的语法编写JavaScript程序很久了,并且喜欢上它提供的新特性带来的优雅和简洁。我最习惯的就是不再使
- 本文实例为大家分享JavaScript弹出拖拽窗口的具体实现代码,供大家参考,具体内容如下需求说明: 1、点击页面按钮,弹出窗口;
- 介绍AUC(Area Under Curve)被定义为ROC曲线下与坐标轴围成的面积,显然这个面积的数值不会大于1。又由于ROC曲线一般都处
- 二叉树中和为某一值的路径:输入一颗二叉树的跟节点和一个整数,打印出二叉树中结点值的和为输入整数的所有路径。路径定义为从树的根结点开始往下一直
- 我使用的是anaconda安装的环境,其中有一个是h5py,自动安装的是2.7.0的版本,这个版本会导致保存模型时python奔溃。cond
- 本文实例讲述了Python 类,property属性(简化属性的操作),@property,property()用法。分享给大家供大家参考,
- 写在前面Vue Router是Vue团队的研发的一款与Vue.js核心深度集成的一款路由插件,使Vue构建单页面程序变得非常的简单;Vue
- 目录1.编写模块结构1.1 git创建空文件1.2 编写包功能函数1.3 包必备函数1、README.md文件是在git上生成的说明项目的文
- 一、引言这个五一假期自驾回老家乡下,家里没装宽带,用手机热点方式访问网络。这次回去感觉4G信号没有以前好,通过百度查找小说最新更新并打开小说
- 在实际开发中经常会遇到计算某个字段的排名的情况如下表:totak_sales现在又如此要求:按sales的逆序排序,要求添加一个sales_
- 一、背景本文章主要是分享如何使用Python从MySQL数据库中面抽取试题,生成的试卷每一份都不一样。二、准备工作1.安装Python3下载
- 介绍Matplotlib是Python中使用最广泛的数据可视化库之一。无论是简单还是复杂的可视化项目,它都是大多数人的首选库。在本教程中,我
- 代码如下import sysfrom PyQt5.QtWidgets import QApplication, QWidgetclass E
- 数字滤波分为 IIR 滤波,和FIR 滤波。FIR 滤波:import scipy.signal as signalimport numpy
- 在《CSS二级菜单》中,如果一级菜单中的超链接是#,那么只要单击该一级菜单,那么与这个一级菜单对应的二级菜单就会一直显示在网页中,不能隐藏,
- 问题:python 在调用dll 的时候出现了精度问题总结:使用decimal库进行转换就可以正常传递。遇到的问题具体情况dll 生成函数代
- 折线图是数据分析的一种手段,但是有时候我们也需要柱状图进行不同数据的可视化量化对比。使用pandas的DataFrame方法进行柱状图的绘制
- PowerDesigner简介 工具的用途 :这里我只介绍他在SqlServer数据库的应用,其它的我也不懂。工具的好处 : 个人
- Flask是一个轻量级的Web框架。虽然是轻量级的,但是对于组件一个大型的、模块化应用也是能够实现的,“蓝图”就是这样一种实现。对于模块化应