default.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<%
Response.Buffer = True  
Response.ExpiresAbsolute = Now() - 1  
Response.Expires = 0  
Response.CacheControl = "no-cache"  
Response.AddHeader "Pragma", "No-Cache" 

dim Coming
Coming=LCase(Trim(request.servervariables("HTTP_Host")))

Select Case Coming
  Case "www.todo.net.cn"
	  Response.Redirect("todo/")
  Case "todo.net.cn"
	  Response.Redirect("todo/")
  Case "alloy.todo.net.cn"
	  Response.Redirect("todo/")
  Case "www.95.la"
	  Response.Redirect("pop/")	  
  Case "www.37do.cn"
	  Response.Redirect("bookshop/")
  Case "37do.cn"
	  Response.Redirect("bookshop/")
  Case "www.37do.net"
	  Response.Redirect("37do/")
  Case "37do.net"
	  Response.Redirect("37do/")
  Case "www.chinaripen.com"
	  Response.Redirect("chinaripen/chinaripen.htm")
  Case "chinarien.com"
	  Response.Redirect("chinaripen/chinaripen.htm")
	  
End Select

%>