asp采集代码(ASP源代码)
admin 发布:2022-12-19 20:38 126
本篇文章给大家谈谈asp采集代码,以及ASP源代码对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
ASP批量采集代码
Dim strurl
strurl = Getarrayurl(Request("dname"))
Function Getarrayurl(str) '====采集的域名串处理
If str = "" Then exit Function
str_ = Replace(str,chr(13),",")
str_ = Replace(str_,chr(10),"")
str_ = Replace(str_," ","")
Getarrayurl = str_
End function
If strurl "" Then Call CmfeiShow()
Sub CmfeiShow()
strurl_ = split(strurl,",")
For i=0 to Ubound(strurl_)
If i2 Then Exit For '===最多采集的网页个数
If left(strurl_(i),7)="http://" Then
strShow = GetKey(getHTTPPage(strurl_(i)),"h1","/h1")
Response.Write strShow "br/"
End If
Next
End Sub
例子:本例子只采集最靠前的三个网页的title标签的内容。。
asp采集js文件的代码
caiurl是采集源网址,pcontent=bytestobstr(getbody(caiurl),"gb2312") 是采集调用代码,如果采集的目标页面是utf-8格式的,请把gb2312修改成utf-8,即pcontent=bytestobstr(getbody(caiurl),"utf-8")
%
response.charset="gb2312"
response.expires = -9999
response.addheader "pragma","no-cache"
response.addheader "cache-ctrol","no-cache"
caiurl="网址/qqlogin.js"
function getbody(weburl)
dim objxmlhttp
set objxmlhttp=server.createobject("msxml2.serverxmlhttp")
'如果服务器不支持msxml2.serverxmlhttp,可以修改成msxml3.serverxmlhttp或msxml6.serverxmlhttp或msxml2.xmlhttp
objxmlhttp.open "get",weburl,false
objxmlhttp.send
while objxmlhttp.readystate 4
objxmlhttp.waitforresponse 10000
wend
getbody=objxmlhttp.responsebody
set objxmlhttp=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
pcontent=bytestobstr(getbody(caiurl),"gb2312")
response.write(pcontent)
%
这样就可以把 网址/qqlogin.js 这个js文件采集到了,并存在pcontent变量中,如果要加入自己的代码,再把pcontent修改一下即可。
ASP采集代码,请举出例子
%
'功能:asp采集代码
url=""
str=getHTTPPage(url)
title=strcut(str,"h1 id=""h1title""","/h1",2)
content=strcut(str,"手机看新闻/a/span","(本文来源",2)
response.write "新闻标题brb"title"/bbrbrbr新闻内容:br"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.readystate4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
If Err.number0 then
Response.Write "p align='center'font color='red'b服务器获取文件内容出错/b/font/p"
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 = "p align='center'没有找到需要的内容。/p"
Err.Clear
Exit Function
Else
strCut = Mid(strHtml,S1,S2-S1)
End If
End Function
%
ASP采集程序中添加代码!!!
Const ok22_count= 0 '初始人气
把上面这行改为以下三行:
Dim ok22_count
Randomize
ok22_count = Int((9999 - 1000 + 1) * Rnd + 1000)
这样,生成的随机数从1000到9999
请教asp高手, 采集时用正则匹配一段代码要怎么写呢求代码
替换前
替换后
查找:lia href="(.*)" target="_blank"(.*)/a/li
替换:\1-\2
然后你就可以处理了
关于asp采集代码和ASP源代码的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
相关推荐
- 05-09网页代码,网页代码快捷键
- 05-07pb超级报表源代码(pb报表工具)[20240507更新]
- 05-07简历源代码可以上传照片的简单介绍[20240507更新]
- 05-07广告切换源代码免费下载(广告切换源代码免费下载安装)[20240507更新]
- 05-06单页网站的代码(完整的网页代码)[20240506更新]
- 05-06阁楼网源代码(阁楼是什么网站)[20240506更新]
- 05-06个人主页图片代码(个人主页图片代码怎么弄)[20240506更新]
- 05-06提取微信名片代码(微信名片信息提取)[20240506更新]
- 05-06php后台权限管理代码(php管理员权限)[20240506更新]
- 05-06付费观看代码php(付费观看代码)[20240506更新]
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接