asp源碼小偷

『壹』 如何禁止伺服器運行「ASP 小偷」程序

把HKEY_CLASSES_ROOT\MSXML2.XMLHTTP\
改名為其它的名字，如：改為MSXML2.XMLHTTP_OtherName

這樣別人就用不了了，自己要用的時候就調用修改的這個名字 了

『貳』 求小說小偷源碼

PT小說小偷免費版v1.94源碼下載-小偷採集源碼-php源碼-源碼下載中心
...PT小說小偷免費版v1.94,源碼大小:572KB,最後更新日期:2010-4-26,源碼下載人氣:1102,功能簡介1、多規則切換：收費版已經提供了3個規則，奇文的已經破解aspnetpager可以
...
code.knowsky.com/down/15834.html
wap小說小偷源碼下載-WAP系統源碼-ASP源碼-源碼下載中心-Code.knowsky.comwap小說小偷,源碼大小:15KB,最後更新日期:2010-5-3,源碼下載人氣:146,修改自e_book
可隨意修改或傳播原作者：
曾qq
失效請自行修改，或關注本人博客，我有時間就修改下
...
code.knowsky.com/down/16207.html
e路小說小偷v3.0228源碼下載-小偷採集源碼-PHP源碼-源碼下載中心-Code
...e路小說小偷v3.0228,源碼大小:24KB,最後更新日期:2010-3-1,源碼下載人氣:833,這是一個免費小說網的書庫小偷，全部代碼由作者記事本手工編寫完成，和網上其它書庫小偷
...
code.knowsky.com/down/15174.html
小說小偷簡單asp版源碼下載-小偷採集源碼-ASP源碼-源碼下載中心-Code
...小說小偷簡單asp版,源碼大小:8KB,最後更新日期:2009-7-13,源碼下載人氣:748,小說小偷簡單asp版進行設置config.asp放上去就可以用了。
code.knowsky.com/down/15161.html
6號聯盟小說小偷v1.0(偽靜態版)
源碼下載-小偷採集源碼-ASP源碼-源碼
...6號聯盟小說小偷v1.0(偽靜態版)
,源碼大小:108KB,最後更新日期:2010-5-10,源碼下載人氣:272,本程序是一套免更新免維護的自動更新系統，採用網路中已經成熟、穩定地
...
code.knowsky.com/down/16235.html
百靈小說小偷v4.1從本版本開始，小說程序加上後台，便於新手管理，但功能有限制。
修復部分鏈接出站的錯誤。
採用偽靜態，利於搜索引擎收錄。
網站基本信配置可以到後台操作，也可以
...
code.knowsky.com/down/16474.html

『叄』 做了個asp的小偷程序，在iis下測試正常，但用netbox封裝成exe後資料庫就沒反應了

netbox有些語法不兼容。

『肆』 高分，用asp編寫一段判斷網路狀態的代碼，求解。

用ASP中的xmlhttp
和小偷、採集的原理是一樣的，你可以到網上找一下小偷原因方面的源碼，拿過來用就可以
在ASP中調用xmlhttp去獲取目標頁面的值，如果返回的狀態正確，就說明這兩個網站是暢通的
當然，你也可以用JS中的xmlhttp也就是AJAX，原理一樣，實現的方法小有不同而已

『伍』 論壇小偷

這個類似與新聞小偷，我以前寫過。可以利用asp組建來獲得需要頁面的源代碼，然後通過分析源代碼的內容寫一個處理程序，取出想要的數據。然後動態的顯示到自己的頁面上。根本就不需要
下面是兩個函數，函數的返回值是獲得網頁的源代碼：
參數當然就是網頁的url,調用第一個函數。
Public Function getHtmlPage(strUrl)
On Error Resume Next
Dim objHttp
Set objHttp = Server.CreateObject("Microsoft.XMLHTTP")

objHttp.Open "GET", strUrl, False
objHttp.Send()
If objHttp.ReadyState <> 4 Then
Exit Function
End If
getHtmlPage = BytesToBstr(objHttp.ResponseBody)
Set objHttp = Nothing
If Err.Number <> 0 Then
Err.Clear
getHtmlPage = "<H1>該伺服器不支持Microsoft.XMLHTTP組件！</H1>"
End If
On Error Goto 0
End Function

Public Function BytesToBstr(vIn)
On Error Resume Next
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
BytesToBstr = ""
With objStream
.Type = 1
.Mode =3
.Open
.Write vIn
.Position = 0
.Type = 2
.Charset = "GB2312"
BytesToBstr = .ReadText
.Close
End With
Set objStream = Nothing
If Err.Number <> 0 Then
Err.Clear
BytesToBstr = "<H1>該伺服器不支持ADODB.Stream組件！</H1>"
End If
On Error Goto 0
End Function

『陸』 小偷程序的特點

1、可以採集80%以上的站點，只需簡單的在後台配置採集替換規則即可。
2、突破圖片防盜鏈系統，可以將目標站的圖片下載到伺服器上面，提高訪問效率，增加網路圖片的收錄。
3、支持靜態生成，即使目標站伺服器出現錯誤，本站依然不受影響（前提是開啟靜態生成和圖片下載到本地伺服器）。
4、授權版可以啟用全國分站功能，自動產生長尾關鍵字，適合全國服務行業和信息查詢服務。
語言代碼1.Perl
#!/usr/bin/perl
# 通過IE瀏覽器中的[查看]->[源文件]可看HTML文件內容。
# perl中可以不通過瀏覽器直接取得HTML文件內容，用的
# 就是perl模塊libWWW
use strict;
use LWP::UserAgent;
use threads::shared;
my $URL = http://*******;
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/3.0');
my ($address,$params) = split(/?/,$URL);
my $req = new HTTP::Request ('GET',$address);
$req->content_type('applicationn/x-www-form-urlencoded');
$req->content();
my $res = $ua->request($req);
my $content = $res->as_string();
# 此時$content裡面是網頁內容
print $content;
$URL里就是要偷數據的地址。例子中的是本人的小站。偷自己的東西，沒犯法吧？
當然，這個會把網頁內容列印到控制台。所以很多數據或者需要保存的時候，應該用重定向符號輸出到文件。如：
perl yourf ile. pl >a.html
這樣，輸出的結果就保存在文件a.html中了。至於分析的語句，PERL可以使用方便而簡潔的正則，限制於不同程序的不同分析，這里就不寫分析語句了。
2.Active Server Pages － VBScript
ASP版本的小偷程序，也不見得有什麼太大的難度。不過應用了XMLHTTP組件的功能而已，事實上，我也很驚訝ASP寫這個程序的簡短之處：
<%
URL = http://*******
Set objXMLHTTP = CreateObject(Microsoft.XMLHTTP)
objXMLHTTP.Open GET,URL,False
objXMLHTTP.Send
Response.Write Server.HTMLEncode(objXMLHTTP.responseText)
Set objXMLHTTP = Nothing
%>
簡單不？呵呵....
3.Active Server Pages － JScript
從原理來說，這個和VBScript差不多。從語句來說，這個跟VBScript也差不多－畢竟，它們都用同一個組件：
<script language=JScript>
var xmlhttp = new ActiveXObject(Msxml2.XMLHTTP.4.0);
xmlhttp.Open(POST, http://*******, false);
xmlhttp.Send();
alert(xmlhttp.responseText);
</script>
4.Java
Java用來干這個，實在有點大材小用的感覺：
import jav a .io.*;
import jav a. net.*;
public class getURLContent
{
public static void main(String args[]) throws MalformedURLException,IOException
{
URL url = new URL(url address);
BufferedReader reader = new BufferedReader(new InputStreamReader(url.openStream()));
while(reader.ready()){
System.out.println(reader.readLine());
}
}
}
5.php
php:
$url='http://網址';
echo file_get_contents($url);
?>
6.Asp. Net
c#:
System .Net.WebClient webclient = new System .Net.WebClient();
webclient.DownloadString(http://*******);
vb.n et:
Dim webclient As New System .Net.WebClient()
webclient.DownloadString(http://*******)
實例
QQ網站上的天氣程序
代碼如下：
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,GB2312)
End function
首先，進行小偷程序的一些初始化設置，以上代碼的作用分別是忽略掉所有非致命性錯誤，把小偷程序的運行超時時間設置得很長（這樣不會出現運行超時的錯誤），轉換原來默認的UTF-8編碼轉換成GB2312編碼，否則直接用XMLHTTP組件調用有中文字元的網頁得到的將是亂碼。
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject(Microsoft.XMLHTTP)
With Retrieval
.Open Get, url, False, ,
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
然後調用XMLHTTP組件創建一個對象並進行初始化設置。
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
處理抓取回來的數據需要調用adodb.stream組件並進行初始化設置以下即為頁面顯示部分
<%
Dim wstr,str,url,start,over,city
』定義一些需要使用到的變數
city = Request.QueryString(id)
』程序傳回的ID變數（即用戶選擇的城市）賦給id
url=http://appnews-qq-com/cgi-bin/news_qq_search?city=&city&
這里設置需要抓取的頁面地址，當然你也可以直接指定某個地址而不使用變數
wstr=getHTTPPage(url)
獲取指定頁面的全部數據
start=Newstring(wstr, <html>)
這里設置需要處理的數據的頭部，這個變數應視不同情況而設置，具體內容可以通過查看需要抓取的頁面的源代碼來確定。因為在這個程序里我們需要抓取整個頁面,所以設置為頁面全部抓取。注意，設置的內容必須是頁面內容唯一的，不可以重復。
over=Newstring(wstr, </HTML>)
和start相對應的就是需要處理的數據的尾部，同樣的，設置的內容必須是頁面中唯一的。
body=mid(wstr,start,over-start)
』設置顯示頁面的范圍
下面就是動用乾坤挪移+++的時候了，通過replace可以用一些字元替換掉數據中指定的字元。
body = replace(body,skin1,新浪天氣預報 - 麥小偷網路)
body = replace(body,http://appnews-qq-com/cgi-bin/news_qq_search?city,tianqi.asp?id)
本程序中已經完成了替換的工作，如果有其他需要的話可以繼續進行類似的替換操作。
response.write body
%>
替換完需要修改的內容後，就可以把修改的內容顯示在頁面上了。至此程序結束