<%
dim zbtime,zbcomment
dim cn,forum1,sql,succ
'on error resume next
'zbtime=now '//zbtime为当前系统时间
'// zbtime=request("zbtime") '//直播时间
zbcomment=request("zbcomment") '//直播内容
'//连接数据库
set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("zb.mdb")
set forum1=server.createobject("adodb.recordset")
sql="select * from forum1 "
'sql="select * from forum1 order by zbtime desc"
forum1.open sql,cn,3,2
%>
华东理工大学2012中国行动学习国际论坛_中国MBA教育网
<% do while not forum1.eof %>
<%=forum1("zbcomment")%>
<% forum1.movenext %>
<% loop %>