实例技巧：ASP方便实现网站的每日更新-ASP-学习资源,学习图书,电子图书-教学资源-e时空

当前位置：主页 - 电脑 - 网站开发 - ASP

实例技巧：ASP方便实现网站的每日更新

来源：设计前沿收集作者：未知更新时间：2009-03-01

【收藏此页】【字号大中小】【打印】【关闭】

　　使用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的文件中来，下面就举一个如何调用它的例子把：

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

1.可以在子过程中给返回的字符串带上格式，这样显示会更加漂亮
2。将这个代码做成一个组件来调用
3。使用一个文本文件来代替数据库
4。将SQL放到存储过程中去

其它资源

本类热门

热门排行

来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考，本站不主张将其做为决策的依据，浏览者可自愿选择采信与否，本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络，其版权为原权利人所有。由于来源之故，有的文章未能获得作者姓名，署“未知”或“佚名”。对于这些文章，有知悉作者姓名的请告知本站，以便及时署名。如果作者要求删除，我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创，本站拥有所有权利。
4、如对本站发布的信息有异议，请联系我们，经本站确认后，将在三个工作日内做出修改或删除处理。
请参阅权责声明！