group.asp

来自「图片采集 通过正则表达式过滤代码」· ASP 代码 · 共 30 行

<!--#Include File="Config.asp"-->
<%
If Request.QueryString("Demo")<>"" Then
    PageCode=GetHttpPage(Request.QueryString("Demo"))
Else
    PageCode=GetHttpPage("http://www.tupian.com/"&Request.QueryString("Dir")&"")
End If
PageCodes=PageCode
PageCode=ReplaceTest("<IFRAME.*?</IFRAME>","",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("<script(.|\n)*?</script>","",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("图片网",""&SiteName&"",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("../../style/css/","http://www.tupian.com/style/css/",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("../../style/imgs/","http://www.tupian.com/style/imgs/",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("http://www\.tupian\.com/sort/","Sort.asp?Dir=/sort/",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("<div id=""nav_info"">(.|\n)*?</div>","",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("href=""http://www\.tupian\.com/""","href=""Index.asp""",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("<td class=""td2""><a title="".*?target=""_blank"">","<td class=""td2"">",PageCodes)
PageCodes=PageCode
PageCode=ReplaceTest("</a></td></tr>","</td></tr>",PageCodes)
Response.Write(PageCode)
%>