<%'
--------------------------------
'baidu搜尋小偷asp完美版''
'由於baidu經常修改介面，該版僅適用於2006年3月之前的最後一次該版
'如搜尋時出現錯誤或者提取的內容混亂則表示該版本壽命已用盡。
"找到相關網頁")
=0then
ubb ="
沒有搜尋到任何內容
"exit
function
endif
str
=replace
(str,vbcrlf,""
)str
=replace
(str,""
,"")
str
=replace
(str,
" ","
"&vbcrlf)
str
=replace
(str,""
,vbcrlf&"
")dimre,match,matches
setre
=new
regexp
re.global
=true
re.ignorecase
=true
re.pattern="
.*(.*)
"set
matches
=re.execute(str)
foreach
match in matches
ubb=
ubb&
br(match.value)
next
re.pattern="
"ubb
=re.replace(ubb,"")
re.pattern="
(.[^<]*)
"ubb
=re.replace(ubb,"")
re.pattern="
(.[^<]*)
"ubb
=re.replace(ubb,""
) '每一條資訊的間隔
ubb
=replace
(ubb,""
,"")ubb
=replace
(ubb,
" ",""
)ubb
=br(ubb)
re.pattern="
(找到相關網頁.*秒)
"set
matches
=re.execute(str)
setmatch
=matches(0)
ubb
=ubb
&match &"
"str
=replace
(str,
" ","
"&vbcrlf)
re.pattern="
(.*)
"set
matches
=re.execute(str)
setmatch
=matches(0)
dimthelink
thelink
=match
re.pattern="
href=s?(.[^>]*)
"thelink
=re.replace(thelink,
"href=""$1""")
ubb
=ubb
&thelink
end function
iflen
(request("wd
"))
>
0then
response.write dq(request("wd
"))endif
%>
<
form method
=post action="
?">
<
input type="
text
"name="
wd">
<
input type="
submit
">
form
>
小偷程式 asp
這裡所說的 小偷 指的是在asp中運用xml中的xmlhttp元件提供的強大功能，把遠端 上的資料 網頁及其他檔案 抓取到本地，經過各種處理後顯示到頁面上或者儲存進資料庫的一類程式。你可以通過這種小偷程式，完成過去一些似乎完全不可能實現的任務，比如說把某個站的頁面偷樑換柱後變成自己的頁面，或者把某個...
XMLHTTP小偷程式POST方法（ASP）
cookies pages curdate 2005 12 20 flightway1 single flightway single homecity escape 成都 ddateperiod1 2005 12 25 startperiod all destcity1 escape 深圳 tic...
watir學習 baidu搜尋示例
今天任務不多，有空看了些watir的資料，於是手癢癢的想做個例子練練，網上有個google搜尋的示例，本人也就照貓畫虎，寫了一個baidu搜尋的小例子。大牛就直接跳過吧。歡迎有興起的朋友一起交流學習，共進步。如下 require watir context hello broswer watir i...
watir學習 baidu搜尋示例
今天任務不多，有空看了些watir的資料，於是手癢癢的想做個例子練練，網上有個google搜尋的示例，本人也就照貓畫虎，寫了一個baidu搜尋的小例子。大牛就直接跳過吧。歡迎有興起的朋友一起交流學習，共進步。如下 require watir context hello broswer watir i...
ASP小偷 遠端資料獲取 程式入門教程
這裡所說的 小偷 指的是在asp中運用xml中的xmlhttp元件提供的強大功能，把遠端 上的資料 網頁及其他檔案 抓取到本地，經過各種處理後顯示到頁面上或者儲存進資料庫的一類程式。你可以通過這種小偷程式，完成過去一些似乎完全不可能實現的任務，比如說把某個站的頁面偷樑換柱後變成自己的頁面，或者把某個...