|
<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
Dim strCon
strCon = "DBQ=" & Server.MapPath("nongye_news\db01.mdb") & ";DefaultDir=" & Server.MapPath("nongye_news\") & ";DRIVER={Microsoft Access Driver (*.mdb)}"
'strCon = "DBQ=" & Server.MapPath("C:\Documents and Settings\Administrator\My Documents\扬力新闻发布系统\db001.mdb") & ";DefaultDir=" & Server.MapPath("C:\Documents and Settings\Administrator\My Documents\扬力新闻发布系统\") & ";DRIVER={Microsoft Access Driver (*.mdb)}"
cn.Open strCon%>
<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Dim strSQL
strSQL = "SELECT * FROM T_NEWS ORDER BY 日期 desc"
rs.Open strSQL, cn, 3, 2%>
<%
%>
|
|
|
|
|