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

Registered : 109,027

HOME > ASP > ASP Forum > ramdom asp ช่วยหน่อยค่ะ 'Load 5 last products and randomly pick 1 set rsProducts = server.



 

ramdom asp ช่วยหน่อยค่ะ 'Load 5 last products and randomly pick 1 set rsProducts = server.

 



Topic : 014142

Guest




<%
'Load 5 last products and randomly pick 1
set rsProducts = server.createobject("ADODB.recordset")
rsProducts.cursortype = 3

strSQL = "SELECT TOP 5 products.product_ID, product_cat_ID, newPrice, product_name, product_image FROM products INNER JOIN product_description ON products.product_ID = product_description.product_ID WHERE product_lang_ID = " & session("language_ID") & " ORDER BY products.product_ID DESC;"
rsProducts.open strSQL, adoCon

if not rsProducts.eof then
newProducts = 1
strProducts = ""

do while not rsProducts.eof
if len(strProducts) = 0 then
strProducts = rsProducts("product_ID")
else
strProducts = strProducts & ";" & rsProducts("product_ID")
end if
rsProducts.movenext
loop
rsProducts.movefirst

arrProducts = split(strProducts, ";")
if ubound(arrProducts) > 0 then
'more then 1 product --> randomize
randomize()
intNumber = Int(ubound(arrProducts) * rnd())

rsProducts.filter = "product_ID = " & arrProducts(intNumber)
end if
strImage = rsProducts("product_image")
product_ID = rsProducts("product_ID")
product_cat_id = rsProducts("product_cat_id")
product_price = Replace(rsProducts("newPrice"), ".", strServerComma)
product_name = rsProducts("product_name")

if len(strImage) > 0 then
if instr(strImage, ";") > 0 then
strImage = left(strImage, instr(strImage, ";") - 1)
end if
strImage = "products/" & strImage
else
strImage = "no_picture.jpg"
end if
end if

rsProducts.close
set rsProducts = nothing
%>
<h2>
<a href="javascript:switchBox('lastProducts');">

</a>

</h2>
<div id="lastProducts_content" class="<%=getStatus("lastProducts")%>" align="center">
<%
if newProducts = 1 then
response.write "<a href=""?mod=product&amp;product_ID=" & product_ID & "&amp;cat_ID=" & getLink(product_cat_id) & """>" & chr(10) & _
" <img src=""images/" & strImage & """ width=""80"" alt=""" & product_name & """ title=""" & product_name & """ /><br />" & chr(10) & _
" " & product_name & "<br />" & chr(10) & _
"</a>" & chr(10) & _
roundNumber(product_price) & strCurrency
else
response.write "There are no new products"
end if
%>
</div>
</div>
<br />
<% end if %>



นี่คือ code load สินค้า

ซึ่ง ทำการเรียก 5สินค้าล่าสุด แล้ว เลือก ใช้ 1อัน

ถ้าต้องการแก้เป็น ให้สุ่มจากสินค้าทั้งหมด แล้วเลือกใช้ 8 อัน

ต้องแก้ยีงไงค่ะ

ขอบคุณค่ะ


Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 13 มิ.ย. 2550 14:04:30 By : ami View : 2325 Reply : 1
 

 

No. 1

Guest




เอาตัวอย่าง มาให้ ชม

แบบนี้ คือ 10 ข้อความล้าสุด เอาไปดัดแปลงเอาน่ะ


<%
'----------------------------------------------------------------------------
' 1.ประกาศตัวแปร
Dim i
'-----------------------------------------------------------------
' 2.ติดต่อฐานข้อมูลและดึงข้อมูลจากตาราง Questions มาแสดงผล
Call ConnectDB(dbPath)
sql="select top 10 * from questions order by QNumber DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.Open sql,conn
If Not rs.EOF Then
Do While Not rs.EOF
%>
<tr>
<td height="10" width="164" valign="top" align="center">
<%If replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%>
<img src="images/new.gif" width="15" height="16">
<%elseif rs("nanswer") <> 0 then%>
<img src="images/oldopen.gif" width="16" height="13">
<%else%>
<img src="images/old.gif" width="15" height="13">
<%end if%>
<font face="Verdana" size="1">#<%=right("0000" & RS(0),5)%> </font> </td>
<td width="689"><font face="MS Sans Serif" size="1"><a href="aspboard_Question.asp?GID=<%=RS(0)%>" target="_blank"><%=Server.HTMLEncode(RS("QTopic"))%></a> จากคุณ <%=Server.HTMLEncode(RS("QName"))%> เมื่อวันที่ <%=rs("qdate")%> ผู้เข้าดู <font color=green><b><%=Server.HTMLEncode(RS("NView"))%></b></font> คน ผู้ตอบ <font color=red><b><%=Server.HTMLEncode(RS("NAnswer"))%></b></font> คน</font></td>
</tr>
<%
rs.MoveNext
Loop
End If
%>
</table>
</td>
</tr>
</table>
<%
rs.Close
Set rs = Nothing
Call DisconnectDB()
%>








Date : 25 มิ.ย. 2550 21:40:22 By : monclubza
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ramdom asp ช่วยหน่อยค่ะ 'Load 5 last products and randomly pick 1 set rsProducts = server.
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

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