以前收集的一些資料---使用ASP方便的建立自己網站的每日更新

使用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
                     &nbs