首先要開啟資料庫，以下是一種方法：

<%DimConn

DimConnStr

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("資料庫地址")

SetConn=Server.CreateObject("ADODB.Connection")

Conn.openConnStr

IfErrThen

Err.Clear

SetConn=Nothing

Response.Write"資料庫連接出錯，請檢查Conn.asp檔案中的資料庫引數設定。"

Response.End

EndIf%>

接下來查詢需要的數年據

<%setrs=server.createobject("ADODB.recordset")

sql="selecttop1*fromname""name為資料庫裡的資料表名稱

rs.opensql,conn,1,1

ifrs.eofandrs.bofthen

response.write"沒有相關新聞！"

else

response.write"<li>"&rs("title")"title為數資料表的欄位名稱

endif

rs.close

setrs=nothing

%>