Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,078

HOME > ASP > ASP Forum > สอบถามการทำให้ข้อมูลที่สุ่มออกมาแสดงผลสลับกันไปมาตามเวลาที่กำหนดจะต้องปรับปรุง Code อย่างไร ตอนนี้สุ่ม 3 รายการสุดท้ายมาและสลับแสดงที่ละ 1 รายการ แต่ยังไม่สลับอัตโนมัติ


 

สอบถามการทำให้ข้อมูลที่สุ่มออกมาแสดงผลสลับกันไปมาตามเวลาที่กำหนดจะต้องปรับปรุง Code อย่างไร ตอนนี้สุ่ม 3 รายการสุดท้ายมาและสลับแสดงที่ละ 1 รายการ แต่ยังไม่สลับอัตโนมัติ

 



Topic : 122016



โพสกระทู้ ( 7 )
บทความ ( 0 )



สถานะออฟไลน์




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") &" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<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







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-03-19 17:20:06 By : อุษา View : 783 Reply : 2
 

 

No. 1



โพสกระทู้ ( 73,780 )
บทความ ( 833 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

อาจจะลองดูที่ Query ครับ

Code
SELECT TOP 3 ID FROM Topics ORDER BY RND(ID)







แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-03-19 23:10:46 By : mr.win
 


 

No. 2



โพสกระทู้ ( 7 )
บทความ ( 0 )



สถานะออฟไลน์


ก่อนอื่นขอขอบคุณมากๆ นะคะ ลองแล้วแต่เกิด error ดังนี้ ไปไม่ถูกเลยค่ะ
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/project/picnews2.asp, line 56

สงสัยตัวเองสื่อสารไม่ตรงประเด็น คือตอนนี้สุ่มข้อมูลได้แล้ว และข้อมูลแสดงที่ละ 1 Record คือถ้าเข้ามาที่ page ครั้งแรก ก็เป็นข้อมูลนึง และออกไปและมาเข้าใหม่อีกครั้งก็เป็นข้อมูลนึง แต่ที่อยากจะทำให้เป็นแบบว่าพอเข้ามาที่ Page นี้ข้อมูล 3 Record ที่สุ่มมาจะแสดงผลสลับกันไป-มาแบบ Shuffle ข้อมูลละ 1 นาที รบกวนผู้รู้ช่วยแนะนำด้วยนะคะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-03-21 09:47:05 By : อุษา
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามการทำให้ข้อมูลที่สุ่มออกมาแสดงผลสลับกันไปมาตามเวลาที่กำหนดจะต้องปรับปรุง Code อย่างไร ตอนนี้สุ่ม 3 รายการสุดท้ายมาและสลับแสดงที่ละ 1 รายการ แต่ยังไม่สลับอัตโนมัติ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, vps | เช่า vps , รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
for Contact Us : [Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่