navigate.asp

庐江二中

<!--#include file="conn.asp" -->
<!--#include file="const.asp"-->
<%
if ShowNavigate=1 then
%>
<!--#include file="function.asp" -->
<%
dim javastr
javastr=""
javastr=javastr+"<table width=98% border=0 align=center cellspacing=0 cellpadding=0 bgcolor="""&CenterBColor&""">"
javastr=javastr+TTitle("center_1","网站导航")
javastr=javastr+"<tr>"
javastr=javastr+"<td bgcolor="""&CenterCColor&""" background="""&CenterCImg&""" align=center valign=top>"
javastr=javastr+"<table width=98% border=0 align=center cellspacing=5 cellpadding=0 style=""TABLE-LAYOUT: fixed"">"
i=1
sql="select BigClassName,BigClassType from BigClass order by BigClassID"
rs.open sql,conn,1,1
set rs1=server.createobject("adodb.recordset")
while not rs.EOF
if i mod 2=1 then javastr=javastr+"<tr width=50% >"
javastr=javastr+"<td valign=top>【<b><a Class=LeftMenu href=""BigClass.asp?BigClassName="&rs(0)&"&BigClassType="&rs(1)&""">"&rs(0)&"</b>】<br>"

sql="select SmallClassName,SmallClassType from SmallClass where BigClassName='"&rs(0)&"' order by SmallClassID"
rs1.open sql,conn,1,1
while not rs1.EOF
javastr=javastr+"<a Class=LeftMenu href=""SmallClass.asp?BigClassName="&rs(0)&"&SmallClassName="&rs1(0)&"&SmallClassType="&rs1(0)&""">"&rs1(0)&"</a>&nbsp;"
rs1.MoveNext
wend
rs1.close

javastr=javastr+"</td>"
if i mod 2=0 then javastr=javastr+"</tr>"
i=i+1
rs.MoveNext
wend
rs.Close
set rs1=nothing

javastr=javastr+"</table></td></tr>"
javastr=javastr+InTable("middle1")
javastr=javastr+"</table>"
javastr=javastr+space(THeight)
response.write ("document.write('"&javastr&"')")
response.end

end if
set rs=nothing
conn.close
set conn=nothing
%>