readmain.asp
资源名称:图书管理系统.rar [点击查看]
上传用户:llrg7406
上传日期:2007-03-02
资源大小:654k
文件大小:3k
源码类别:
教育系统应用
开发平台:
Delphi
- <%@ Language=VBScript %>
- <!--#include file ="identify.asp"-->
- <html>
- <head>
- <meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
- <link rel="stylesheet" type="text/css" href="xcss.css">
- <STYLE>
- <!--
- #page {position:absolute; z-index:0; left:0px; top:0px}
- .tt3 {font: 9pt/12pt "宋体"}
- .tt2 {font: 12pt/15pt "宋体"}
- a {text-decoration:none}
- a:hover {color: blue;text-decoration:underline}
- -->
- </STYLE>
- <script language=javascript>
- function show_onclick() {
- if(top.window.f2.cols != "0,*")
- {
- top.window.f2.cols = "0,*";
- }
- else
- {
- top.window.f2.cols = "300,*";
- }
- }
- </script>
- </head>
- <body topmargin="0" background="images/zapsmbknd.gif">
- <TABLE BORDER=0 CELLSPACING=0 WIDTH="100%" >
- <TR>
- <TD VALIGN=top WIDTH="8%" BGCOLOR="#e0e0e0" class="tt3">
- <BR><CENTER>
- <A href="xmain.asp">回首页</A>
- <BR><a href="#" onclick="javascript:show_onclick();">显示菜单</A></CENTER>
- </TD>
- <TD WIDTH="84%">
- <TABLE border=0 width="90%" align=center>
- <tr><td>
- <BR><B><FONT FACE="楷体_GB2312"><FONT COLOR="#ff6666"><FONT SIZE=+3>书库</FONT></FONT></FONT></B>
- </td></tr>
- </table>
- <HR SIZE=1 NOSHADE WIDTH="94%" color="#ee9b73">
- <TABLE border=0 width="90%" align=center>
- <%
- set conn = server.CreateObject("adodb.connection")
- conn.Open application("dsn")
- sql = "select id,title,type_id from bookwarelist where parent = '书库'"
- set rs = server.CreateObject("adodb.recordset")
- rs.Open sql,conn
- while not rs.eof
- id = rs("id")
- title = rs("title")
- type_id = rs("type_id")
- %>
- <TR>
- <TD class=tt3 colSpan=3 width="90%"><br><IMG height=10 src="images/ar.gif"
- width=15><B><FONT color=#008000><%=title%></FONT></B></TD></TR>
- <TR>
- <%
- sql1 = "select id,title,type_id from bookwarelist where parent = '" & title & "'"
- set rs1 = server.CreateObject("adodb.recordset")
- rs1.Open sql1,conn
- i_temp = 0
- do while not rs1.eof
- i_temp = i_temp + 1
- id1 = rs1("id")
- title1 = rs1("title")
- type_id1 = rs1("type_id")
- %>
- <TD bgColor=#eaeaea class=tt3 width="23%"><FONT
- color=#008000>-</FONT><A
- href="read_class.asp?title=<%=title1%>&type_id=<%=type_id1%>"><%=title1%></A></TD>
- <%
- rs1.MoveNext
- if i_temp>=4 then
- i_temp = 0
- %>
- </tr><tr>
- <%
- end if
- loop
- rs1.Close
- set rs1 = nothing
- rs.MoveNext
- wend
- %>
- </TABLE>
- <%
- conn.Close
- set conn = nothing
- %>
- </TD>
- <TD VALIGN=bottom WIDTH="8%" BGCOLOR="#e0e0e0" class="tt3"> </TD>
- </TR>
- <TR>
- <TD VALIGN=top WIDTH="8%" BGCOLOR="#e0e0e0" class="tt3"> </TD>
- <TD WIDTH="84%" class="tt3">
- <HR SIZE=1 WIDTH="94%" color="#ee9b73">
- <CENTER>
- <table WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="1" align="center">
- <tr align="middle">
- <td height="10"><img height="1" src="images/dot.gif" width="500"></td></tr>
- <tr align="middle">
- <td>若有任何意见或者建议,请<a href="mailto:zhang95@263.net" style="TEXT-DECORATION: underline">写信给我们</a>
- <br><span style="FONT-FAMILY: verdana">© CopyRight 1999 All Rights Reserved</span>XX科技有限公司</p>
- </td>
- </tr>
- </table>
- </TD>
- <TD VALIGN=top WIDTH="8%" BGCOLOR="#e0e0e0" class="tt3">
- <BR><CENTER>
- <A href="xmain.asp">回首页</A>
- <BR><a href="#" onclick="javascript:show_onclick();">显示菜单</A></CENTER>
- </TD>
- </TR>
- </TABLE>
- <BR>
- </body>
- </html>