📄 readmain.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">
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -