1樓：匿名使用者
這個...
filecounts(url)是得到所有內容,也就是html形勢的對吧
那麼你現在是否能得到getallurl(htmlcontent) as href ?
就是根據url得到全部的url集合?
只寫演算法,不具體**了..希望能理解,到了這個地步估計你已經能得到乙個頁面的url了(不然你前幾頁是怎麼來的...)
由於是asp的,用事件驅動可能不是很容易理解,所以我就用函式呼叫的辦法了.找到合適的url之後就dosth.(如果不要重複的,那麼見下文)
dim finalurls(60000) as string '用於儲存全部的url列表,由於沒有.net的hashtable以及arraylist 只能用這個湊合了 -_-!
dim layers as integer '要搜尋的最大層數,總不能無限吧...
dim curlayers as integer '當前的層數
dim numofurl as long '現在找到的url個數
dim numoftesturl as long '測試的個數
public function dosth(url as url)
'比如寫資料庫啦,計算個數啦,看看裡面有沒有敏感資訊啦之類
'找到之後呼叫的
end sub
public function getallurl(url) as string
dim __urls() as string '這個就是臨時存放url的型別,你可以想象成string型別
dim __suburls() as string
__urls=分析(url) '這個分析,就是你的根據內容找到href的演算法
if ubound(__urls)>0 then
'至少有乙個href
dim i as long
for i=0 to ubound(__urls)
addhreftourls(__urls(i)) '加到最後的結果,這個過程是處理字串的,由於沒有字典或者hashtable,所以這個用來遍歷字串,看看有沒有重複的,然後剔除掉.
if layers<>curlayers then '看看有沒有超過最大要求層
'開始幹活,目錄層數加1
curlayers=curlayers+1
'開始遞迴呼叫,能看懂吧,在這個迴圈裡面找下一層(sub的)
__suburls=getallurl(__urls(i))
'由於我們是用addhreftourls來計算的,所以不用返回也是可以的,這裡返回的目的是一種習慣,可能以後會用到某個網頁的全部url所以留著吧,去掉也行
getallurl=__suburls
end if
end function
public sub addhreftourls(url) '用於新增進去的
numoftesturl=numoftesturl+1
dim i as long
for i=0 to numofurl '在已經新增進去的找有沒有重複的
if 重複了...... 就不寫具體你怎麼判斷是否重複的了 - -
else
1 新增進去 同時numofurl+1 多了乙個.
2 然後呼叫sosth.這個用於模擬event,就是發生了"找到了"這個事件.你可以什麼都不做,也可以 記錄資料庫或者用於其他地方.
都是習慣問題,這個功能很實用的,所以通常寫**的時候直接習慣的留出來了....
end if
next
end sub
主要就這幾個部分
1 全域性變數,比如可以顯示當前進度(額..asp可能有難度...)
2 dosth...用不到的話可以無視
3 遞迴得到全部的url 有層數控制
4 判斷這個url是否有效(重複)
主要就是那個遞迴,雖然**不全,但是意思已經體現出來了.遞迴的時候容易讓人搞混亂的地方是先做什麼後做什麼,哪部分是該做的.. 慢慢想清楚,最終還是能解決的.
不要急著寫**.實在不行就畫流程圖...
簡單的asp分頁程式
fenye.asp fengye.asp o o 沒有詳細資訊，無法準確判斷。fengye.asp 這個在不在啊 先看看檔案名字有沒錯，沒看出你哪錯了，在者給你看看我寫的程式 set rs server.createobject adodb.recordset sql select from new...
關於asp程式對資料庫使用
1全部以前同學寫 的時候做過簡單測試,access資料庫超過五十m的時候查詢連線呼叫的速度什麼很慢.大型的資料庫如果幾萬條資料查詢的話還是用sql,而且要考慮到資料查詢,翻頁時的規則,我的 就是八萬條資料用sql查起來直接翻頁的話很慢,網上有一些記錄查詢的規則可以研究一下.為了 以後發展和移植考慮還...
緊急求幾條asp程式150分加150元
樓主如果想真正加入asp web程式設計師的話，你始終都要走上自己寫的路。分類的話無非是用到了遞迴，當中難點有偏歷，修改 和 刪除，其他都不難。掌握後你就進了一大步。將產品資料中再加乙個欄位就實現了 sql select from tablea where condition1 set rs con...
ASP小偷程式如何實現採集兩個頁面
利用樂思網路資訊採集系統，可以自主的配置任意 的資訊採集。asp小偷程式 多個內容替換的問題?pagecode replacetest 小偷 美 女 pagecode pagecode replacetest 美女 小 偷 pagecode pagecode replacetest pagecode...
在本機上測試asp程式，但是sql資料庫，我應該怎麼辦
要安裝ms sql server 2000 將ms sql server 2000企業版光碟放入光碟機，出現安裝引導介面 選擇 安裝 sql server 2000元件 選擇 安裝資料庫伺服器 開始安裝過程。出現以下介面時，選擇第二項 伺服器和客戶端工具，按 下一步 注意下面的常見錯誤！如果您嘗試在...