注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

佛山百度优化,佛山SEO

佛山网站优化 佛山网站推广

 
 
 

日志

 
 

佛山SEO:自己写的ASP文章采集小程序  

2011-04-17 12:49:31|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

佛山SEO:自己写的ASP文章采集小程序

网站优化的过程中,刚开始由于网站内容不够丰富,都会采用采集的办法对网站进行内容更新,这样可以节省很多时间和精力,那么用什么采集程序好呢?其实PHP的DEDE系统有自带采集功能,还有其他一些CMS也有采集功能,但那毕竟是别人写的,自己闲得无聊也就想着给自己的网站加个采集功能,优化我网站主程序是自己写的,因此也想给这个网站采集功能,在网上找了,很多函数,最后终于修改出炉了,以下给出ASP采集的主程序供大家参考

ASP采集程序主程序

Function GetURL(url)

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "GET", url, False

.Send

GetURL = bytes2bstr(.responsebody)

'对取得信息进行验证,如果信息长度小于1则说明截取失败

if len(.responsebody)<1 then

response.write "获取远程文件 "&url&" 失败。"

response.end

end if

End With

Set Retrieval = Nothing

End Function

'声明截取的格式,从Start开始采集截取,到Last为采集结束

Function GetKey(HTML,Start,Last)

filearray=split(HTML,Start)

if ubound(filearray)>0 then

filearray2=split(filearray(1),Last)

GetKey=filearray2(0)

else

GetKey="未采集到内容"

end if

End Function

' 二进制转字符串,否则会出现乱码的!

function bytes2bstr(vin)

strreturn = ""

for i = 1 to lenb(vin)

thischarcode = ascb(midb(vin,i,1))

if thischarcode < &h80 then

strreturn = strreturn & chr(thischarcode)

else

nextcharcode = ascb(midb(vin,i+1,1))

strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))

i = i + 1

end if

next

bytes2bstr = strreturn

end function

 好了,希望我写的程序对你有用,如果你要自己写网站采集程序,可以把这几个函数做参考,如果有什么技术的问题,可以联系我们 佛山网站优化http://www.wangyicn.com/

赞助商链接: 广东办公家具  不锈钢浴室柜 国际婚姻 空气源热泵工程  专业起名网

文章来源:佛山SEO 广州SEO 佛山网站优化http://www.wangyicn.com/shownews.asp?id=232
  评论这张
 
阅读(75)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018