複製代碼 代碼如下:url="http://www.csdn.net/" wstr=getHTTPPage(url) start=Newstring(wstr,"資源精選<!-- 下載 -->") over=Newstring(wstr,"<div class=""friendlink"">") body=mid(wstr,200,500) response.write body Function getHTTPPage(url) dim objXML set
Function ProxyPage(url) Set Retrieval = CreateObject("MSXML2.ServerXMLHTTP.5.0") With Retrieval .SetProxy 2 , "255.0.0.0:80" '代理ip:代理連接埠 .Open "Get", url, False, "", "" .setRequestHeader "Referer","http://www.baidu.com/" '偽造referer .Send ProxyPage =
採集開始 第一步是分析要採集的頁面。 使用瀏覽器開啟要採集的頁面（如:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml，你可以其他頁面），開啟後，點擊右鍵，查源檔案。 第二步，找到要採集的內容所在位置。 假如我要採集這個頁面上的標題和內容所在的位置： 標題在<h1 id="artibodyTitle" style="color:#03005C;">和</h1>之間 內容在＜!-- 本文內容 begin --
確實，如果在原網站如果存在表單提交或cookies的驗證，對於ASP來說，不使用基於SOCKET的組件就難以完成，其實，XMLHTTP的另外兩個方法被我們忽略了，而這正是問題的關鍵。 下面首先來說說這個方法 1。.send() 由於流行的小偷是使用的GET而不是POST來傳送資料，所以很多人忽略了這個方法，而使用SEND發送資料也很簡單，就是SEND("內容")，可是，
'/*=========================================================================
<% '為了支援原創，請保留該處注釋，謝謝！ '作者：草上飛 '擷取主網域名稱 Function getDomainUrl(url) tempurl=replace(url,"http://","") if instr(tempurl,"/")>0 then
複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!-- #include file="conn.asp" --> <!-- #include file="inc/function.asp" --> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
在瀏覽器的地址欄裡直接輸入一個doc或xls或jpg的檔案的url路徑，那麼該檔案會直接顯示在瀏覽器裡。而在很多時候我們希望能直接彈出下載提示框讓使用者下載，我們該怎麼辦呢？這裡有兩種方法： 1、設定你的伺服器的iis，給doc等尾碼名做映射。 2、在向用戶端發送時設定其contenttype。 下面詳細說明方法2 程式碼: 複製代碼 代碼如下:<% Response.Buffer = true
利用XMLHTTP 從其他頁面擷取資料 我們在編寫ASP代碼的時候，大家都知道可以通過post或者get獲得form表單的資料，那麼我們如何直接獲得其他頁面上的資料呢？這就要藉助xmlhttp協議了。xmlhttp是xmldom技術的一部分。 下面的代碼就是一個很簡單的例子，我們利用xmlhttp技術，把http://www.xxxx.com/網站首頁的代碼以xml的形式完全擷取，並且在頁面中輸出。 <% Dim objXMLHTTP, xml
asp中xmlhttp組件發包 寫的一個小偷函數，注意紅色代碼部分，其他的自己添加吧！ Function PostHttpPageFrom(HttpUrl,stra,FromUrl) Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "POST",HttpUrl,False
<% '名稱：asp通用採集函數冗餘版，要精品版的有心人自己改 '作者：柳永法 '日期：2007-6-23 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage = BytesToBstr(t, "GB2312") End Function
'檔案內容讀取. 複製代碼 代碼如下:Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then
<% dim act,ifLogin,loginUrl,loginActUrl,loginData,fileUrl,fileName act=request.QueryString("act") if(act="do") then ifLogin=Cint(request.QueryString("ifLogin")) loginActUrl=request.Form("loginActUrl")
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!-- #include file="conn.asp" --> <!-- #include file="inc/function.asp" --><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
複製代碼 代碼如下:<% '======================================== class EngineerSearch '老龍:laolong9999@sina.com ':類比XML擷取http標記資源（用過之後就知道為什麼XML有用：）） '利用引擎搜尋(顯示引擎資訊或其超串連網站上的資訊或直接一個指定頁面的相關資訊，利用正則和xmlHttp, '程式的使用需要會構造正則)
簡單採集類1.0測試版------------------------------Cls_Ajax.asp 負責採集網頁Cls_Filter.asp 負責過濾資料Cls_Thief.asp
現在流行虛擬機器主機建站，我也有個網站，也算是個站長咯。當了近一年的站長，感到網站程式每次升級的時候頗為麻煩：先去官方看公告，然後下載升級包到本地，解壓，FTP上傳到虛擬機器主機。這些都是累人的體力活，加之本人又懶得很，所以異想天開的覺得要是程式能夠自動升級就好了。所以就想了想，寫了本文，希望對WEB程式開發人員有協助。這裡只針對ASP，因為我只會ASP :-( 先看看傳統的win32程式的升級過程（比如殺毒軟體），它是依靠軟體的升級程式通過網路連接到伺服器分析並下載升級檔案到本地。
本文我們詳細介紹了ASP資料庫被掛木馬的詳細解決方案之編程處理的方法，解決方案分為以下三步：第一步：為現有資料庫做好備份。第二步：執行如下ASP檔案，這樣就可以去掉資料庫當中的JS木馬：註：conn.asp自己去寫了。'這裡放入JS木馬內容：請記得改為自己資料庫中的JS木馬內容。<!--#include file="conn.asp"--> <% Server.ScriptTimeOut=180 Set rstSchema = conn.OpenSchema(20) k=
首先判斷檔案大小：if file.filesize<10 then Response.Write("<script>alert('您沒有選擇上傳檔案')</script>") Response.Write("<script>history.go(-1)</script>") Response.End()end if將檔案上傳到伺服器後，判斷使用者檔案中的危險操作字元:set MyFile =
修改三個組件來達到防asp木馬攻擊.FileSystemObject組件---對檔案進行常規操作.WScript.Shell組件---可以調用系統核心運行DOS命令.Shell.Application組件--可以調用系統核心運行DOS命令.一.使用FileSystemObject組件1.可以通過修改註冊表，將此組件改名，來防止此類木馬的危害.HKEY_CLASSES_ROOT\Scripting.FileSystemObject\改名為其它的名字，如：改為FileSystemObject_goo
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
