<% 
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>');