setup.asp

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

<!--#include file="Connections.asp" -->
<!--#include file="check.asp" -->
<%
Response.Expires=0

Function rp(s)
s=Replace(s,"'","’")
s=Replace(s,"<","&lt;")
s=Replace(s,">","&gt;")
s=Replace(s,"%","％")
s=Replace(s,"&","＆")
rp=s
End Function

menu_1=rp(Request("menu_1"))
menu_2=rp(Request("menu_2"))
menu_3=rp(Request("menu_3"))
menu_4=rp(Request("menu_4"))
menu_5=rp(Request("menu_5"))
menu_6=rp(Request("menu_6"))
menu_7=rp(Request("menu_7"))
menu_8=rp(Request("menu_8"))
menu_1_url=rp(Request("menu_1_url"))
menu_2_url=rp(Request("menu_2_url"))
menu_3_url=rp(Request("menu_3_url"))
menu_4_url=rp(Request("menu_4_url"))
menu_5_url=rp(Request("menu_5_url"))
menu_6_url=rp(Request("menu_6_url"))
menu_7_url=rp(Request("menu_7_url"))

set setup = Server.CreateObject("ADODB.Recordset")
setup.ActiveConnection = datalink
setup.Source = "SELECT * FROM menu"
setup.CursorType = 1
setup.CursorLocation = 2
setup.LockType = 3
setup.Open()
If menu_1<>"" Then setup("menu1")=menu_1
If menu_2<>"" Then setup("menu2")=menu_2
If menu_3<>"" Then setup("menu3")=menu_3
If menu_4<>"" Then setup("menu4")=menu_4
If menu_5<>"" Then setup("menu5")=menu_5
If menu_6<>"" Then setup("menu6")=menu_6
If menu_7<>"" Then setup("menu7")=menu_7
If menu_8<>"" Then setup("menu8")=menu_8
setup.MoveNext()
If menu_1_url<>"" Then setup("menu1")=menu_1_url
If menu_2_url<>"" Then setup("menu2")=menu_2_url
If menu_3_url<>"" Then setup("menu3")=menu_3_url
If menu_4_url<>"" Then setup("menu4")=menu_4_url
If menu_5_url<>"" Then setup("menu5")=menu_5_url
If menu_6_url<>"" Then setup("menu6")=menu_6_url
If menu_7_url<>"" Then setup("menu7")=menu_7_url
setup.update
setup.close()
Response.Write("&setup=complete")
%>