<!--#include file="conn.asp"--> 1:以下是conn.asp中的内容,作用是打开数据库。 <% 'on error resume next Dim conn 'Dim Rs Dim DBpath set conn= server.createobject("Adodb.connection") 'Set Rs = Server.createObject("Adodb.RecordSet") DBPath = server.mappath("News.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath 'Conn.ConnectionString="DSN=AddNews;User=;PassWord=" 'Conn.Open "DSN=AddNews" %> 2:根据新闻项目来写SQL语句,同时执行该SQL语句,在本例中总共是8个新闻项。 <% For I = 1 to 8 Step 1 %> <% TypeIDStr = CStr(I) SqlStr = "Select News_ClassID, News_Class, News_Title, "_ & "News_HtmlPath From NewsList Where News_ClassID = '"&TypeIDStr&"' " Set DBRec = conn.Execute(SqlStr) 'Response.Write TypeIDStr %> 3:开始逐句的读去新闻项目,开始显示新闻Title DBRec.MoveFirst While Not DBRec.Eof titStr = DBRec.Fields("News_Title") comStr = "<td width='100%' valign='top' align='left' height='100%' bgcolor='#FFFFCC'>" Response.Write "<tr>" Response.Write ComStr&titStr Response.Write "</tr>" DBRec.MoveNext WEnd 4:本程序说明,现在News库中,存有新闻内容,如果要执行ADDIndex,建议是先清空开数据库。本数据库仅供Index.asp程序使用。在本例中,总共有是显示两列。
(编辑:aniston)
·2024年12月目录 ·2024年11月目录 ·2024年10月目录 ·2024年9月目录 ·2024年8月目录 ·2024年7月目录 ·2024年6月目录 ·2024年5月目录 ·2024年4月目录 ·2024年3月目录 ·2024年2月目录 ·2024年1月目录 ·2023年12月目录 ·2023年11月目录