09/10/2018, 17:38
ASP - lấy ngẫu nhiên dữ liệu
Làm sao có thể lấy ngẫu nhiên 1 record ra từ database khi trang web được load hoặc là theo ngày ?
để quảng mặt hàng đang có đó mà
để quảng mặt hàng đang có đó mà
Bài liên quan
<%
Dim sqlText
Dim rdRS
Dim strRnd
sqlText = "SELECT * FROM QuangCao"
Set rdRS = Server.CreateObject("ADODB.Recordset")
rdRS.Open sqlText, Conn, adOpenKeyset, adCmdText
If rdRS.EOF Then
Response.Write "<br>Không có gì c***7843;"
ELSE
Randomize Timer
strRnd = (Int(RND*rdRS.RecordCount))
rdRS.Move strRnd
Rồi hiển thị nội dung ở dưới đây
<!--#Include file="adovbs.inc"-->
<%
Dim sqlText
Dim rdRS
Dim strRnd
sqlText = "SELECT * FROM QuangCao"
Set rdRS = Server.CreateObject("ADODB.Recordset")
rdRS.Open sqlText, Conn, adOpenKeyset, adCmdText
If rdRS.EOF Then
Response.Write "<br>Không có gì c***7843;"
ELSE
Randomize Timer
strRnd = (Int(RND*rdRS.RecordCount))
rdRS.Move strRnd
rdRS.Open sqlText, Conn, adOpenKeyset, adLockOptimistic, adCmdText
ngoài ra, nếu như bạn có quá nhiều dữ liệu thì nên dùng 2 truy vấn sau thì hay hơn
SELECT COUNT(*) AS num FROM QC
sau khi co' nam roi thi sinh ra mot cai so ngau nhien nao do
Do
numRnd = RND*rs("num")
Loop Until numRnd <> 0
roi thi hanh tiep cau truy van sau lay du lieu
"SELECT TOP 1 FROM (SELECT TOP " & numRnd & " * FROM QC ORDER BY id) ORDER BY id DESC"
tất nhiên, bạn nên mở = statement sau cho đỡ láng phí tài nguyên
rdRS.Open sqlText, Conn, adOpenForwardOnly, adLockReadOnly, adCmdText