<!--#include file="inc/config.asp"-->
<!--#include file="inc/sub.asp"-->
<%
sURL=Request.ServerVariables("HTTP_HOST")
if instr(sUrl,"www.")>0 then
sUrl=replace(sUrl,"www.","")
end if
first_name=split(sURL,".")
if ubound(first_name)>2 then 
response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·在您输入的网址不正确');window.open('"&application("cityurl")&"','_parent');</script>"
response.end
end if

user=first_name(0)

    response.end
if W_KEY=1 then
response.Write "<title>系统维护中</title><div align=center><p></p><p><img src=http://www.hn22.com/run/weihu.gif width=514 height=511></p></div>"
response.End()
end if
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from H_Domain where U_URL='"&user&"'"
	rs.open sql,conn,1,1
	if rs.bof then
	response.Write "没有这个企业用户"
	response.end 
	else
    QID=rs("ID")
	H_thread=rs("H_thread")
	U_TITLE=rs("U_TITLE")
	end if
rs.close
'response.Redirect "thread/"&H_thread&"/index.asp?QID="&QID&""
'response.End()
	response.write"<title>"&U_TITLE&"</title><frameset framespacing=0 cols=0,* rows=* border=0 frameborder=NO><frame src=about:blank marginwidth=0 marginheight=0 noresize><frame src=http://"&W_dns&"/thread/"&H_thread&"/index.asp?QID="&QID&"></frameset>"
%>
