
    <TABLE border=0 align="center" cellPadding=0 cellSpacing=0 class=Table001>
              <TBODY>
                <TR> 
                  <FORM name=Loginfrm onsubmit="return AdminTestCookies();" action=chklogin.asp method=post>
                    
        <TD class=white height=30>&nbsp;<FONT face=verdana>&gt;&gt;</FONT> 欢迎你，<FONT face=verdana>
		<%
		strUserName=trim(Session("UserName"))
		if instr(strUserName,"_Big5")>0 then
			strLangFlag="中文繁体版"
		end if
				
		if instr(strUserName,"_Eng")>0 then
			strLangFlag="英文版"
		end if
				
		if instr(strUserName,"_Jap")>0 then
			strLangFlag="日文版"
		end if
				
		if instr(strUserName,"_Big5")>0 then
			strLangFlag="中文繁体版"
		end if
				
		if instr(strUserName,"_Kor")>0 then
			strLangFlag="韩文版"
		end if
				
		pn=instr(strUserName,"_")
		if pn>0 then
			strUserName=left(strUserName,pn-1)
		end if
		response.Write(strUserName & " " & strLangFlag) 		
		%>
		</FONT>：<A class=whiteLink 
      href="index.asp"><font color="#FFFFFF">返回首页</font></A><font color="#FFFFFF">&nbsp; 
          </font>| <A class=whiteLink 
      href="explorer.asp" target="_blank"><font color="#FFFFFF">资源管理</font></A><font color="#FFFFFF">&nbsp; 
          </font>| <A class=whiteLink 
      href="Admin_Manager.asp"><font color="#FFFFFF">网站建设</font></A> 
          <%
	  if Cint(Trim(Session("UserCode")))>0 then
	  %>
          | <A 
      class=whiteLink href="Admin_User.asp"><font color="#FFFFFF">网站管家</font></A> 
	  <%end if%>
          | <A 
      class=whiteLink href="/logout.asp"><font color="#FFFFFF">退 出</font></A> 
        </TD>
                  </FORM>
                </TR>
                <TR class=tr001 bgColor=#bad2f0> 
                  <TD colSpan=3 height=6></TD>
                </TR>
                <TR class=tr002> 
                  <TD align=right colSpan=3 height=30> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR> 
                          
              <TD align=left>&nbsp;会员级别：<FONT class=gface><%=MemberLevel%></FONT></TD>
              <%if Session("UserCode")>0 and Session("UserCode")<6 then%>
              <TD align=left>&nbsp;服务商：<FONT class=gface><%=GetName(Session("AgentID"))%></FONT></TD>
			  <TD align=left>&nbsp;代理价格：<FONT class=gface><%=Session("Webprice")%>￥/月</FONT></TD>
			  <%end if%>
              <TD align=right>&nbsp; 
						  <%
						MyWebUrl=request.ServerVariables("SERVER_NAME")
						if request.ServerVariables("SERVER_PORT")<>"" And request.ServerVariables("SERVER_PORT")<>"80" then
							MyWebUrl=MyWebUrl & ":" & request.ServerVariables("SERVER_PORT")
						end if
						strWebServer="http://" & MyWebUrl
						MyWebUrl="http://" & MyWebUrl & "/Home/" & Session("UserName")
						  %>
			  <A class=BlackLink 
            href="<%=MyWebUrl%>" target=_blank><FONT 
            color=red>更新并浏览网站：<%=Session("WebTitle")%></FONT></A>&nbsp; </TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD>
                </TR>
                <TR> 
                  <TD width="100%" colSpan=3 height=2></TD>
                </TR>
                <!--蓝横线-->
              </TBODY>
            </TABLE> 
<%
Function GetName(strID)
	set rsName=Server.CreateObject("ADODB.RecordSet")
	rsName.open "Select m_name From member Where id=" & strID,conn,1,1
	GetName=rsName("m_name")
End Function
%>
