<%
feiyudbq="content/zly000.asp" '若你改了数据库文件名，请更改此处连接，注意应为相对路径，若不懂相对路径的，请按照原格式修改
connstr="DBQ="+server.mappath(""&feiyudbq&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'set conn=server.createobject("adodb.connection")
'conn.open "shunwangweb1","shun","jnrbwxc7702"
sql="select * from guestbook where shenhe=1 order by time DESC"
set rs=conn.execute(sql)
'set conn=nothing
%>
2007中国曲阜孔子文化节开幕式、晚会直播
<%
if not rs.eof then
do while not rs.eof
title=rs.fields(1)
time1=rs.fields(7)
'response.write "