| 今天晴，偏北风3-4级，今天白天最高温度：10—11℃，最低温度：-1℃。 |
|
| |
|
|
|
|
|
 |
|
<%
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%><%
%>
|
|
|
 |
 |
更多产品... |
|
|
