直播中
工作時(shí)間
9:00 18:00
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 = "站長(zhǎng)太懶了，今天沒有更新內(nèi)容."
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 = "站長(zhǎng)太懶了，今天沒有更新內(nèi)容."
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
%>
其實(shí)在程序中如果使用一個(gè)嵌套的SQL能夠提高性能，例如這樣
Select * from Quotes where QuoteID = (Select int ( RND * Max(QuoteID) ) from Quotes );
可是問(wèn)題是有些數(shù)據(jù)庫(kù)的隨機(jī)數(shù)函數(shù)是RAND而不是RND，
如果要是你自己用的話，那當(dāng)然可以使用這句話代替我上面介紹的方法，
可別忘了，要是別人的數(shù)據(jù)庫(kù)不支持RAND怎么辦，呵呵。
再說(shuō)了，現(xiàn)在是在講ASP技術(shù)，而不是在講SQL技術(shù)，呵呵。
現(xiàn)在我們將上面的代碼保存到一個(gè)名叫quotes.inc的文件中來(lái)，
下面就舉一個(gè)如何調(diào)用它的例子把：
<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>
其實(shí)你可以再加強(qiáng)點(diǎn)它的功能：
1.可以在子過(guò)程中給返回的字符串帶上格式，這樣顯示會(huì)更加漂亮
2。將這個(gè)代碼做成一個(gè)組件來(lái)調(diào)用
3。使用一個(gè)文本文件來(lái)代替數(shù)據(jù)庫(kù)
4。將SQL放到存儲(chǔ)過(guò)程中去
桂公網(wǎng)安備45010502000253號(hào)
電子營(yíng)業(yè)執(zhí)照
