１.抓取一個遠程網(wǎng)頁并保存到本地 '用于調(diào)試的過程，后面會多次調(diào)用檢查中間結(jié)果 Dim inDebug:inDebug=True Sub D(Str) If inDebug = False Then Exit Sub Response.Write("<div style='color:#003399; border: solid 1px #003399; background: #EEF7FF; margin: 1px; font-size: 12px; padding: 4px;'>") Response.Write(Str &"</div>") Response.Flush() End Sub
'過程： Save2File '功能： 把文本或字節(jié)流保存為文件 '參數(shù)： sContent 要保存的內(nèi)容 ' sFile 保存到文件，形如"files/abc.htm" ' bText 是否是文本 ' bOverWrite 是否覆蓋己存在文件 Sub Save2File(sContent,sFile,bText,bOverWrite) Call D("Save2File:"+sFile+" *是否文本："&bText) Dim SaveOption,TypeOption If (bOverWrite = True) Then SaveOption=2 Else SaveOption=1 If (bText = True) Then TypeOption=2 Else TypeOption=1 Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = TypeOption
