-
您的位置:首页 → 精文荟萃 → 软件资讯 → 利用自己开发的vc组件结合asp实现网上实时搜索
利用自己开发的vc组件结合asp实现网上实时搜索
时间:2004/10/7 19:07:00来源:本站整理作者:蓝点我要评论(0)
-
最近有人问怎么用asp来得到别的网站的网页,并分析后利用它的数据,纯asp是做不到这点的,所以我用vc做了个http组件,很简陋,不如asphttp,因为时间问题我暂时没有做post方法,只能用get方法,但要应付象yahoo,新浪等大的搜索引擎还是绰绰有余的。利用这个组件向这些站发送请求,然后用asp分析并得到其中有用的数据,分析的思路就是利用标志位,如果想要做到通用,可以使用配置文件。我就不多解释了,看例子吧。我的那个组件及源代码下载地址如下:
组件:http://homepage.qdcatv.com.cn/bigeagle/myhttp.zip
源代码:http://homepage.qdcatv.com.cn/bigeagle/myhttpcode.zip
下面是asp例子程序,搜索引擎用的是yahoo
test2.asp
<%@ Language=VBScript %>
test1.asp
<%
dim m_objMyHttp , m_strHtml
set m_objMyHttp = server.CreateObject ("myhttp.OpenUrl") '创建对象
'接受页面参数
m_strKeyword = server.URLEncode ( trim( Request.QueryString ("keyword")))
'向yahoo发送搜索关键字"c++"的请求
m_objMyHttp.Url = "http://search.yahoo.com/bin/search?p="&m_strKeyword&""
'发送请求
m_objMyHttp.SendRequest ()
'把html取到局部变量中
m_strHtml = m_objMyHttp.Html
set m_objMyHttp = nothing
'分析,利用标志位
dim m_strBeginTag , m_strEndTag , m_strUrl
'设置标志位
m_strBeginTag = "- "
m_strEndTag = ""
m_intBegin = 1
m_intEnd = 0
do while not m_intBegin = 0
m_intBegin = instr(m_intBegin + 1 , m_strHtml , m_strBeginTag)
m_intEnd = instr(m_intBegin + len(m_strBeginTag) , m_strHtml , m_strEndTag)
m_strUrl = mid (m_strHtml , m_intBegin+len(m_strBeginTag) , m_intEnd - m_intBegin - len(m_strBeginTag) +4 )
if m_intBegin <> 0 then
Response.Write m_strUrl + "
"
end if
Loop
%>
相关阅读
Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
-
热门文章
360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3
最新文章
微信3.6.0测试版更新了微信支付漏洞会造成哪
360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗
人气排行
xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本
查看所有0条评论>>