admin_left.asp

系统功能说明： 1 本书库系统专为以文字为主的站点设计

<!--#include file="conn.asp"-->
<!--#include file="chk.asp"-->
<!--#include file="top.asp"-->

<br><br>
<table width=100% border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
  <td  bgcolor="#DFFFEF"><b>管理选项</b></td>
</tr>
</table><br><br>
<table width=90% border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
  <td  align="center">

<a href=admin_addbook.asp target="right">添加书籍</a><br>
<a href=logout.asp >退出</a><br>
<a href=index.asp >首页</a><br><br>

<%
sql = "select * from kind"
set rs= Server.CreateObject("ADODB.RECORDSET")
rs.Open Sql,Conn,1,3
%>

<%
do
kindid=rs("kindid")
kindname=rs("kindname")
response.write"<table width=150 border=0 align=center><tr><td align=center>"
response.write"[<a href=admin_index.asp?kindid="&kindid&" target=right>"&kindname &"</a>]" 
response.write"[<a href=admin_add.asp?kindid="&kindid&" target=right>+文章</a>]<br>"
response.write"</td></tr></table>"
rs.movenext
loop until rs.eof
%>
</td>
</tr>
</table>