 <% data_path=""  %>
 <!--#include file="conn/conn.asp"-->
<%
Server_Name  =  replace(Request.ServerVariables("SERVER_NAME"),"www.","")
For  I=1  To  Len(Server_Name)
	If  Mid(Server_Name,i,1)="."  Then  Exit  For
		USER  =  USER  &  Mid(Server_Name,i,1)
	Next

	SET  rsurl  =  Server.CreateObject("ADODB.Recordset")
	sqlqy  ="SELECT id,[user],qymc,url,gradeid,weburl_2,flag From [Websen_corporation] where [user]='"&USER&"'"
	rsurl.open sqlqy,conn,1,1
	If Not (rsurl.eof  OR  rsurl.bof)  Then
		username=rsurl("user")
		qymcname=rsurl("qymc")
		set rsqu=server.CreateObject("adodb.recordset")
		sqlqu="select  rolelist from Websen_vipgrade where roleid="&rsurl("gradeid")
		rsqu.open sqlqu,conn,1,1
		if not rsqu.eof then
		if instr(rsqu("rolelist"),"qw")>0 then
   			url=HOPE_InstallDir&"vipcom/"&rsurl("user")
		Else
			url=HOPE_InstallDir&"ptcom/"&rsurl("user")&".html"
		End if	
 		rsqu.close
		end if
		 
	Else
		response.redirect HOPE_InstallDir&"index.asp"
	End  If
rsurl.close
set  rsurl=nothing
%>
<html>
<head><title><%=qymcname%></title>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<META content=<%=qymcname%>公司网站 name=keywords>
<META content=这是<%=qymcname%>公司网站 name=description>
 </head>
 <frameset framespacing="0" border="0" rows="0,*" frameborder="0">
<frame name="header" scrolling="no" noresize target="main" src="company/title.htm">
<frame name="main" src="<%=url%>" scrolling="auto">
<noframes>
<body>
<p>此网页使用了框架，但您的浏览器不支持框架。</p>
</body>
</noframes>
</frameset>
</html>