|
<% Set news_conn1 = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("system_jdq/hydro_zw_2003.mdb")
news_conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rstmp1=news_conn1.execute("SELECT top 10 ID,title,ctype,datetime FROM news WHERE ctype='新闻' order by ID desc ")
set rstmp=news_conn1.execute("SELECT top 10 ID,title,ctype,datetime FROM news WHERE ctype='工作动态' order by ID desc ")
%>
|