smallclassname.asp

庐江二中

<%
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=100% align=center bgcolor="&LeftBColor&">"
Response.Write TTitle("left","相关小类")
Response.Write "<tr>"&_
"<td width=100% bgcolor="&LeftCColor&" background="""&LeftCImg&""">"&_
"<table width=100% border=0 cellspacing=0 cellpadding=0>"

for i=1 to SmallClassCount
Response.Write "<tr><td align=center height=20>"
dim b1,b2
if ArraySmallClassName(i)=request("SmallClassName") then
b1="<img src=""images/icon111.gif"" board=0><b>"
b2="</b><img src=""images/icon112.gif"" board=0>"
else
b1=""
b2=""
end if
Response.Write b1&"<a Class=LeftMenu href='SmallClass.asp?BigClassName="& request_BigClassName & "&BigClassType="& request_BigClassType & "&SmallClassName="& ArraySmallClassName(i) &"&SmallClassType="& ArraySmallClassType(i) &"'>" &ArraySmallClassName(i) &"</a>"&b2
Response.Write "</td></tr>"
next
Response.Write "</table></td></tr>"
Response.Write InTable("bottoml")
Response.Write "</table>"
%>