教育系统应用

开发平台：
Delphi

read_parentclass.asp：源码内容
							<%@ Language=VBScript %>
<!--#include file ="identify.asp"-->
<%
	son_title = Request.QueryString("title")
	if trim(son_title) = "书库" or len(son_title)=0 then
		Response.Redirect "readmain.asp"
	end if
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	
	sql1 = "select a.id,a.title,a.type_id from bookwarelist a,bookwarelist b where b.title = '" & son_title & "' and a.title = b.parent"
	set rs0 = server.CreateObject("adodb.recordset")
	rs0.Open sql1,conn
	if rs0.EOF then
		rs0.Close
		set rs0 = nothing
		Response.Redirect "readmain.asp"
	else
		parent_title = rs0("title")
		parent_type_id = rs0("type_id")
	end if
	rs0.Close
	set rs0 = nothing
	if trim(parent_title) = "书库" or len(parent_title)=0 then
		conn.Close
		set conn = nothing
		Response.Redirect "readmain.asp"
	end if
	
%>
<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>
<script LANGUAGE="javascript">
<!--
function add_bm(bookid)
{
	window.open("add_bookmark.asp?bookid=" + bookid,"_blank","height=430,width=300,status=no,toolbar=no,menubar=no,location=no");
}
function add_comment(bookid)
{
	window.open("add_comment2.asp?bookid=" + bookid,"_blank","height=550,width=550,status=no,toolbar=no,menubar=no,location=no,scrollbars=yes,top=0,left=0");
}
//-->
</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="read_parentclass.asp?title=<%=parent_title%>">上一级</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")	
	
	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="read_class.asp?title=<%=title%>&type_id=<%=type_id%>"><b><%=title%></b></a></TD>
<%
	rs1.MoveNext
wend
rs1.Close
set rs1 = nothing
%>            
</TR>
</TABLE>
<%
' 书名列表
	if len(parent_type_id)>0 and (not (parent_type_id=0)) then
	
		b_type = parent_type_id
%>
<br>
<br>
<TABLE border=0 width="90%" align=center>
<tr>
<td>
<b>类别<font color=red><%=parent_title%></font>的书名列表</b><br><hr>
<%
		if len(b_type)=0 then
			Response.End
		end if
	
		sql = "select bookid,name,Author,times from BookDetail where  type=" & b_type 
		
		set rs = server.CreateObject("adodb.recordset")
		rs.Open sql,conn
	
		while not rs.EOF
%>
<nobr><a href="readbook.asp?bookid=<%=rs("bookid")%>" title="作者：<%=rs("Author")%>" target="xbody"><img SRC="images/plus.gif" border="0" WIDTH="18" HEIGHT="19"><%=rs("name")%>(<%=rs("times")%>)</a> &nbsp;<%=rs("Author")%>  &nbsp;<a href="#" onclick="add_bm(<%=rs("bookid")%>);">加书签</a>  &nbsp;<a href="#" onclick="add_comment(<%=rs("bookid")%>);">写书评</a></nobr><br>
<%
			rs.MoveNext
		wend
%>
</td>
</tr>
</table>
<%
	end if
	
	
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="read_parentclass.asp?title=<%=parent_title%>">上一级</A><br>
<A href="xmain.asp">回首页</A>
<BR><a href="#" onclick="javascript:show_onclick();">显示菜单</A></CENTER>
</TD>
</TR>
</TABLE>
<BR>
</body>
</html>

						