specialname.asp

庐江二中

<%
sql="select Top " & MaxSpecialList+5 & " * from Special order by SpecialID desc"
rs.Open sql,conn,1,1
if not rs.EOF then
response.write "<table border=0 cellspacing=0 cellpadding=0 width=100% align=center bgcolor="&LeftCColor&" background="""&LeftCImg&""">"
response.write TTitle("left","本站专题")
response.write "<tr><td><table width=100% border=0 cellspacing=0 cellpadding=0>"
while not rs.EOF
dim b3,b4
if rs(2)=request("SpecialName") then
b3="<img src=""images/icon111.gif"" board=0><b>"
b4="</b><img src=""images/icon112.gif"" board=0>"
else
b3=""
b4=""
end if
response.write "<tr><td width=100% height=22 align=center>"&b3&"<a Class=LeftMenu href=""Special.asp?SpecialName="&rs(2)&""">"&rs(2)&"</a>"&b4&"</td></tr>"
rs.MoveNext
wend
response.write "<tr><td valign=middle height=21 align=right><a Class=LeftMore href=""speciallist.asp""><img src=""images/more9.gif"" border=0 alt=""更多专题""></a>&nbsp;</td></tr></table></td></tr>"
response.write InTable("bottoml")
response.write "</table>"
end if
rs.Close
%>