<%
dim conn,rs
dim i
Set conn = Server.CreateObject("ADODB.Connection")
conn.connectiontimeout=30
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../database/changgang.mdb")
set rs=server.createobject("ADODB.Recordset")
rs.ActiveConnection =Conn
rs.CursorType =adOpenForwardOnly
sql="select * from talk where kind='新闻' or kind='公告' order by publishdate desc"
rs.open sql
%>
客户留言 
