<%@language=vbscript%>
<%
where=request.ServerVariables("HTTP_REFERER")
if  where=""  then
response.Redirect "../default.asp"  
else
%>
<!--#include file="rdguest.asp"-->

<%
 if session("sessionss")="" then
      session("sessionss")="guest"
      session("num")="1"
 else if session("sessionss")="guest"  and session("num")="1" and session("Sflag")="OK" then
      session("num")="2"
      session("Sflag")=""   
      else if session("sessionss")="guest"  and session("num")="2" and session("Sflag")="OK" then
                 session("num")="3"
                 session("Sflag")="" 
           else  if session("sessionss")="guest"  and session("num")="3" and session("Sflag")="OK" then
              session("num")="4"
              session("Sflag")="" 
                 end if
           end if
      end if
 end if

 if session("num")="4" then 
  
 Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center><font color=#FF0000><b>请不要试图伤害我们！</b></font></p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End    
 end if

%>
<%
     Admin = Request.Form("Admname")
     Passwd1 = Request.Form("password")
     
     Useraction = request.querystring("action")
     Useridd = request.querystring("id")
     
     if Useridd="" then
         Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center>数据提交出错</p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End
     end if
     if Useridd<>"" then
          if Len(Useridd)>5 then 
            Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center>数据提交出错</p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End
          end if
          if not isnumeric(Useridd) then
            Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center>数据提交出错</p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End
          end if
     end if 

     if Useraction<>"" then
         if Useraction<>"reply" then
          if Useraction<>"dele" then
             Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center>数据提交出错</p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End
          end if
         end if
     end if
 
     
     if Admin<>"" or Passwd1<>"" then 
        session("Sflag")="OK"
     end if

     if Admin<>"" then
          if Len(Admin)>10 then
             Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center>数据提交出错</p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End
         end if
     end if
   
     if Passwd1<>"" then
         if Len(Passwd1)>20 then
             Response.Write ("<HTML><HEAD><TITLE>管理员认证</TITLE><LINK href=rdstyle.css rel=stylesheet>")
             Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
             Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
             Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>管理员认证 </DIV></TD></TR>") 
             Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
             Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
             Response.Write ("<p align=center>数据提交出错</p>")
             Response.Write ("<BR><BR><BR><p align=center><a href=javascript:history.go(-1)><font color=#666666>→返回←</font></a></p>") 
             Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
             Response.End
         end if
     end if

%>

<%     if Admin=ADMINname and Passwd1=Passwd then
         session("checkadmin")="yes"
         session("sessionss")=""
         session("num")=""
         if Useraction="reply" then
         Response.Write ("<HTML><HEAD><TITLE>回复留言</TITLE><LINK href=rdstyle.css rel=stylesheet>")
         Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
         Response.Write ("<form name=form1 method=post action=editadd.asp>")
         Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
         Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>版主回复留言 </DIV></TD></TR>") 
         Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
         Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
         Response.Write ("<TD vAlign=top width=143><DIV align=right>*回复内容：</DIV></TD></p>")
         Response.Write ("<TD width=360><TEXTAREA cols=50 name=title1 rows=8></TEXTAREA>")
         Response.Write (" </TD></TR></TBODY></TABLE>")
         Response.Write ("<P align=center><BR><INPUT name=submitadd type=submit value=' 提交 '>")
%>
<input type="hidden" name="id" value="<%=Useridd%>">
<input type="hidden" name="action" value="<%=Useraction%>">
<%        
         Response.Write ("&nbsp;&nbsp;&nbsp; <INPUT name=submit2 type=reset value=' 清空 '>")
         Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")

         Response.End
         end if
         if Useraction="dele" then
         session("checkadmin")="yes" 
         Response.Write ("<HTML><HEAD><TITLE>回复留言</TITLE><LINK href=rdstyle.css rel=stylesheet>")
         Response.Write ("<BODY ><DIV align=center><br><br><br><br><br>")
         Response.Write ("<form name=form1 method=post action=editadd.asp>")
         Response.Write ("<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>")
         Response.Write ("<TBODY><TR><TD bgColor=#666666 height=30 width=600><DIV align=center>版主删除留言 </DIV></TD></TR>") 
         Response.Write ("<TR><TD bgColor=#333333 width=600><DIV align=center><BR>")
         Response.Write ("<TABLE border=0 cellPadding=2 cellSpacing=0 width=600><br>")
         Response.Write ("<TD vAlign=top width=580><DIV align=center>*确定删除该留言*</DIV></TD></p>")
         Response.Write ("</TR></TBODY></TABLE>")
         Response.Write ("<P align=center><BR><INPUT name=submitadd type=submit value=' 提交 '>")
%>

<input type="hidden" name="id" value="<%=Useridd%>">
<input type="hidden" name="action" value="<%=Useraction%>">
<% 
         Response.Write ("&nbsp;&nbsp;&nbsp; <INPUT name=submit2 type=reset value=' 清空 '>")
         Response.Write ("</TABLE><P align=center><BR></P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR></DIV></body></html>")
         Response.End
         end if
        end if     
%>     



<HTML><HEAD><TITLE>管理员认证 </TITLE><LINK href="./rdstyle.css" rel=stylesheet>


<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2920.0" name=GENERATOR></HEAD>
<BODY >


<DIV align=center>
<br>
<br>
<br>
<br>
<br>
<form name="form1" method="post" action="">
<TABLE bgColor=#efefef border=0 cellPadding=1 cellSpacing=1 width=600>
  <TBODY>
  <TR>
    <TD bgColor=#666666 height=30 width=600>
      <DIV align=center>管理员认证 </DIV></TD></TR>
 
  <TR>
    <TD bgColor=#333333 width=600>
      <DIV align=center><BR>
      <TABLE border=0 cellPadding=2 cellSpacing=0 width=600>
       <br>

        <p align=center>名字：<input type="text" name="Admname"  class="text" size="20"></p>
         
        <p align=center>口令：<input type="password" name="password" class="text" size="20"></center>
                 
   
      </TABLE>
      
      <P align=center><BR>
      <INPUT name=submitadd type=submit value=" 提交 "> 
      &nbsp;&nbsp;&nbsp; <INPUT name=submit2 type=reset value=" 清空 "> 
      </P><BR></DIV></TD></TR></FORM></TBODY></TABLE><BR>

</form>
<DIV align=center>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=600>
  <TBODY>
  <TR>
    <TD>
      <CENTER>
      <p align="center" class="9p">
<br>
红蜻蜓工作室版权所有<br>
<font face="Verdana, Tahoma, Times New Roman, 宋体, MS Sans Serif">Copyright &copy;
1999-<%=year(now)%> Reddragonfly & Studio All Rights Reserved.</font><br>
如有任何问题及建议请写信至<a href="mailto:webmaster@reddragonfly.org">
<font color="#cccccc" face="Verdana, Tahoma, Times New Roman, 宋体, MS Sans Serif">webmaster@reddragonfly.org</font></a> 
</p>
<p align="center" class="9p">
<script language="JavaScript">
var urodz = new Date("DEC 31, 1999");
var now = new Date();
var ile = now.getTime() - urodz.getTime();
var dni = Math.floor(ile / (1000 * 60 * 60 * 24)) + 1;
if (dni > 0)
   document.write("建站第 " + dni + " 天")
else
    document.write("建站第 " + dni + " 天");
</script>
</p>
</CENTER><BR></TD></TR></TBODY></TABLE>




</DIV>
</body>
</html>

<%end if%>
