สอบถามการทำให้ข้อมูลที่สุ่มออกมาแสดงผลสลับกันไปมาตามเวลาที่กำหนดจะต้องปรับปรุง Code อย่างไร ตอนนี้สุ่ม 3 รายการสุดท้ายมาและสลับแสดงที่ละ 1 รายการ แต่ยังไม่สลับอัตโนมัติ
Code (ASP) <%
Dim conn
Dim sql
Dim Color
Dim i
Dim conn2
Dim rs
Dim TotalTopics
Dim strTemp
Dim iCount
Dim RandomNo
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("/project/Picnews/news.mdb")
sql="Select Top 3 * From Topics ORDER by ID DESC" 'เลือกเฉพาะ ข้อมูล 3 รายการล่าสุด
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open Sql, conn, 3, 3
TotalTopics=rs.RecordCount
With Response
.Write "<html>"
.Write "<head><title>ภาพข่าว</title>"
.Write "<meta http-equiv='content-type' content='text/html;charset=windows-874'>"
.Write "<link rel=stylesheet type=text/css href='content.css'>"
.Write "</head><body><br>"
.Write "<table align=center width=359 cellspacing=0 cellpadding=0><tr>"
.Write "<td></td></tr><tr><td bgcolor=#996699>"
.Write "<table align=center border=0 width='100%' cellpadding=1 cellspacing=1>"
.Write "<tr><td bgcolor=white>"
.Write "<table border=0 width='100%'>"
End With
' ********* random ข้อมูลมาแสดง 1 รายการ
strTemp=","
iCount=1
Do While iCount<2
Randomize
RandomNo=Int((TotalTopics)*Rnd())
If Instr(1,strTemp, "," & RandomNo & ",")=0 Then
strTemp=strTemp & RandomNo & ","
iCount=iCount+1
rs.MoveFirst
rs.Move RandomNo
With Response
.Write "<tr><td align=center background='PicNews/frame1.gif' width=349 height=279><img src='PicNews/" & rs("Pic") &"' width=320 height=240></td>"
.Write "</tr>"
.Write"<tr>"
.Write "<td bgcolor=#E0FEC5 align=left><font face=Verdana;2pt; color=#FF9900>" & rs("Data") &" <a href=PicNews/"& rs("Detail") & " class=topics>ประมวลภาพ...</a> <p> <a href='./PicNews/view.asp'><img src='PicNews/allnews.gif' width=92 height=15 border=0 align=right></a></p></td>"
.Write "</tr>"
End With
End If
Loop
With Response
.Write "</table>"
.Write "</td></tr></table>"
.Write "</td></tr></table>"
.Write "</body></html>"
End With
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
Tag ASP, Ms Access, VBScript
Date :
2016-03-19 17:20:06By :
อุษาView :
2298Reply :
2
ก่อนอื่นขอขอบคุณมากๆ นะคะ ลองแล้วแต่เกิด error ดังนี้ ไปไม่ถูกเลยค่ะ
Date :
2016-03-21 09:47:05By :
อุษา
Server 02
Load balance : Server 02
