<%
Function HeadNavigation()
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_Navigation where ViewFlag order by Sequence asc"
rs.Open sql, conn, 1, 1
If rs.bof And rs.EOF Then
response.Write "暂无导航"
Else
Do
response.Write " | "&rs("NavName")&""
rs.movenext
Loop Until rs.EOF
End If
rs.Close
Set rs = Nothing
End Function
%>
|  |
关于天成 |
|
业内资讯 |
|
装修知识 |
|
精品案例 |
|
设计人员 |
|
客户反馈 |
|
联系我们 |
|
|
|
