程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> 用正則和xmlHttp實現的asp小偷程序

用正則和xmlHttp實現的asp小偷程序

編輯:關於ASP編程
復制代碼 代碼如下:
<% 
'======================================== 
class EngineerSearch 
'老龍:[email protected] 
':模擬XML獲取http標記資源(用過之後就知道為什麼XML有用:)) 
'利用引擎搜索(顯示引擎信息或其超連接網站上的信息或直接一個指定頁面的相關信息,利用正則和xmlHttp, 
'程序的使用需要會構造正則) 
'--------------------------------------------------------------- 
private oReg,oxmlHttp'一個正則,一個微軟xmlhttp 
'--------------------------------------------------------------- 
public sub class_initialize()'對象建立觸發 
set oReg=new regExp 
oReg.Global=true 
oReg.IgnoreCase=true 
set oXmlHttp=server.createobject("Microsoft.XmlHttp") 
end sub 
'--------------------------------------------------------------- 
public sub class_terminate()'對象銷毀觸發 
set oReg=nothing'必須手動釋放class內的自建對象,asp只自動釋放由class定義的對象 
set oXmlHttp=nothing 
If typename(tempReg)<>"nothing" then'方法體內的對象釋放資源 
set tempReg=nothing 
end if 
end sub 
'--------------------------------------------------------------- 
'引擎級搜索 
public function engineer(url,EngineerReg) 
'功能介紹:獲得url的返回信息(通常用於引擎查找),提取其中的EngineerReg的特定信息,返回matches集合到 
'函數名。獲得url查詢結果,搜尋出用engineerReg正則定義的結果,生成一個matches集合, 
'由於無法建立集合及操作集合個數(vbscript),最好再自己遍歷集合,也可以考慮二維數組 
dim strConent 
strContent=oXmlHttp.open("get",url,false) 
on error resume next 
oXmlHttp.send() 
if err.number<>0 then 
exit function 
end if 
strContent=bytes2BSTR(oXmlHttp.responseBody) 
if isnull(EngineerReg) then 
engineer=AbsoluteURL(strContent,url) 
else 
oReg.Pattern=EngineerReg 
set engineer=oReg.Execute(AbsoluteURL(strContent,url))  
end if 
end function 
'--------------------------------------------------------------- 
'漢字編碼,(網人) 
public Function bytes2BSTR(vIn)  
strReturn = ""  
For i = 1 To LenB(vIn)  
ThisCharCode = AscB(MidB(vIn,i,1))  
If ThisCharCode < &H80 Then  
strReturn = strReturn & Chr(ThisCharCode)  
Else  
NextCharCode = AscB(MidB(vIn,i+1,1))  
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode))  
i = i + 1  
End If  
Next  
bytes2BSTR = strReturn  
End Function 
'--------------------------------------------------------------- 
public Function SearchReplace(strContent,ReplaceReg,ResultReg) 
'替換,將strContent中的replaceReg描述的字符串用resultReg描述的替換,返回到searchReplace去 
'將正則的replace封裝了。 
oReg.Pattern=ReplaceReg 
SearchReplace=oReg.replace(strContent,ResultReg) 
End Function 
'--------------------------------------------------------------- 
public Function AbsoluteURL(strContent,byval url) 
'將strContent中的相對URL變成oXmlHttp中指定的url的絕對地址(http/https/ftp/mailto:) 
'正則可以修改修改。 
dim tempReg 
set tempReg=new RegExp 
tempReg.IgnoreCase=true 
tempReg.Global=true 
tempReg.Pattern="(^.*\/).*$"'含文件名的標准路徑http://www.wrclub.net/default.aspx 
Url=tempReg.replace(url,"$1") 
tempReg.Pattern="((?:src|href).*?=[\'\u0022](?!ftp|http|https|mailto))" 
AbsoluteURL=tempReg.replace(strContent,"$1"+Url) 
set tempReg=nothing 
end Function 
'--------------------------------------------------------------- 
end class 
'======================================== 
%> 
<%'例子 
Response.CharSet = "GB2312"  
dim mySearch  
set mySearch=new EngineerSearch 
'URL一定是包含文件擴展名的完整地址,結果是集合,集合中的每個項目是數組,應該這樣引用子查詢:myMatches(0).subMatches(0) 
set myMatches=mySearch.engineer("http://www.wrclub.net/default.aspx","<img.*?>") 
if myMatches.count=0 Then 
response.write "沒有你正則的字符串" 
end if 
if myMatches.count>0 then 
response.write myMatches.count&"<br>" 
for each key in myMatches 
response.write key.firstindex&":"&cstr(key.value)&"<br>" 
next 
end if 
%> 

更諸多的應用,只要你會正則
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved