<!--#include file="../showchat.asp"-->
<%
If Session("AdminUID") = "" then
			dim num1
			dim rndnum
			Randomize
			Do While Len(rndnum)<4
			num1=CStr(Chr((57-48)*rnd+48))
			rndnum=rndnum&num1
			loop
			session("verifycode")=rndnum
Else
session("verifycode")=""
End If
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if zhbg_grade<>10 then Response.Redirect "manerr.asp?id=255"
pass=request.form("pass")
user=request.form("user")
if pass="" or user="" then
session("zhbg_adminok")=false
%>
<SCRIPT language="JavaScript"> 
<!-- 
var targetwin="jhwindow";
function check()
{
var verify=document.login.verify.value;
var verify1=document.login.verify1.value;
if(verify!=verify1){window.alert("请输入正确的认证码:"+verify1+"！");return false;}
}
//-->
</SCRIPT>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%></title>
<style></style>
<LINK href='../css.css' type=text/css rel=stylesheet>
</head>
<body>
<center>
<font color="#000000"><b><font size="+2"><%=Application("zhbg_chatroomname")%></font></b></font><br>
<br>
<form method="POST" action="login1.asp" onsubmit='return(check());' name="login">
<TABLE class=tableBorder cellSpacing=1 cellPadding=5 width="60%" align=center 
border=0>
  <TBODY>
  <TR>
    <TH colSpan=2>管 理 员 登 陆</TH></TR>
  <TR>
    <TD class=forumRowHighlight align=middle width="30%">用户名：</TD>
    <TD class=forumRow width="70%"><INPUT class=tableBorder maxLength=10 
      size=25 name=user value='<%=zhbg_name%>'></TD></TR>
  <TR>
    <TD class=forumRowHighlight align=middle>密&nbsp;&nbsp;码：</TD>
    <TD class=forumRow><INPUT class=tableBorder type=password maxLength=30 
      size=25 name=pass></TD></TR>
  <TR>
    <TD class=forumRowHighlight align=middle>附加码：</TD>
    <TD class=forumRow><INPUT class=tableBorder maxLength=20 size=4 
      value='<%=session("verifycode")%>' name=verify><input type="hidden" name="verify1" size="4" style="font-size: 12px" value="<%=session("verifycode")%>"> 请输入附加码:<font color=red><%=session("verifycode")%></font></TD></TR>
  <TR>
    <TD class=forumRowHighlight align=middle colSpan=2><INPUT class=kuang type=submit value="登陆" name=Submit>&nbsp;&nbsp;<INPUT class=kuang onclick=window.location.reload() type=button value=刷新 name=refresh>&nbsp; 
<INPUT class=kuang onclick="javascript:window.close();" type=button value=关闭 name=Submit1></TD></TR></TBODY></TABLE></FORM>
</center>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
<%
elseif pass=Application("zhbg_adminkey") and user=Application("zhbg_adminuser") then
session("zhbg_adminok")=true
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open Application("zhbg_usermdb")
conn.execute "insert into l(a,b,c,d,e) values (now(),'"& zhbg_name &"','"& Request.ServerVariables("REMOTE_ADDR") &"','管理记录','成功登录…')"
conn.close
set conn=nothing
if zhbg_name<>Application("zhbg_user") then
'显示登录信息
says="<font color=red>【系统提示】["&zhbg_name&"]</font><font color=green>登录了后台管理系统，以备大家监督！[当前时间:"&now()&"]"
call showchat(says)
'显示登录信息
end if
Response.Redirect "admin.asp"
else
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open Application("zhbg_usermdb")
conn.execute "insert into l(a,b,c,d,e) values (now(),'"& zhbg_name &"','"& Request.ServerVariables("REMOTE_ADDR") &"','管理记录','登录失败…')"
conn.close
set conn=nothing
if zhbg_name<>Application("zhbg_user") then
'显示登录信息
says="<font color=red>【系统拦截】["&zhbg_name&"]</font><font color=green>想非法登录后台，已被系统拦截！[当前时间:"&now()&"]"
call showchat(says)
'显示登录信息
end if
Response.Redirect "../EXIT.ASP"
end if%>
