欢迎光临爱时尚女性网
 

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

2013-2-1 编辑:admin 来源:爱时尚女性网 阅读次数:575
  导读:使用asp方便的建立自己网站的每日更新 每日更新是什么东东我想大家也都应该知道把, 其实有点象现在很多新闻网站的更新,下面介绍如何让你的 网站的内容每天自动更新 下面的代码适用于: 1.使用任何ODBC兼容的数据库 2。很方便的插入到你现有的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 牋


爏et oConn = Server.CreateObject("ADODB.Connection")
爋Conn.Open "Database=mydb;DSN=Quotes;UID=sa;PassWord=;"


爏trSQL = "SELECT MaxID=max(QuoteId) from Quotes"
燬et oRS = oConn.Execute(strSQL)
營f oRS.EOF Then
strQuote = "站长太懒了,今天没有更新内容."
strAuthor = "呵呵"
Exit Sub
燛lse
intMaxID = oRS("MaxID")
燛nd If


燫andomize
爄ntRecordID= Int(Rnd * intMaxID) + 1
爏trSQL = "Select * from quotes where QuoteID=" & intRecordID & ";"
燬et oRS = oConn.Execute(strSQL)
營f oRS.EOF Then
strQuote = "站长太懒了,今天没有更新内容."
strAuthor = "呵呵"
Exit Sub
燛lse
oRS.MoveFirst
strQuote = oRS("Quote")
strAuthor = oRS("Author")
燛nd If


爋RS.Close
爋Conn.Close
燬et oRS = Nothing
爏et oConn = Nothing
End Sub
%>


其实在程序中如果使用一个嵌套的SQL能够提高性能,例如这样
Select * from Quotes where QuoteID = (Select int ( RND * Max(QuoteID) ) from Quotes );
可是问题是有些数据库的随机数函数是RAND而不是RND,
如果要是你自己用的话,那当然可以使用这句话代替我上面介绍的方法,
可别忘了,要是别人的数据库不支持RAND怎么办,呵呵。
再说了,现在是在讲ASP技术,而不是在讲SQL技术,呵呵。
现在我们将上面的代码保存到一个名叫quotes.inc的文件中来,
下面就举一个如何调用它的例子把:


例子






<%
燚im strQuote
燚im strAuthor
燝etQuote(strQuote, strAuthor)
%>





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







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

文章出自:爱时尚女性网www.aspjc.com,尊重版权是美德,转载请保留原地址,感谢合作!

 
 
链接交换请联系:QQ:790646582 首页链接要求百度快照在一周以内,不符合以上要求的各站,我们将定期把友情连接转入内页,谢谢合作。
Copyright @ 2012-2015 爱时尚女性网 保留所有权利吉ICP备14005127号-1 服务QQ:175529508 e-mail:zk8312@163.com
本站部分资源来自网友上传,如果无意之中侵犯了您的版权,请联系本站,本站将在3个工作日内删除。