新闻更新系统(1)

学好外语能够获得更多的国外先进编程技术 [enadd 2006年12月25日]

	您现在的位置：编程笔记网 >> Web开发 >> 网络编程 >> ASP编程 >> 文章正文

新闻更新系统(1)

热荐

【字体：小大】

新闻更新系统(1)

作者：- 文章来源：- 点击数：更新时间：2006-8-25

作者：米仙圣人　　
  功能：根据数据库中的内容自动更新新闻，
  方法：从数据库News中自动读去新闻内容，数据库名称News.mdb

  
  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程序使用。在本例中，总共有是显示两列。

[1]

文章录入：enadd 责任编辑：enadd

上一篇文章：新闻更新系统(2)

下一篇文章：在SQL Server中保存和输出图片

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				ASP动态网页开发中的WEB打印… 如何动态创建网页的RSS内容摘… ASP网站漏洞及入侵防范方法 ASP下实现多条件模糊查询SQL… 错误 8002801d 库没有注册一次用ASP页面漏洞引发的渗透… ASP技巧：FSO中的SubFolders… ASP中自定义文件下载 IIS技巧：网站服务器的搭建与… 用ASP+DLL实现WEB方式修改服…

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|


	Copyright ©2000 - 2005 Enadd.com 备案序号:辽ICP备06005595号 QQ:1656107 站长：enadd