รบกวนด้วยค่ะ ต้องการให้มันแสดงรูปเรียงแบบว่าแถวล่ะ 4 รูปลงมาเรื่อย
แต่ทีนี้โค๊ดที่ทำมันแสดงตอนแรกเรียง 4 รูปประมาณ 2-3 บรรทัด แต่แถวอื่นมันไม่เรียงให้ มันวนลูป 2 ลูป
ไม่รู้ว่าจะเช็คอย่างไง คือว่าทำไว้ประมาณนี้อะ ช่วยหน่อยค่ะต้องรีบใช้ด้วยค่ะ
<!--- เลเยอร์ที่ใช้สำหรับเก็บตัวอัลบั้ม--->
<div id ="musicalbum" align="center" style="position:absolute; overflow:auto; z-index: 1; left: 15; top: 120; width:500; height:395; visibility: visible; ">
<table width="455" height="500" border="0" cellspacing="0" cellpadding="0" align="center" valign="top" class="TEXT_BODY_BLUE">
<% do while (not rs1.eof) %>
<%
set rs2 = Server.CreateObject("ADODB.Recordset")
if Album_search <> "%%" and month_search <> "all" then
sql2 = " SELECT dbo.LOB.ShortName, dbo.Album.ALBUM, dbo.Album.TNAME, dbo.Album.SDATE, dbo.Album.TAPECODE, dbo.Credit.CreditName FROM dbo.Album INNER JOIN dbo.LOB ON dbo.Album.LOB = dbo.LOB.LOB INNER JOIN dbo.Credit ON dbo.Album.CREDIT = dbo.Credit.Credit where ((LEFT(CONVERT(varchar, dbo.Album.SDATE, 112), 6) = '"&month_search&"' ) and (dbo.LOB.ShortName like'"&Album_search&"' or dbo.Credit.CreditName like '"&Album_search&"' or dbo.Album.TNAME like '"&Album_search&"' or dbo.Album.ENAME like '"&Album_search&"' ) and (ShortName ='"&rs1("ShortName")&"')) "
elseif Album_search <> "%%" and month_search = "all" then
sql2 = " SELECT dbo.LOB.ShortName, dbo.Album.ALBUM, dbo.Album.TNAME, dbo.Album.SDATE, dbo.Album.TAPECODE, dbo.Credit.CreditName FROM dbo.Album INNER JOIN dbo.LOB ON dbo.Album.LOB = dbo.LOB.LOB INNER JOIN dbo.Credit ON dbo.Album.CREDIT = dbo.Credit.Credit where ((dbo.LOB.ShortName like'"&Album_search&"' or dbo.Credit.CreditName like '"&Album_search&"' or dbo.Album.TNAME like '"&Album_search&"' ) and (ShortName ='"&rs1("ShortName")&"')) "
elseif Album_search = "%%" and month_search <> "all" then
sql2 = " SELECT dbo.LOB.ShortName, dbo.Album.ALBUM, dbo.Album.TNAME, dbo.Album.SDATE, dbo.Album.TAPECODE, dbo.Credit.CreditName FROM dbo.Album INNER JOIN dbo.LOB ON dbo.Album.LOB = dbo.LOB.LOB INNER JOIN dbo.Credit ON dbo.Album.CREDIT = dbo.Credit.Credit where (LEFT(CONVERT(varchar, dbo.Album.SDATE, 112), 6) = '"&month_search&"' and ShortName ='"&rs1("ShortName")&"') "
else
sql2 = " SELECT dbo.LOB.ShortName, dbo.Album.ALBUM, dbo.Album.TNAME, dbo.Album.SDATE, dbo.Album.TAPECODE, dbo.Credit.CreditName FROM dbo.Album INNER JOIN dbo.LOB ON dbo.Album.LOB = dbo.LOB.LOB INNER JOIN dbo.Credit ON dbo.Album.CREDIT = dbo.Credit.Credit where (LEFT(CONVERT(varchar, dbo.Album.SDATE, 112), 6) = '"&month_search&"' and ShortName ='"&rs1("ShortName")&"') "
end if
sql2 = sql2 & " order by SDate desc ,TAPECODE , Album "
set rs2 = conn.execute(sql2)
'response.write sql2
set fs=Server.CreateObject("Scripting.FileSystemObject")
ncl= 1
column=4
str_html="<tr>"
do while (not rs2.eof)
tpicture = trim(rs2("album")) & ".jpg"
If (fs.FileExists(server.MapPath("../album/images/" & tpicture )))=false Then
tpicture="nopic "
End If
Load balance : Server 04
