小偷&小偷入库&采集入库(5)

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 
引用: 远程获取内容，并将内容存在本地电脑上，包括任何文件 

<% 
'----------远程获取内容，并将内容存在本地电脑上，包括任何文件！---------- 
'On Error Resume Next 
'Set the content type to the specific type that you are sending. 
'Response.ContentType = "IMAGE/JPEG" 
'-------------------------------定义输出格式----------------------------- 

Path=request.querystring("p") 
sPath = Path 
if left(lcase(path),7) <> "http://"; then 
'-------------如果前面没有http就是本地文件，交给LocalFile处理------------ 
LocalFile(path) 
else 
'--------------------否则为远程文件，交给RemoteFile处理------------------ 
RemoteFile(Path) 
end if 
'Response.Write err.Description 

sub LocalFile(Path) 
'-------------------如果为本地文件则简单的跳转到该页面------------------- 
Response.Redirect Path 
End Sub 

Sub RemoteFile(sPath) 
'-------------------------处理远程文件函数------------------------------ 
FileName = GetFileName(sPath) 
'-------------GetFileName为把地址转换为合格的文件名过程------------- 
FileName = Server.MapPath("/UploadFile/Cache/" & FileName) 
Set objFso = Server.CreateObject("Scripting.FileSystemObject") 
'Response.Write fileName 
if objFso.FileExists(FileName) Then 
'--------------检查文件是否是已经访问过,如是，则简单跳转------------ 
Response.Redirect "/uploadfile/cache/" & GetFileName(path) 
Else 
'----------------否则的话就先用GetBody函数读取---------------------- 
'Response.Write Path 
t = GetBody(Path) 
'-----------------用二进制方法写到浏览器上-------------------------- 
Response.BinaryWrite t 
Response.Flush