shownew.asp

证券小偷程序

<!--#include file="clsThief.asp" -->

<%
dim Url
Url = request("Url")

dim myThief
set myThief=new clsThief 
myThief.src="http://www.58188.com/news"&Url
myThief.steal
'myThief.noReturn
myThief.cutBy "<DIV id=article>","0","<div id=""googleadcode1"" style=""display:none"">","0"

'myThief.replaceByReg "href=""[^""]*""",""
myThief.Change "newslook.asp?page=","?page="
myThief.Change "../news","shownew.asp?Url="
Body = myThief.value
response.write ReplaceHref(Body)
set myThief=nothing

Function ReplaceHref(str)
   Dim objReg, Text, Maths, nn, str1
	Text = replace(str,"'","""")
	Set objReg = New RegExp
	objReg.Pattern = "<href=\.\./news[^>]*>"
	objReg.IgnoreCase = True
	objReg.Global = True
	Set Maths = objReg.Execute(Text)
	For Each nn In Maths
		
		If instr(nn,"http://") < 1 Then
			nn = Replace(nn,"href=""","")
			nn = Replace(nn,"""","")
			Text = Replace(Text,nn,"gpshclass.asp?UpUrl="&nn&"")
		end If
		
	Next
	ReplaceHref = Text 
end function 
%>