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

                              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的文件中来，

下面就举一个如何调用它的例子把：





                        例子









                        <%

                           Dim strQuote

                           Dim strAuthor

                           GetQuote(strQuote, strAuthor)

                        %>

"<% =strQuote %>"
--<% =strAuthor %>

其实你可以再加强点它的功能：

1.可以在子过程中给返回的字符串带上格式，这样显示会更加漂亮

2。将这个代码做成一个来调用

3。使用一个文本文件来代替

4。将SQL放到中去