%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then
response.Redirect "install.Asp"
End If
Set fso = Nothing
Call SiteInfo
%>
台山市天成装饰工程有限公司-台山装修-台山装饰工程
<%
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
%>