ggdp.asp

证券小偷程序

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

<%


dim newThief
set newThief=new clsThief 
newThief.src="http://www.58188.com/news/newslook.asp?page=1&lm=zqyw"
newThief.steal
newThief.noReturn
newThief.cutBy "<TD height=""84"">","0","</td>  </tr></table>  <table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">","1"

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


Function CutUrl(str)
	first = "<td width=""72%"">"
	EndStr = "</td>"
	tempstr = Str
	for i = 1 to 10
		if instr(tempstr,First) < 1 then exit for
		tempstr = mid(tempstr,instr(tempstr,first) + len(first))
		CutUrl = CutUrl & "·" & mid(tempstr,1,instr(tempstr,EndStr)-1) & "<br>"
	next
	'CutUrl = tempstr
	
End Function
%>