ok881set1.asp

--- --- ----- 1、界面更友善 2、优化主代码 3、更新热门词 4、增加搜索排行榜 5、修正切换搜索引擎时左栏不会随所选引擎自动变换问题 例：原http://s

<%
Dim Url,Html
Url="http://www.yok.com/index.html"
Html = getHTTPPage(Url)
'搜索要偷取的内容的开始位置
Str_start = instr(Html, "今日热门搜索词语-排行榜")

Str_start = instr(Str_start, Html, "今日热门搜索词语-排行榜</h2>")
'搜索要偷取的内容的结束位置

Str_end = instr(Str_start, Html, "超级搜索助手")
'截取内容

Html = Mid(Html, Str_start, Str_end - Str_start)
html=Replace(html,"今日热门搜索词语-排行榜</h2>","")
html=Replace(html,"下载YOK超级工具条","风行--BT影视边下边看")
html=Replace(html,"超级智能搜索海量信息，超级智能拦截广告，还您一个绿色健康的网络环境","十万部影视、综艺、动漫节目边下边看，节目质量好，流畅、细腻、清新视觉")
html=Replace(html,"点击下载安装","免费下载")
html=Replace(html,"http://dl.yok.com/yok3_setup.exe","http://www.funshion.com/partner/download.php?id=126&sv=6286")
html=Replace(html,"超级搜索助手","")
html=Replace(html,"免费申请","5G视频邮箱")
html=Replace(html,"go.php","go.asp")
html=Replace(html,"热门品牌排行榜","热门畅销书排行榜")
html=Replace(html,"/upload/","http://www.yok.com/upload/")
html=Replace(html,"mail.265.com","www.56.com/ok881.u.html")
html=Replace(html,"http://weather.265.com/index.htm","http://ok881.com/weather")
html=Replace(html,"weather.265.com","weather.cncn.com")
Response.write Html
%>