登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>ASP教程>>ASP技巧>>asp采集代码示例
asp采集代码示例
来源: ‖ 作者: ‖ 点击: ‖ 时间:14-03-13 15:16:54 ‖ 【 】‖ 我要投稿

下面是一侧ASP采集页面内容最基础的必备源代码,修改以下的代码需要有一定的ASP基础。


以下是引用片段:
< % 
str=getHTTPPage(url) 
title=strcut(str,"

","

",2) 
content=strcut(str,"","",2) 
response.write "新闻标题
"&title&"


新闻内容:
"&content 
Function getHTTPPage(url) 
On Error Resume Next 
dim http 
set http=Server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then 
exit function 
end if 
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") 
set http=nothing 
If Err.number<>0 then 
Response.Write "

服务器获取文件内容出错


Err.Clear 
End If 
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 
’截取字符串,1.包括起始和终止字符,2.不包括 
Function strCut(strContent,StartStr,EndStr,CutType) 
Dim strHtml,S1,S2 
strHtml = strContent 
On Error Resume Next 
Select Case CutType 
Case 1 
S1 = InStr(strHtml,StartStr) 
S2 = InStr(S1,strHtml,EndStr)+Len(EndStr) 
Case 2 
S1 = InStr(strHtml,StartStr)+Len(StartStr) 
S2 = InStr(S1,strHtml,EndStr) 
End Select 
If Err Then 
strCute = "

没有找到需要的内容。


Err.Clear 
Exit Function 
Else 

加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论