<%dim conn
dim connstr
dim db
dim title
title="::易元和个人工作室::"
db="mdb/#oplan_pic.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%
<%set oRs=server.CreateObject("ADODB.recordset")
sSql = "SELECT * FROM NewsData where classid=2 ORDER BY ck DESC"
oRs.Open sSql,Conn,0, 1
If Not oRs.Eof Then
Do While Not oRs.Eof
%>
<tr bgcolor="#FFFFFF">
<td width="273"><font color="#FF9900">•</font> <a href=show.asp?id=<%=oRs("d_id")%>><%=oRs("d_title")%></a> </td>
<td width="100"><font color="#999999"><%=oRs("editer")%></font></td>
</tr>
<% oRs.MoveNext
Loop
Else
Response.Write "现在数据库中还没有新闻!"
End If
oRs.Close
%>