<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <% ' 彭彭制作的一個新聞類 敬請笑納 【站長中國】 http://www.zzcn.net QQ：76526211 class NewsClass Private zzcn,conn,cnnstr private title_p,id_p '對象初始化 Private Sub Class_Initialize() 'response.write "初始化<br>" call newsconnstart() End Sub
'析構函數，在使用 set nothing 釋放對象時，自動執行 Private Sub Class_Terminate()
'response.Write "釋放對象 事件：Class_Terminate<br>" call newsconnend() end sub
'數據庫鏈接函數 Private sub newsconnstart()
Set conn = Server.createObject("ADODB.Connection") cnnstr="DRIVER={Microsoft Access Driver (*.mdb)}; " cnnstr=cnnstr & "DBQ=" & Server.MapPath("admin/WataVase/%29to-dream.mdb") conn.Open cnnstr 'response.write cnnstr & "<br>" End sub
Private sub newsconnend() conn.close set conn = nothing End sub
'========================================= '函數名 getrs（） '獲得 某個欄目 的 一條 記錄集 '欄目名 lanmu '每頁幾條記錄 k '第幾頁 page '第幾條記錄 n '日期 riqi 1 為按日期逆序 0 為升序 '========================================= Public Function getrs(ByVal lanmu,ByVal k,ByVal page,ByVal n,ByVal riqi)
sql = "Select * From ArticleClass where ClassName = '"&lanmu&"' order By ClassID Desc" 'response.write sql&"<br>" set rs=Server.CreateObject("adodb.recordset") rs.open sql, conn, 1, 1
