menu.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!--#include file="Connections.asp" -->
<%
Response.Expires=0
set menu = Server.CreateObject("ADODB.Recordset")
menu.ActiveConnection = datalink
menu.Source = "SELECT * FROM menu"
menu.Open()
If Not menu.Eof Then
Response.Write("&menu_1=")&menu("menu1")
Response.Write("&menu_2=")&menu("menu2")
Response.Write("&menu_3=")&menu("menu3")
Response.Write("&menu_4=")&menu("menu4")
Response.Write("&menu_5=")&menu("menu5")
Response.Write("&menu_6=")&menu("menu6")
Response.Write("&menu_7=")&menu("menu7")
menu.MoveNext()
Response.Write("&menu_1_url=")&menu("menu1")
Response.Write("&menu_2_url=")&menu("menu2")
Response.Write("&menu_3_url=")&menu("menu3")
Response.Write("&menu_4_url=")&menu("menu4")
Response.Write("&menu_5_url=")&menu("menu5")
Response.Write("&menu_6_url=")&menu("menu6")
Response.Write("&menu_7_url=")&menu("menu7")
menu.close()
End If
%>