 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
使用ASP方便的建立自己网站的每日更新 每日更新是什么东东我想大家也都应该知道把， 其实有点象现在很多新闻网站的更新，下面介绍如何让你的 网站的内容天天自动更新 下面的代码适用于： 1.使用任何ODBC兼容的数据库 2。很方便的插入到你现有的ASP程序中 如何保存更新内容呢？ 数据库结构：（一共三个字段） QuoteID（Long ），Quote（String ），Author（String） 下面一个技巧是如何让更新显示在任意一个页面上呢？ 我们只要把更新内容和作者当返回值送给调用的页面即可。 代码如下，其中logic是一个随机数，表示随机从数据库中显示哪个记录： <% Sub GetQuote(byVal strQuote, byval strAuthor) Dim intMaxID Dim intRecordID dim strSQL Dim oConn Dim oRS set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Database=mydb;DSN=Quotes;UID=sa;Password=;" strSQL = "SELECT MaxID=max(QuoteId) from Quotes" Set oRS = oConn.Execute(strSQL) If oRS.EOF Then strQuote = "站长太懒了，今天没有更新内容." strAuthor = "呵呵" Exit Sub Else intMaxID = oRS("MaxID") End If Randomize intRecordID= Int(Rnd * intMaxID) + 1 strSQL = "Select * from quotes where QuoteID=" & intRecordID & ";" Set oRS = oConn.Execute(strSQL) If oRS.EOF Then strQuote = "站长太懒了，今天没有更新内容." strAuthor = "呵呵" Exit Sub Else oRS.MoveFirst strQuote = oRS("Quote") strAuthor = oRS("Author") End If oRS.Close oConn.Close Set oRS = Nothing set oConn = Nothing End Sub %> 其实在程序中假如使用一个嵌套的SQL能够提高性能，例如这样 Select * from Quotes where QuoteID = (Select int ( RND * Max(QuoteID) ) from Quotes ); 可是问题是有些数据库的随机数函数是RAND而不是RND， 假如要是你自己用的话，那当然可以使用这句话代替我上面介绍的方式， 可别忘了，要是别人的数据库不支持RAND怎么办，呵呵。 再说了，现在是在讲ASP技术，而不是在讲SQL技术，呵呵。 现在我们将上面的代码保存到一个名叫quotes.inc的文件中来， 下面就举一个如何调用它的例子把： <HTML> <HEAD> <TITLE>例子</TITLE> <!--#include virtual = "quotes.inc" --> </HEAD> <BODY> <BR><BR> <% Dim strQuote Dim strAuthor GetQuote(strQuote, strAuthor) %> <TABLE BORDER=0 CELLPADDING=6 CELLSPACING=5 BGCOLOR="#000000" WIDTH=500> <TR BGCOLOR="#CCCCCC"> <TD ALIGN=CENTER> <B>"<% =strQuote %>" <BR>--<I><% =strAuthor %></I></B> </TD> </TR> </TABLE> <BR><BR> </BODY> </HTML> 其实你可以再加强点它的功能： 1.可以在子过程中给返回的字符串带上格式，这样显示会更加美丽 2。将这个代码做成一个组件来调用 3。使用一个文本文件来代替数据库 4。将SQL放到存储过程中去 返回类别: 教程 上一教程: 在ASP中利用COM组件开发WEB应用程序 下一教程: 让ASP也可以连接MYSQL 您可以阅读与"怎样才能方便的建立自己的每日更新"相关的教程: · 使用ASP方便的建立自己网站的每日更新 · 用TDC建立自己的数据库格式 · 建立自己的WEB平台 · 怎样写你自己的EMAIL组件（原理） · 怎样做自己的二级域名(之三) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
