 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
新 闻 阅 读 作者：米仙圣人 功能：根据数据库中的内容自动更新新闻， 方式：从数据库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程序使用。在本例中，总共有是显示两列。 返回类别: 教程 上一教程: XMLHTTP+Javascript+Asp写得聊天室，无刷新实现（四） 下一教程: 用密码保护页面 (III) 您可以阅读与"新闻更新系统(1)"相关的教程: · 用asp.net和xml做的新闻更新系统(2) · 用asp.net和xml做的新闻更新系统(1) · 新闻更新系统(3) · 新闻更新系统(2) · 关于生成HTML文件的新闻系统 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
