ok881set.asp

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

<%
Dim Url,Html
Url="http://www.yok.com/"&ok881&".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,"go.php","go.asp")
html=Replace(html,"/upload/","http://www.yok.com/upload/")
html=Replace(html,"YOK超级搜索","优化大师")
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")
html=Replace(html,"NO=57","NO=124")
html=Replace(html,"NO=35","NO=195")
html=Replace(html,"NO=197","NO=28")
html=Replace(html,"NO=211","NO=35")
html=Replace(html,"NO=222","NO=194")
html=Replace(html,"NO=233","NO=193")
html=Replace(html,"NO=247","NO=178")
html=Replace(html,"NO=255","NO=160")
html=Replace(html,"NO=263","NO=160")
html=Replace(html,"NO=271","NO=101")
html=Replace(html,"NO=174","NO=304")
html=Replace(html,"NO=283","NO=62")
html=Replace(html,"NO=295","NO=172")
html=Replace(html,"NO=307","NO=69")
html=Replace(html,"NO=319","NO=304")
html=Replace(html,"NO=194","NO=39")
html=Replace(html,"NO=340","NO=39")
html=Replace(html,"NO=346","NO=42")
html=Replace(html,"NO=352","NO=305")
html=Replace(html,"NO=358","NO=311")
html=Replace(html,"NO=49","NO=54")
html=Replace(html,"NO=369","NO=48")
html=Replace(html,"NO=375","NO=54")
html=Replace(html,"NO=381","NO=48")
html=Replace(html,"NO=387","NO=54")
html=Replace(html,"NO=49","NO=48")
html=Replace(html,"NO=398","NO=24")
html=Replace(html,"NO=405","NO=21")
html=Replace(html,"NO=412","NO=25")
html=Replace(html,"NO=418","NO=313")
html=Replace(html,"NO=429","NO=153")
html=Replace(html,"NO=433","NO=152")
html=Replace(html,"NO=437","NO=307")
html=Replace(html,"NO=441","NO=170")
html=Replace(html,"NO=450","NO=166")
html=Replace(html,"NO=458","NO=91")
html=Replace(html,"NO=466","NO=166")
html=Replace(html,"NO=474","NO=168")
html=Replace(html,"NO=532","NO=59")
html=Replace(html,"NO=525","NO=58")
html=Replace(html,"NO=539","NO=124")
html=Replace(html,"NO=546","NO=125")
html=Replace(html,"NO=157","NO=179")
html=Replace(html,"NO=513","NO=157")
html=Replace(html,"NO=515","NO=157")
html=Replace(html,"NO=517","NO=179")
html=Replace(html,"NO=519","NO=316")
html=Replace(html,"NO=485","NO=97")
html=Replace(html,"NO=491","NO=98")
html=Replace(html,"NO=497","NO=94")
html=Replace(html,"NO=503","NO=97")
html=Replace(html,"NO=191","NO=118")
html=Replace(html,"NO=114","NO=118")
html=Replace(html,"NO=557","NO=113")
html=Replace(html,"NO=566","NO=115")
html=Replace(html,"NO=575","NO=118")
html=Replace(html,"NO=584","NO=117")
html=Replace(html,"NO=547","NO=98")
html=Replace(html,"NO=541","NO=94")
Response.write Html
%>