<!--#include file="ConnUser.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="char.inc"-->
<script language=javascript>
function CheckFormUserLogin()
{
	if(document.UserLogin.UserName.value=="")
	{
		alert("请输入用户名！");
		document.UserLogin.UserName.focus();
		return false;
	}
	if(document.UserLogin.Passwd.value == "")
	{
		alert("请输入密码！");
		document.UserLogin.Passwd.focus();
		return false;
	}
	if(document.UserLogin.verifycode.value == "")
	{
		alert("请输入验证码！");
		document.UserLogin.verifycode.focus();
		return false;
	}
}
</script>
<SCRIPT language="JavaScript" type="text/javascript">
    // Begin morelink
      function morelink(morelink)
      {
        url = 'MoreLink.asp?linktype=1';
        window.open(url,morelink);
      }
    // End morelink-->
 // Begin linkreg
      function linkreg(linkreg)
      {
        url = 'LinkReg.asp';
        window.open(url,linkreg);
      }
    // End linkreg-->
// Begin vote
      function vote(vote)
      {
        url = 'E_Vote.asp?stype=view';
        window.open(url,vote);
      }
    // End vote-->
// Begin adduser
      function adduser(adduser)
      {
        url = 'AddUser.asp';
        window.open(url,adduser);
      }
    // End adduser-->
// Begin getpwd
      function getpwd(getpwd)
      {
        url = 'GetPwd.asp';
        window.open(url,getpwd);
      }
    // End getpwd-->
</script>
<%if TransShow="on" then%>
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Enter>
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Exit>
	<SCRIPT language=JavaScript>
	<!--
	//页面随机切换效果
	function transDemo(n) {
	if (document.all && navigator.userAgent.indexOf("Mac")==-1) {
	t=document.all.transmeta;
	t.style.width=document.body.clientWidth;
	t.style.height=document.body.offsetHeight;
	t.style.top=document.body.scrollTop;
	t.style.backgroundColor="#003333";
	t.style.visibility="visible";
	t.filters[0].transition=n;
	setTimeout("transShow()"); // separated to force screen paint
	} else {
	alert("You can view transitions only on Windows IE 4.0 and later.");
	} 
	}
	
	function transShow() {
	t.filters[0].Apply();
	t.style.visibility="hidden";
	t.filters[0].Play();
	}
	//-->
	</SCRIPT>
<%end if%>
<%		'获取当前 URL
dim ViewUrl
if Request.ServerVariables("QUERY_STRING")<>"" then
	ViewUrl=Request.ServerVariables("url") &"?"& Request.ServerVariables("QUERY_STRING")&""
else
	ViewUrl=Request.ServerVariables("url") &""
end if
response.cookies(eChuang)("ViewUrl")=ViewUrl%>

<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<div id=menuDiv style='Z-INDEX: 2; VISIBILITY: hidden; WIDTH: 1px; POSITION: absolute; HEIGHT: 1px; BACKGROUND-COLOR: #9cc5f8'></div>
<%if topbg=1 then %>
	<script src="clearevents.js"></script>
	<noscript><iframe src=*></iframe></noscript>
<%end if%>
<%if R_BG=1 then %>
	<SCRIPT language=JavaScript src="Float.asp"></SCRIPT>
<%end if%>
<div align="center">
	<table width="100%" height="28" border="0" align="center" cellpadding="0" cellspacing="0" background="Images/ec_01.gif">
      <tr>
        <td>&nbsp;&nbsp;&nbsp;&nbsp;当前在线<font color=red>
        <!--#include file=zx.asp -->
        <font color=red><%=i%></font> </font>人</td>
        <td width="529">
		  <div align="right">
	        <%if showclub=1 then%>
	        <TABLE WIDTH=0 BORDER=0 align="right" CELLPADDING=0 CELLSPACING=0>
              <TR>
                <%if Request.cookies(eChuang)("username")="" then%>
                <%
		Function getcode1()
			Dim test
			On Error Resume Next
			Set test=Server.CreateObject("Adodb.Stream")
			Set test=Nothing
			If Err Then
				Dim zNum
				Randomize timer
				zNum = cint(8999*Rnd+1000)
				Session("verifycode") = zNum
				getcode1= Session("verifycode")		
			Else
				getcode1= "<img src=""getcode.asp"">"		
			End If
		End Function
		%>
                <form method="POST" action="ChkLogin.asp" name="UserLogin" onSubmit="return CheckFormUserLogin();">
                  <td class="my" align="right" valign="middle"> <font color=black>用户：</font>
                      <input name="UserName" size="8" font face="宋体" style="font-size:9pt;background-color:#ffffff;color:#EAEAF4">
                      <font color=black>密码：</font>
                      <input type="password" name="Passwd" size="8" font face="宋体" style="font-size:9pt; background-color:#ffffff;color:#EAEAF4">
                      <font color=black>验码：</font>
                      <input type="text" name="verifycode" size="4" font face="宋体" style="font-size:9pt; background-color:#ffffff;color:#EAEAF4">
                      <font color=white><b><span><%=getcode1()%></span></b></font>
                      <input type="submit" name="Submit" value="登录" style="font-size: 9pt;  color: #000000; background-color: #669933; solid #669933" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#669933'" title="登录系统">
                      <%if reg=1 then%>
&nbsp;
        <input type="button" name="Submit2" value="注册" style="font-size: 9pt;  color: #000000; background-color: #669933; solid #6699330" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#669933'" onClick="javascript:adduser()" title="注册新会员">
        <%end if%>
&nbsp;
        <input type="button" name="Submit2" value="忘密"  style="font-size: 9pt;  color: #000000; background-color: #669933; solid #669933" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#669933'" onClick="javascript:getpwd()" title="忘记密码了？">
                  </td>
                </form>
                <%else%>
                <td align="right" valign="middle" style="font-size: 9pt;color: #FF0000"> 欢迎：<b><%=Request.cookies(eChuang)("UserName")%></b>&nbsp;&nbsp;
                    <%if db_Birthday_Select="EChuang" then		'性别字段是原E创字段%>
                    <%=Request.cookies(eChuang)("sex")%>
                    <%else
				if db_Birthday_Select="Text" then		'性别字段是BBS的文本型阿拉伯数字
					if Request.cookies(eChuang)("sex")=1 then%>
      男
      <%else
						if Request.cookies(eChuang)("sex")=0 then%>
      女
      <%else%>
      保密
      <%end if
					end if
				end if
			end if%>
      您的权限：
      <%if Request.cookies(eChuang)("KEY")="super" and Request.cookies(eChuang)("purview")="99999" then%>
      <font color="#FF0000">超级管理员</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="super" and Request.cookies(eChuang)("purview")<>"99999" then%>
      <font color="#FF0000">系统管理员</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="check" then%>
      <font color="#FF0000">文章审核员</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="selfreg" then%>
      <font color="#FF0000">注册用户</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="smallmaster" then%>
      <font color="#FF0000">小类管理员</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="bigmaster" then%>
      <font color="#FF0000">大类管理员</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="typemaster" then%>
      <font color="#FF0000">总栏管理员</font>
      <%end if%>
      您的等级：
      <%if Request.cookies(eChuang)("KEY")<>"selfreg" then%>
      <font color="#FF0000">内部成员</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="selfreg" and Request.cookies(eChuang)("reglevel")="1" then%>
      <font color="red">普通</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="selfreg" and Request.cookies(eChuang)("reglevel")="2" then%>
      <font color="red">高级</font>
      <%end if%>
      <%if Request.cookies(eChuang)("KEY")="selfreg" and Request.cookies(eChuang)("reglevel")="3" then%>
      <font color="red">特级</font>
      <%end if%>
      <a href="Admin_login.asp" class=my>[发文]</a>&nbsp;<a href="Exit.asp" class=my>[退出]</a>&nbsp;<a href="bloguser.asp?user=<%=Request.cookies(eChuang)("UserName")%>" class=my>[MY博客]</a></td>
                <%end if%>
              </TR>
            </TABLE>
            <%end if%>		
        </div></td>
      </tr>
    </table>
	
    <TABLE WIDTH=780 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
    <TR> 
      <TD width="490"> 
        <div align="center"> 
          <a href="<%=bannerurl%>"> 
      <%if gd2="1" then%>
      <img src="<%=banner%>" width="780" height="160" border="0" align="absmiddle"> 
      <%else%>

	  <object codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' 
      height="160" width="780" classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000'>
      <param name="movie" value='<%=banner%>'>
      <param name="quality" value="high">
      <param name="wmode" value="transparent">
      <embed src="photo/top.swf" quality=high 
      pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
      type="application/x-shockwave-flash" width="780" height="160"> </embed></object>
	  <%end if%></a>
      </div></TD>
   	  </TR>
</TABLE> 
</div>
  <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
     <td width="780" height="32" valign="bottom" background="IMAGES/ec_03.gif">
	   <table width="100%" height="26" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="121" class="top"><center>
            <a href="index.asp" class="top1">首页</a>
          </center>
          </td>
          <td width="359" class="top"><%
						dim mymenu
						mymenu=basemenu
						Response.Write mymenu
						%></td>
			<td width="300" valign="middle" align="right">
			<table width="300" height="32" border="0" align="right" cellpadding="0" cellspacing="0">
     <form method="post" name="myform" action="Result.asp" target="newwindow">
        <tr>
          <td><div align="right">
            <%if showsearch=1 then%>
            <%if search="1" then%>
            <!--#include file=E_search.asp-->
            <%else%>
            <!--#include file=E_search1.asp-->
            <%end if%>
            <%end if%>
          </div></td>
    </form>
        </tr>
      </table>
			</td>
         </tr>
       </table>
	  </td>
    </tr>
    
  <tr>
    <td class="top" height="27" colspan="3" background="IMAGES/ec_04.gif">
	<!--#include file="menu.asp"-->	</td>
  </tr>
</table>
