使用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，
如果要是你自己用的话，那当然

[1] [2] 下一页

在google里搜索更多怎样才能方便的建立自己的每日更新

	Web www.51ec.org

上一篇信息学院： 有关ASP的一些常见问题（四）

下一篇信息学院： 完整的访问统计程序（二  程序篇）