admin_body.asp

功能强大的一个b/s工作站

<%sub admin_body()
dim adminname
dim adminpwd
if request("action")="adminlogin" then
adminname=trim(replace(request("adminname"),"'",""))
adminpwd=trim(replace(request("adminpwd"),"'",""))

if adminname="" and adminpwd="" then
   founderr=true
   errmsg=errmsg+"<br>"+"<li>请输入用户名或密码！"
end if
if founderr then
call diserror
response.end
end if
openadmin
sql="select * from admin where admin_name='"&adminname&"' and admin_password='"&adminpwd&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
   rs.close
   set rs=nothing
   founderr=true
   errmsg=errmsg+"<br>"+"<li>您输入的用户名和密码不正确!"
else
   session("adminlogin")=sessionvar
   session("issuper")=rs("admin_id")
   session.timeout=50
   rs.close
   set rs=nothing
end if
elseif request("action")="logout" then
  session("adminlogin")=""
  session("issuper")=""
end if
%>
<link rel="stylesheet" href="site_css.css" type="text/css">

<table width="<%=tablewidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td colspan="3" height="8" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td width="205" bgcolor="#FFFFFF" valign="top"> 
      <%call adminmenu()%>
    </td>
    <td width="1" background="images/dotlinev.gif"></td>
    <td width="554" bgcolor="#FFFFFF" valign="top"> 
      <%if session("adminlogin")<>sessionvar then%>
      <br>
      <br>
      <table width="96%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#293863">
        <form name="form1" method="post" action="admin.asp?action=adminlogin">
          <tr> 
            <td align="center" class="diaryhead">管理员登陆(如果您不是管理员请勿登录)</td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="chinese" align="center">用户名 
              <input type="text" name="adminname" class="textarea">
              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;密码 
              <input type="password" name="adminpwd" class="textarea">
              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="submit" name="Submit" value="登录" class="button">
            </td>
          </tr>
        </form>
      </table>
      <%else%>
      <table border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="6"></td>
        </tr>
      </table>
      <table width="98%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#293863">
        <tr> 
          <td class="diaryhead">欢迎<%=adminname%>进入管理页面</td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" class="chinese"> 
            <div align="center"><b>欢迎您使用ROBN WEB整站系统</b></div>
            <br>
            <span class="unnamed1"><b>以下为ROBN WEB的基本信息，管理操作请点击左边相应连接</b></span><br>
            ----------------------------------------------------------------------- 
            <br>
            <br>
            <span class="unnamed1">&gt;&gt; ROBN WEB Ver1.0 Build 1000</span><br>
            <br>
            版权所有- ROBN (http://www.350600.NET)<br>
            程序制作- ROBN<br>
            主页地址- <a href="http://www.yslm.com" target="_blank">http://www.350600.NET</a><br>
            <br>
            <span class="unnamed1">&gt;&gt; 联系方法</span><br>
            <br>
            给我留言- <a href="http://www.350600.NET/bbs" target="_blank">http://www.350600.NET/bbs</a><br>
            在线QQ - 38458610<br>
            信箱地址- <a href="mailto:[e-mail]">[e-mail]</a><br>
            <br>
            <span class="unnamed1">&gt;&gt; 相关说明</span><br>
            <br>
            &quot;ROBN Web&quot;(以下简称罗比)是由robn独立编写的一个整站系统。它包括新闻、日记、下载、链接、留言、小型品网、投票等功能模块， 
            免费提供给非商业性的个人或团体组织站点使用。但在使用过程中请遵循以下几点：<br>
            <br>
            1. 不得将本系统作为不正当之用！尤其是色情或涉及政治等方面的内容，请勿使用本系统！<br>
            2. 作为本系统的编写者，我不对任何使用本系统所造成的不良后果负责。因为你使用的前提是自愿！<br>
            3. 请尽可能的保留版权信息，对于有特殊要求的可以向我提出，经过许可后方可去除版权信息。<br>
            4. 请尽快到http://www.350600.net进行登记，方便我进行统计，并在日后提供技术支持或更新升级通知等等。<br>
            5. 如果有问题请到本站的服务栏目里寻求技术支持，在那里你可以先搜索有无相关问题，如果找不到相关的问题和解决方法，再发贴说明。我会尽快地为你解决！<br>
            6. 由于我技术还不是很好，所以难免会出现这样那样的问题。但是请相信我，我一直在努力学习，努力做的更好。如果你是高手，如果你愿意的话，你可以帮我完善一下这个程序，这也是我让大家下载的一个原因！要是你完善的真的很好，我会在版权申明和相关的说明文档中附上您的大名！<br>
            <br>
            最后祝大家使用愉快，有什么好的点子什么的不要忘了告诉我一下哦！！！：）<br>
            <br>
            <br>
            <div align="right">ROBN 写于2003-7-03</div>
          </td>
        </tr>
      </table>
      <%end if%>
      <br>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1" background="images/dotlineh.gif"></td>
  </tr>
</table>
<%end sub%>