<%
Option Explicit
Dim NetType,CurrentDomain
NetType=UCase(Trim(Request.Cookies("NetType")))
CurrentDomain=LCase(Trim(Request.ServerVariables("SERVER_NAME")))
'//////第一次访问本站//////
If NetType="" Then
With Response
.Write("
" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("您是第一次访问本站，正在判断您的网络类型..." & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Flush()
End With
'//////网通用户访问//////
ElseIf NetType="CNC" Then
'网通用户通过网通域名访问
If CurrentDomain="cnc.jscfzx.com" Then
Response.Redirect("http://cnc.ychxzs.com/index.htm")
Else'网通用户通过电信域名访问
Response.Redirect("http://cnc.ychxzs.com/index.htm")
End If
'//////电信用户访问//////
Else
If CurrentDomain="www.jscfzx.com" Then
Response.Redirect("http://www.ychxzs.com/index.htm")
Else
Response.Redirect("http://www.ychxzs.com/index.htm")
End If
End If
%>
<%
Option Explicit
Dim NetType,CurrentDomain
NetType=UCase(Trim(Request.Cookies("NetType")))
CurrentDomain=LCase(Trim(Request.ServerVariables("SERVER_NAME")))
'//////第一次访问本站//////
If NetType="" Then
With Response
.Write("
" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("您是第一次访问本站，正在判断您的网络类型..." & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Write("" & VbCrLf)
.Flush()
End With
'//////网通用户访问//////
ElseIf NetType="CNC" Then
'网通用户通过网通域名访问
If CurrentDomain="cnc.jscfzx.com" Then
Response.Redirect("http://cnc.ychxzs.com/index.htm")
Else'网通用户通过电信域名访问
Response.Redirect("http://cnc.ychxzs.com/index.htm")
End If
'//////电信用户访问//////
Else
If CurrentDomain="www.jscfzx.com" Then
Response.Redirect("http://www.ychxzs.com/index.htm")
Else
Response.Redirect("http://www.ychxzs.com/index.htm")
End If
End If
%>
