教育系统应用

开发平台：
Delphi

readmainold.asp：源码内容
							<%@ 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">&nbsp;
<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%>"><%=title1%></A></TD>
<%
				rs1.MoveNext
				if i_temp>=3 then
					exit do
				end if
		loop
		rs1.Close
		set rs1 = nothing
%>      
          <TD bgColor=#eaeaea class=tt3 width="22%"><FONT 
            color=#008000>-</FONT><A 
        href="read_class.asp?title=<%=title%>">更多&gt;&gt;&gt;&gt;</A></TD></TR>
<%
	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">&copy; CopyRight 1999 All Rights Reserved</span>科技有限公司</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>

						