教育系统应用

开发平台：

Delphi

levellistold.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">
<script language="javascript">
	function diva_show(div_id)
	{
		if (document.all.item("a"+div_id).style.display == "block")
		{
			document.all.item("a"+div_id).style.display = "none";
			document.all.item("i"+div_id).src="images/icon_book_close.gif";
			document.all.item("f"+div_id).src="images/plus1.gif";
		}
		else
		{
			document.all.item("a"+div_id).style.display = "block";
			document.all.item("i"+div_id).src="images/icon_book_open.gif";
			document.all.item("f"+div_id).src="images/minus.gif";
		} 
	}
</script>
</head>
<body topmargin="0" background="images/zapsmbknd.gif">
<div id="sdf" name="sdf"></div>
<img SRC="images/win16.gif" WIDTH="16" HEIGHT="16">&nbsp;<font style="font-family:隶书,Arial;font-size:20px;font-weight:bold">书库</font><br>
<%
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	
	sql = "select code,name from oldtype"
	
	set rs = server.CreateObject("adodb.recordset")
	rs.Open sql,conn
	set rs1 = server.CreateObject("adodb.recordset")
	while not rs.EOF
%>
<a name="aa<%=rs("code")%>"></a>
<a href="#aa<%=rs("code")%>" onclick="diva_show('<%=rs("code")%>');"><img name="f<%=rs("code")%>" SRC="images/plus1.gif" border="0" WIDTH="16" HEIGHT="18"><img name="i<%=rs("code")%>" SRC="images/icon_book_close.gif" border="0"><%=rs("name")%></a><br>	
<div id="a<%=rs("code")%>" style="display:none">
<%
		oldtypekey = trim(rs("code"))
		if len(oldtypekey)=0 then
			oldtypekey = "$$$$$$$$$$$$"
		end if
		
		sql1 = "select b.Code,b.Name from exchange a, type b where a.oldtype like '" & oldtypekey & "%' and a.code = b.code"
		rs1.Open sql1,conn
		
		while not rs1.EOF
%>
<img SRC="images/line.gif" WIDTH="16" HEIGHT="18"><a href="booklist.asp?b_type=<%=rs1("Code")%>" target="booklist"><img SRC="images/minus.gif" border="0" WIDTH="16" HEIGHT="18"><img SRC="images/icon_doc.gif" border="0"><%=rs1("Name")%></a><br>	
<%
			rs1.MoveNext	
		wend
		rs1.Close
%>
</div>
<%		
		rs.MoveNext
	wend
	rs.Close
	set rs =nothing
	set rs1 = nothing
	conn.Close
	set conn =nothing
%>
</body>
</html>

						