<!--#include file="ConnUser.asp"-->
<!--#include file="inc/config.asp"-->

<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 = '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(Forcast_SN)("ViewUrl")=ViewUrl%>

<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">
<%if showclub=1 then%>
	
  <TABLE WIDTH=760 BORDER=0 CELLPADDING=0 CELLSPACING=0 background="IMAGES/lmtopgui1.gif">
    <TR> 
			
      <TD width="165">&nbsp; </TD>
	<%if Request.cookies(Forcast_SN)("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="#FFFFFF">用户：</font>
<input name="UserName" size="8" font face="宋体" style="font-size:9pt;background-color:#ECECEC;color:#000000">
				<font color=white>密码：</font><input type="password" name="Passwd" size="8" font face="宋体" style="font-size:9pt; background-color:#ECECEC;color:#000000">
				<font color=white>验码：</font><input type="text" name="verifycode" size="4" font face="宋体" style="font-size:9pt; background-color:#ECECEC;color:#000000"> 
				<font color=white><b><span><%=getcode1()%></span></b></font>
				<input type="submit" name="Submit" value="登录" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" title="登录系统"> 
		<%if reg=1 then%>
				&nbsp;<input type="button" name="Submit2" value="注册" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" onClick="javascript:adduser()" title="注册新会员"> 
		<%end if%>
				&nbsp;
<input type="button" name="Submit2" value="忘密"  style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'" onClick="javascript:getpwd()" title="忘记密码了？">
			</td>
			</form>
	<%else%>
			
      <td align="right" valign="middle" style="font-size: 9pt;color: #FFFFFF"> 
        欢迎：<b><%=Request.cookies(Forcast_SN)("UserName")%></b>&nbsp;&nbsp;
			<%if db_Birthday_Select="zuoxing" then		'性别字段%>
				<%=Request.cookies(Forcast_SN)("sex")%>
			<%else
				if db_Birthday_Select="Text" then		'性别字段是BBS的文本型阿拉伯数字
					if Request.cookies(Forcast_SN)("sex")=1 then%>
						男
					<%else
						if Request.cookies(Forcast_SN)("sex")=0 then%>
							女
						<%else%>
							保密
						<%end if
					end if
				end if
			end if%>
					您的权限：<%if Request.cookies(Forcast_SN)("KEY")="super" and Request.cookies(Forcast_SN)("purview")="99999" then%><font color="#FFFF00">超级管理员</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="super" and Request.cookies(Forcast_SN)("purview")<>"99999" then%><font color="#FFFF00">系统管理员</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="check" then%><font color="#FFFF00">文章审核员</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="selfreg" then%><font color="#FFFF00">注册用户</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="smallmaster" then%><font color="#FFFF00">小类管理员</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="bigmaster" then%><font color="#FFFF00">大类管理员</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="typemaster" then%>
        <font color="#FFCC00">总栏管理员</font>
<%end if%>
					您的等级：<%if Request.cookies(Forcast_SN)("KEY")<>"selfreg" then%><font color="#FFFF00">内部成员</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="selfreg" and Request.cookies(Forcast_SN)("reglevel")="1" then%><font color="#FFFF00">普通</font><%end if%>
        <%if Request.cookies(Forcast_SN)("KEY")="selfreg" and Request.cookies(Forcast_SN)("reglevel")="2" then%><font color="#FFFF00">高级</font><%end if%>
						<%if Request.cookies(Forcast_SN)("KEY")="selfreg" and Request.cookies(Forcast_SN)("reglevel")="3" then%><font color="#FFFF00">特级</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(Forcast_SN)("UserName")%>" class=my>[会员文章]</a></td>
			<%end if%>
            
      <TD width="30">&nbsp; </TD>
    </TR>
  </TABLE>
  	  <%end if%>
    
  <TABLE WIDTH="760" height="150" BORDER=0 CELLPADDING=0 CELLSPACING=0 background="<%=banner%>">
    <TR> 
      <TD><a href="<%=logourl%>"> 
        </a> <div align="center"> <a href="<%=bannerurl%>"> 
          </a> 
		  <% if right(banner,3)="swf" then %>
          <table width="100%" height="150" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" style="border-collapse: collapse">
            <tr valign="top"> 
              <td height="90"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="760" height="150">
                  <param name="movie" value="<%=banner%>">
                  <param name="quality" value="high">
                  <embed src="<%=banner%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="760" height="150"></embed></object></td>
            </tr>
          </table>
		  <% end if %>
        </div>
        <div align="center"> </div></TD>
    </TR>
  </TABLE>
  
  	<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#99CDFF">
	</table>
</div>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="0" background="IMAGES/lmtopgui.gif">
  <tr background="IMAGES/lmtopgui.gif"> 
    <td width="30%" height="22">&nbsp;&nbsp;作星校园网站系统 当前在线<font color=red> 
      <!--#include file=zx.asp -->
      <font color=#FFFF00><%=i%></font>
</font>人</td>
    <form method="post" name="myform" action="Result.asp" target="newwindow">
      <td width="70%" height="22" align="right"> 
        <%if showsearch=1 then%>
        <%if search="1" then%>
        <!--#include file=search.asp-->
        <%else%>
        <!--#include file=search1.asp-->
        <%end if%>
        <%end if%>
      </td>
    </form>
  </tr>
  </table>
  
<table width="760" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr bgcolor="#ECECEC"> 
    <td width="22%"> <font color="#000000"> &nbsp; 
      <%Response.Write FormatDateTime(Date(),1) & "  星期"& Mid("日一二三四五六",WeekDay(Date),1) %>
      </font> </td>
    <td height="22" bgcolor="#ECECEC"> 
      <table border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="top"> 
            <%
						dim mymenu
						mymenu=basemenu
						Response.Write mymenu
						%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="27" colspan="2" background="IMAGES/menu_bg.gif"> 
      <table border="0" cellpadding="2" cellspacing="0">
        <tr> 
          <td class="top"> 
            <!--#include file="Menu.asp"-->
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>