教育系统应用

开发平台：
Delphi

read_classold.asp：源码内容
							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<%
	parent_title = Request.QueryString("title")
%>
<% 
dim i_temp
dim conn
set conn = server.CreateObject("adodb.connection")
conn.Open application("dsn")
sub recursion(m_title)
	dim rs
	sql = "select id,title,type_id from bookwarelist where parent = '" & m_title & "'"
	
	set rs = server.CreateObject("adodb.recordset")
	rs.Open sql,conn
	while not rs.eof
		id0 = rs("id")
		title0 = rs("title")
		type_id0 = rs("type_id")
		if type_id0 <> 0 then
			i_temp = i_temp + 1
			if i_temp = 3 then
				Response.Write "</tr><tr>"
				i_temp = 0
			end if
%>
			<TD class=tt3 width="30%"><br><IMG height=10 src="images/ar.gif" 
				width=15><a href="booklist.asp?b_type=<%=type_id0%>"><b><%=title0%></b></a></TD>
<%
		end if
		call recursion(title0)
		rs.movenext
	wend
	rs.close
	set rs = nothing
end sub 
%> 
<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 {color: blue;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="readmain.asp">上一级</A><br>
<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><%=parent_title%></FONT></FONT></FONT></B>
</td></tr>
</table>
<HR SIZE=1 NOSHADE WIDTH="94%" color="#ee9b73">
<TABLE border=0 width="90%" align=center>
<tr>
<%
i_temp = -1
sql1 = "select id,title,type_id from bookwarelist where parent = '" & parent_title & "'"
	
set rs1 = server.CreateObject("adodb.recordset")
rs1.Open sql1,conn
while not rs1.eof
	id = rs1("id")
	title = rs1("title")
	type_id = rs1("type_id")	
	
	if type_id <> 0 then
	
		i_temp = i_temp + 1
		if i_temp = 3 then
			Response.Write "</tr><tr>"
			i_temp = 0
		end if
%>
          <TD class=tt3 width="30%"><br><IMG height=10 src="images/ar.gif" 
            width=15><a href="booklist.asp?b_type=<%=type_id%>"><b><%=title%></b></a></TD>
<%
	end if
	call recursion(title)
	rs1.MoveNext
wend
%>            
</TR>
</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="readmain.asp">上一级</A><br>
<A href="xmain.asp">回首页</A>
<BR><a href="#" onclick="javascript:show_onclick();">显示菜单</A></CENTER>
</TD>
</TR>
</TABLE>
<BR>
</body>
</html>

						