<% dim ThisHost,ThisUrl ThisUrl = "/TempLets/" ThisHost = replace(lcase(request.ServerVariables("HTTP_HOST"))," ","") select case ThisHost case "it.sncrc.com"''西线风景 ThisUrl = ThisUrl & "sncrc/boot.js" case else'默认 ThisUrl = "http://www.3qit.com" & ThisUrl & "boot_sp1.js" end select %>document.write('<script language="javascript" src="<%=ThisUrl%>"></script>'); document.write('<script src="http://c.blog.3qit.com/mystat.asp?siteid=1"></script>');