首页 >> 读书频道 >> 电脑 >> 使用ASP方便的建立自己网站的每日更新
 
· 趣味访客计数器设计两则
· 在一个ASP页面停留的多
· 用ASP创建日志文件(附
· 一些源程序 - 获得文件
· 用ASP制作个性化的调查
· 一 些 ASP 小 源
· 一个投票系统的源程序
· 深入研究“用ASP上载文
· 深入研究“用ASP上载文
· 广告播放和跟踪系统的制作
· 制作一个个人搜索引擎(源
· 用ASP开发一个在线考试
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:ASP实例 2006-9-10

 

使用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的文件中来,
下面就举一个如何调用它的例子把:
                        <HTML>
                        <HEAD>
                        <TITLE>例子</TITLE>
                        <!--#include virtual = "quotes.inc" -->
                        </HEAD>
                        <BODY>
                        <BR><BR>
                        <%
                           Dim strQuote
                           Dim strAuthor
                           GetQuote(strQuote, strAuthor)
                        %>
                        <TABLE BORDER=0 CELLPADDING=6 CELLSPACING=5 BGCOLOR="#000000" WIDTH=500>
                        <TR BGCOLOR="#CCCCCC">
                           <TD ALIGN=CENTER>
                              <B>"<% =strQuote %>" <BR>--<I><% =strAuthor %></I></B>
                           </TD>
                        </TR>
                        </TABLE>
                        <BR><BR>
                        </BODY>
                        </HTML>
其实你可以再加强点它的功能:
1.可以在子过程中给返回的字符串带上格式,这样显示会更加漂亮
2。将这个代码做成一个组件来调用
3。使用一个文本文件来代替数据库
4。将SQL放到存储过程中去

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

[ 1 ]
使用ASP方便的建立自己网站的每日更新 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑