| 首 页
<% sqlt="select * from bigclass where xianshi='ok' order by xuehao asc"
set rst=server.createobject("ADODB.Recordset")
rst.open sqlt,conn,1,1
do while not rst.eof
%>
|
 |
<% if rst("wblj")=true then %>
" >
<% elseif rst("ClassType")="rencai.asp" or rst("ClassType")="guestbook.asp" then %>
">
<%elseif rst("ClassType")="about.asp" then%>
<% sqla="select * from about where abouttype=1"
set rsa=server.createobject("ADODB.Recordset")
rsa.open sqla,conn,1,1
if not rsa.eof then
aboutid=rsa("ID")
end if
rsa.Close
set rsa=nothing
%>
?type=<%=aboutid%>">
<%else%>
?type=<%=rst("BigClassID")%>">
<% end if %><%=rst("BigClassName")%> |
<%
rst.movenext
loop
rst.Close
set rst=nothing
%>