提供几个关于采集的函数(ASP)

惠民修车

惠民修车

2016-02-19 12:28

人生本是一个不断学习的过程,在这个过程中,图老师就是你们的好帮手,下面分享的提供几个关于采集的函数(ASP)懂设计的网友们快点来了解吧!

%
''''''''''''''''断剑注释'''''''''''''''''''''''''
''''strText为要切取内容的那段打的内容''''''''''''
''''strStarTag为要切取内容的开始的地方''''''''''
''''strEndTag为要切取内容的结束的地方''''''''''
''''GetText返回值为切取出来的内容''''''''''''''
'''''''''''''''注释结束''''''''''''''''''''''''
Function GetText(strText, strStartTag, strEndTag)
dim intStart
intStart = instr(strText, strStartTag)
if intStart then
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
else
GetText = " "
end if
End Function

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)

%
%
'''''''''断剑注释''''''''''''
'''''''''以下的函数都可以不管'''''''''
''''''''只管入口函数getHTTPPage'''''''
''''''''path为要读取的网页地址''''''''
''''''''getHTTPPage返回读取到的网页内容''
''''''''这里应该注意的是gb2312这里,如果被读取的网页编码是
''gb2312就用gb2312,如果是UTF-8的话,就换成UTF-8''''
''''''''注释结束''''''''''
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"gb2312")
End function

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%

展开更多 50%)
分享

猜你喜欢

提供几个关于采集的函数(ASP)

Web开发
提供几个关于采集的函数(ASP)

ASP采集入库生成本地文件的几个函数

Web开发
ASP采集入库生成本地文件的几个函数

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

几个常用的ASP函数

Web开发
几个常用的ASP函数

asp只采集网站可见文本的正则

Web开发
asp只采集网站可见文本的正则

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

ASP分页函数

ASP
ASP分页函数

关于时间函数

编程语言 网络编程
关于时间函数

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

使用VisualBasic访问数据库几个注意的问题

使用VisualBasic访问数据库几个注意的问题

通过数组给您的文件排序

通过数组给您的文件排序
下拉加载更多内容 ↓