新闻更新系统(1)-ASP教程,ASP应用

作者：米仙圣人　　
  功能：根据数据库中的内容自动更新新闻，
  方法：从数据库news中自动读去新闻内容，数据库名称news.mdb
  
  <!–#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程序使用。在本例中，总共有是显示两列。