ASP方便實現網站的每日更新

　　使用ASP方便的建立自己網站的每日更新

　　每日更新是什麼東東我想大家也都應該知道把其實有點象現在很多新聞網站的更新下面介紹如何讓你的網站的內容每天自動更新下面的代碼適用於

　　使用任何ODBC兼容的數據庫
很方便的插入到你現有的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 = ServerCreateObject(ADODBConnection)
　　　　oConnOpen Database=mydb;DSN=Quotes;UID=sa;Password=;
　　　　strSQL = SELECT MaxID=max(QuoteId) from Quotes
　　　　Set oRS = oConnExecute(strSQL)
　　　　If oRSEOF Then
　　　　　strQuote = 站長太懶了今天沒有更新內容
　　　　　strAuthor = 呵呵
　　　　　Exit Sub
　　　　Else
　　　　　intMaxID = oRS(MaxID)
　　　　End If
　　　　Randomize
　　　　intRecordID= Int(Rnd * intMaxID) +
　　　　strSQL = Select * from quotes where QuoteID= & intRecordID & ;
　　　　Set oRS = oConnExecute(strSQL)
　　　　If oRSEOF Then
　　　　　strQuote = 站長太懶了今天沒有更新內容
　　　　　strAuthor = 呵呵
　　　　　Exit Sub
　　　　Else
　　　　　oRSMoveFirst
　　　　　strQuote = oRS(Quote)
　　　　　strAuthor = oRS(Author)
　　　　End If
　　　　oRSClose
　　　　oConnClose
　　　　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技術呵呵現在我們將上面的代碼保存到一個名叫quotesinc的文件中來下面就舉一個如何調用它的例子把

　　其實你可以再加強點它的功能

　　可以在子過程中給返回的字符串帶上格式這樣顯示會更加漂亮
將這個代碼做成一個組件來調用
使用一個文本文件來代替數據庫
將SQL放到存儲過程中去

From:http://tw.wingwit.com/Article/program/net/201311/12590.html