<%
Set RsNav=server.CreateObject("adodb.recordset")
Sql="select * from dk_nav where dk_nav_display = true order by dk_nav_order asc"
RsNav.Open Sql,Conn,1,1
i=0 : NavNum=RsNav.RecordCount
While Not RsNav.Eof
Nav22=Trim(RsNav("Nav22"))
i=i+1 '设置最后一个栏目无背景
if i>=NavNum then
response.write "- "
else
response.write "
- "
end if
response.write ""&Trim(RsNav("dk_nav_name"))&""
if Int(RsNav("Float"))=1 then
response.write Nav22
end if
response.write "
"
RsNav.MoveNext : Wend
RsNav.Close : Set RsNav=Nothing
%>
|
|