| ※ 网 址 分 类 |
<% Set feilei=Server.CreateObject("Adodb.Recordset")
Sql= "select top 72 classid,classname from feilei where show=1"
feilei.open Sql,conn,1,1
response.write ""
response.write ""
if feilei.Eof and feilei.Bof then
response.write " | 暂时没有栏目 | "
else
numRows = 0
While (Not feilei.Eof)
response.write "〖"&feilei("classname")&"〗 | "
feilei.MoveNext
numRows = numRows + 1
if (numRows mod 9 =0) Then
numrow2=numrow2+1
response.write ""
end if
Wend
end if
feilei.Close
Set feilei=Nothing
response.write " "
%>
|
|