conn.asp

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

<%
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("/music/data/music.asp")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

%>
<%
Set rsr= Server.CreateObject("ADODB.Recordset")
rsr.open "select top 1 * from set_system",conn,1,1
webname=rsr("webname")
weburl=rsr("weburl")
channelname=rsr("channelname")
channelurl=rsr("channelurl")
webtitle=rsr("webtitle")
set_ie=rsr("set_ie")
set_logo=rsr("set_logo")
keywords=rsr("keywords")
Description=rsr("Description")
rsr.close
set rsr=nothing
%>