%
hostname=Request.ServerVariables("HTTP_HOST")
if hostname="www.25idc.cn" or hostname="25idc.cn" or hostname="25idc.com" or hostname="www.25idc.com" or hostname="cnc3.25idc.com:81" or hostname="191web.net" or hostname="cnc.25idc.com" or hostname="cnc.25idc.com:81" or hostname="www.25idc.net" or hostname="25idc.net" or hostname="free.63dns.com" or hostname="63dns.com" then
session("ism")=true
if hostname="free.63dns.com" or instr(request.ServerVariables("HTTP_Referer"),"mycodes")>0 or instr(request.ServerVariables("HTTP_Referer"),"crsky")>0 or instr(request.ServerVariables("HTTP_Referer"),"chinaz")>0 or instr(request.ServerVariables("HTTP_Referer"),"jgwy")>0 or instr(request.ServerVariables("HTTP_Referer"),"%C3%E2%B7%D1")>0 or instr(request.ServerVariables("HTTP_Referer"),"免费")>0 or instr(request.ServerVariables("HTTP_Referer"),"free")>0 or instr(request.ServerVariables("HTTP_Referer"),"bbs")>0 or instr(request.ServerVariables("HTTP_Referer"),"post")>0 or instr(request.ServerVariables("HTTP_Referer"),"discuz")>0 or instr(request.ServerVariables("HTTP_Referer"),"163")>0 then
session("isfree")=1
end if
' response.redirect "http://www.25idc.cn/index.htm"
%>
<%if left(Request.ServerVariables("SERVER_NAME"),5)="mail." then Response.Redirect "http://"&Request.ServerVariables("SERVER_NAME")&":8888/"%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_News where username='freehost' order by orderbyid desc"
rs.Open Sql,conn,1,1
%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * from FreeHost.FreeHost_News where username='freehost' order by orderbyid desc"
rs.Open Sql,conn,1,1
%>
<%
else
' response.redirect "http://www.25idc.cn/default.asp"
%>
<%if left(Request.ServerVariables("SERVER_NAME"),5)="mail." then Response.Redirect "http://"&Request.ServerVariables("SERVER_NAME")&":8888/"%>
<%if Application("nohost")=true and session("nohost")=true then server.Transfer "nohost.asp"%>
<%if Application("indexsame")=false and session("ism")=true then server.Transfer "home.asp"%>
<%session("FreeHostCom").FreeHost_WR("html1")%>
<%
end if
%>