top.asp

zheng fu wang zhan gong neng qi quan

<!--#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%>
<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%>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" align="center">
<tr><td align="center">
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" >
  <tr>
<td height="30" align="right" class="black_title"><span class="left_align"><%if showclub=1 then%>当前在线<!--#include file=zx.asp --><%=i%>人</span><%
						dim mymenu
						mymenu=basemenu
						Response.Write mymenu
						%></td>
  </tr>
  <tr>
    <td height="120"><a href="<%=bannerurl%>">
        <%if gd2="1" then%>
        <img src="<%=banner%>" width="760" height="120" border="0" align="absmiddle">
        <%else%>
        <object codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' 
      height="125" width="770" 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="770" height="125"> </embed>
        </object>
        <%end if%>
        </a></td>
  </tr>
  <tr>
    <td class="top" height="30" background="Images/menu_bg.jpg"><!--#include file="menu.asp"--></td>
  </tr>
  </table>
  <table border="0" cellpadding="0" cellspacing="0" width="760">
  <tr bgcolor="#E6EBE6">
<%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
		%>
		<td height="30" bgcolor="#E6EBE6">
<form method="POST" action="ChkLogin.asp" name="UserLogin" onSubmit="return CheckFormUserLogin();" class="login"><span  align="left" valign="middle" class="date">今天是<%Response.Write FormatDateTime(Date(),1) & "  星期"& Mid("日一二三四五六",WeekDay(Date),1) %></span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span align="right" valign="middle" class="login_user">用户：</span>
              <input name="UserName" size="8" class="login_username" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#F3F3F3'"><span align="right" valign="middle" class="login_user">密码：</span>
<input type="password" name="Passwd" size="8" class="login_username" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#F3F3F3'"><span align="right" valign="middle" class="login_user">验码：</span>
          <input type="text" name="verifycode" size="4" class="login_username" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#F3F3F3'">
<span><%=getcode1()%></span>
              <input type="submit" name="Submit" value="登录"  class="login_username" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#F3F3F3'" title="登录系统">
              <%if reg=1 then%>
              &nbsp;
              <input type="button" name="Submit2" value="注册" class="login_username" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#F3F3F3'" onClick="javascript:adduser()" title="注册新会员">
              <%end if%>
              &nbsp;
              <input type="button" name="Submit2" value="忘密" class="login_username" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#F3F3F3'" onClick="javascript:getpwd()" title="忘记密码了？"> 
          </form>
          <%else%>
          <span align="right" valign="middle" style="font-size: 9pt;color: #000"> 欢迎：<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="#333">超级管理员</font>
            <%end if%>
            <%if Request.cookies(eChuang)("KEY")="super" and Request.cookies(eChuang)("purview")<>"99999" then%>
            <font color="#009900">系统管理员</font>
            <%end if%>
            <%if Request.cookies(eChuang)("KEY")="check" then%>
            <font color="#009900">文章审核员</font>
            <%end if%>
            <%if Request.cookies(eChuang)("KEY")="selfreg" then%>
            <font color="#009900">注册用户</font>
            <%end if%>
            <%if Request.cookies(eChuang)("KEY")="smallmaster" then%>
            <font color="#009900">小类管理员</font>
            <%end if%>
            <%if Request.cookies(eChuang)("KEY")="bigmaster" then%>
            <font color="#009900">大类管理员</font>
            <%end if%>
            <%if Request.cookies(eChuang)("KEY")="typemaster" then%>
            <font color="#009900">总栏管理员</font>
            <%end if%>
            您的等级：
            <%if Request.cookies(eChuang)("KEY")<>"selfreg" then%>
            <font color="#009900">内部成员</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>--></span>
          <%end if%>
      <%end if%></td>
  </tr>
</table>