- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
- 11XP系统怎么清除缓存？
- 12Intel Z390主板有望10月8日公布：8核9代酷睿随后登场
[摘要]使用ASP方便的建立自己网站的每日更新 每日更新是什么东东我想大家也都应该知道把， 其实有点象现在很多新闻网站的更新，下面介绍如何让你的 网站的内容每天自动更新 下面的代码适用于： 1.使用任何OD...
使用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放到存储过程中去
推荐资讯 总人气榜
最新教程 本月人气
- 1花椒直播直播间聊天怎么进入 花椒直播进入聊天室方法
- 2花椒直播怎么移除黑名单 花椒直播移除黑名单方法
- 3怎么使用微信语音聊天 微信语音聊天打开图文说明教程
- 4美颜相机怎么打马赛克 美颜相机打马赛克图文说明教程
- 5微信账号被封怎么办 微信账号解封方法
- 6微信语音怎么删除 微信语音删除图文说明教程
- 7人人分期审核要多久 人人分期审核多久时间
- 8淘宝直播在什么地方里看 淘宝直播秀入口在什么地方里
- 9美颜相机怎么视频自拍 美颜相机视频自拍的方法
- 10淘宝直播怎么申请 淘宝直播怎么弄 淘宝直播怎么开
- 11淘宝直播怎么赚钱 手机淘宝直播间赚钱攻略
- 12美颜相机怎么用 美颜相机使用图文说明教程
- 1猎豹浏览器抢票不受12306新版验证码影响
- 2ios9不越狱怎么恢复短信与照片 ios9不越狱恢复短信与照片图文说明教程
- 310天学会php之首天
- 4抱抱app怎么玩 抱抱app使用图文说明教程图
- 5360手机助手红包怎么提现 360手机助手红包提现设置流程
- 6160wifi远程桌面怎么连接 160wifi远程桌面连接设置方法
- 7微信PC版1.0.7.33官方下载公布 修好bug优化软件
- 8手机登12306验证码总是出错处理方法介绍
- 9Linux内核4.2优化了哪一些地方？
- 10linux系统使用命令维护RHCS的方法
- 113天学好ADO之首天
- 12小米note公布会视频完整版 2015小米note公布会视频直播
