ASP programming :: แสดงรูปภาพ

aln

Tue 29 Aug 2006 12:31:23

ตอนนี้ผมได้ทำ gellary รูปภาพ เหลือแต่แสดงรูปภาพให้สามารถกดเลื่อนได้ ตอนนี้ผมแสดงรูปภาพได้แล้ว แต่ยังไม่ได้ตรงที่ให้สามารถกดเลื่อนรูปภาพได้

โค้ดที่ทำใช้ asp เขียน

**********************************************************************

<%
 if Request.Querystring("strID")="" then
 sid="1"
else
 sid=Request.Querystring("strID")
end if

strAction1=sid-1
strAction2=sid+1

artcatid = Request.QueryString("strcatid")
Set rsCate = Server.CreateObject("ADODB.RecordSet")
sql ="Select * From TblShowArt where SID='"& sid & "' and ArtCatID='"& artcatid & "' order by SImage desc"
rsCate.Open Sql, Connart, 1, 1
on error resume next
if strAction1<>0 then ' ===================================================================== Previous
 strPrev="<a href=""view.asp?strID="&strAction1& strartid="&rsCate(1)&""" title=""vorheriges Bild"">< Previous</a>"
else
 strPrev="< Previous"
end if

if strEnd=true then ' =========================================================================== Next
 strNext="Next >"
else
 strNext="<a href=""view.asp?strID="&strAction2&"& strartid="&rsCate(1)&""" title=""nächstes Bild"">Next ></a>"
end if

strHome="<a href=""view.asp?strID=1"" title=""Home"">Home</a>" '

%>

*******************************************************************

อยากให้ช่วยแก้ไข code ให้หน่อยครับ

Re: แสดงรูปภาพ

Administrator
Tue 29 Aug 2006 12:51:29

จากโค๊ดก็น่าจะทำงานได้ปกตินี่ครับ แต่ผมไม่เห็นตัวแปรหลายตัวในโค๊ดนี้เช่น strEnd, startid
หลักการทำ Gallery แบบนี้คือถ้าไม่มีการระบุ id ของรูปก็ให้ทำการเลือกรูปแรก (ผมให้รูปแรกของผมคือรูปที่ insert ก่อน) เช่น

"SELECT TOP(1) * FROM TblShowArt ORDER BY SID ASC"

ส่วนรูปถัดไปก็ให้เป็นรูปที่เป็น SID ถัดไป (ในกรณีของผม SID เป็น AUTO_INCREMENT ซึ่งถ้ามีการลบรูปออกไปแล้วจะเกิด SID ที่ไม่ต่อเนื่อง จึงไม่สามารถนำเอา SID ที่แสดงปัจจุบันมา +1 ได้)

"SELECT TOP(1) * FROM TblShowArt WHERE SID > " & rs("SID") & " ORDER BY SID ASC"

ส่วนรูปก่อนหน้าก็

"SELECT TOP(1) * FROM TblShowArt WHERE SID < " & rs("SID") & " ORDER BY SID DESC"

ส่วนการ Disable ตัวลิงค์ในกรณีที่ไม่มีรูปก่อนหน้าหรือรูปถัดไปแล้วนั้น ก็ต้องหารูปแรกและรูปสุดท้ายก่อนครับ

"SELECT TOP(1) mn.MIN(SID) AS min_sid, mx.MAX(SID) AS max_sid FROM TblShowArt mn, TblShowArt mx"

จากนั้นเอาไปเทียบกับรูปที่แสดงปัจจุบันครับว่ารูปนี้เป็นรูปแรกหรือรูปสุดท้ายหรือไม่

Re: แสดงรูปภาพ

aln

Tue 29 Aug 2006 13:33:35

จากที่ถามไปตอนนี้เลือกรูปได้แล้วครับแต่ติดตรงที่ การ request.querysting(ประเภทรูป) แบบว่าในฐานข้อมูลรูปภาพผมเก็บประเภทรูปเข้าไปด้วยครับ ถ้าผมไม่เรียกประเภทรูปพอกด next เพื่อดูรูปต่อไปสามารถดูได้หมดแม้ว่าจะไม่อยู่ในประเภทเดียวกันก็ตามครับ แต่พอผม and ประเภทรูปเข้าไป เกิด Error

ADODB.Field (0x80020009)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

จึงอยากให้พี่ช่วยแก้ไขโค้ดให้หน่อยครับ ผมไม่รู้จะแก้ไขยังไงดีครับ ควรจะเพิ่มอะไรตรงส่วนใหนบ้างกรุณาช่วยบอกทีครับ

****************************************************

ขอบคุณมากๆ ครับและก็ของคุณกับคำตอบก่อนหน้านี้ด้วยครับ

*****************************

Re: แสดงรูปภาพ

Administrator
Tue 29 Aug 2006 14:31:33

ผมรบกวนขอดู querystring ใน url ทั้งหมดด้วยครับว่ามีการตัวแปรต่างๆอย่างไรครับ หรือลองทำการ response.write ตัวประเภทรูปของคุณดูครับว่ารับค่ามาได้อย่างถูดต้องหรือไม่

ถ้าทุกอย่างถูกต้องแล้ว ลองเอา query ที่ได้จากการใส่ parameter ทั้งหมดแล้ว print ออกมาแล้วลองเอาไป run ใน database อีกทีครับว่าได้ข้อมูลอย่างถูกต้องหรือไม่ครับ

Re: แสดงรูปภาพ

aln

Tue 29 Aug 2006 15:20:04

ของคุณมากๆ ครับ...ตอนนี้ได้แล้วครับ...ติดเรื่องของการส่งค่ามาครับ

Re: แสดงรูปภาพ

prosak
prosak

Tue 3 Jul 2007 17:06:03

จาก code Gallery ที่คุณ Administrator อธิบายผมก็พอจะเข้าใจ แต่ผมอยากให้คุณ Administrator เขียน code แบบเต็มๆมา เหมือน คุณ aln

Re: แสดงรูปภาพ

webmaster

Tue 3 Jul 2007 19:21:43

ต้องขออภัยคุณ prosak ด้วยครับ forum นี้เป็นเพียงสถานที่เพื่อแนะแนวทางในการแก้ปัญหาเท่านั้นครับ ทางเราจะไม่บอกทั้งหมดชนิด copy-paste ครับ เนื่องจากผู้สอบถามจะไม่ได้ใช้ความสามารถของตัวเองครับ

Re: แสดงรูปภาพ

สามารถ

Mon 28 Jan 2008 13:21:08

<%@ Language=VBScript %>

<head>

<title>::โรงเรียนเทคโนโลยีพลพนิขยการ -> ตารางสอน ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<link rel="stylesheet" href="tsearch/./css/tsearch.css" type="text/css" />
<style type="text/css">

</style>
</head>
<body bgcolor="#64748B">
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr bgcolor="#330099">
<td width="15" nowrap="nowrap"><img src="tsearch/mm_spacer.gif" alt="" width="15" height="1" border="0" /></td>
<td height="70" colspan="2" nowrap="nowrap" class="logo style4">เทคโนโลยีพลพนิชยการ| ตารางสอน</td>
<td width="5"> </td>
</tr>

<tr bgcolor="#FFFFFF">
<td nowrap="nowrap"> </td>
<td colspan="2" height="24">
<table border="0" cellpadding="0" cellspacing="0" id="navigation">
 <tr>
 <td align="center" nowrap="nowrap" class="navText style4"> </td>
 <td class="navText" align="center" nowrap="nowrap"> </td>
 <td class="navText" align="center" nowrap="nowrap"><a href="tsearch" title="ตารางสอนค่ะ" class="style4" >ตารางเรียน</a></td>
 <td class="navText" align="center" nowrap="nowrap"><a href="rsearch" title="ตารางห้องเรียนค่ะ" class="style4" >ตารางห้องเรียน</a></td>
 <td class="navText" align="center" nowrap="nowrap"><a href="tsearch/index.html" title="ออกจากระบบ">ออก</a></td>
 </tr>
 </table> </td>
<td> </td>
</tr>

<tr bgcolor="#D3DCE6">
<td height="170" valign="top"> </td>
<td width="35" rowspan="3" valign="top">
 <%
Dim RS
Dim RS1
dim RS2
Sql= "SELECT t_name,tname,teacher_sct FROM tname WHERE tid = '"&idst&"'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.Open Sql,Conn
cr=0
cr=RS.recordcount
if cr=0 then
%>
 <script language="JavaScript" type="text/javascript">
alert("ไม่มีรหัสนี้ หรือรหัสผ่านไม่ถูกต้อง กรุณากรอกรหัสใหม่อีกครั้ง ค่ะ");
history.back(1);
 </script>
 <%
rs.close
conn.close
end if
'if cr <> 0 then
fn=rs("TNAME")
dpt=rs("TEACHER_DPT")
Sql="SELECT * FROM TEACHER_DPT WHERE TEACHER_DPT = '"&dpt&"'"
Set RS1 =Server.CreateObject("ADODB.Recordset")
RS1.Open Sql,Conn
cr1=RS1.recordcount
if cr1=0 then
dt="ไม่มีข้อมูล"
rs1.close
conn.close
end if
if cr1<> 0 then
dt=rs1("DPT_NAME")

rs1.close
DIM DAYL
DIM TIMEL
DIM X1(5,8)
DIM X2(5,8)
DIM X3(5,8)
DAYL = 1
TIMEL = 1
DO WHILE NOT DAYL = 6
TIMEL =1
DO WHILE NOT TIMEL = 9
Sql="SELECT * FROM TEACHER_SEARCH WHERE TEACHER_ID = '"&idst&"' AND TEACH_DAY ='"&DAYL&"' AND TEACH_TIME = '"&TIMEL&"' "
Set RS2 =Server.CreateObject("ADODB.Recordset")
RS2.Open Sql,Conn,3,3
if RS2.EOF then
X1(DAYL,TIMEL)="ไม่มีข้อมูล"
X2(DAYL,TIMEL)="ไม่มีข้อมูล"
X3(DAYL,TIMEL)="ไม่มีข้อมูล"
end if
if NOT RS2.EOF then
X1(DAYL,TIMEL)=rs2("TEACH_SUBJECT")
X2(DAYL,TIMEL)=rs2("TEACH_ROOM")
X3(DAYL,TIMEL)=rs2("STUDENT_LEVEL")
RS2.CLOSE
end if
TIMEL= TIMEL+1
LOOP

DAYL=DAYL+1
LOOP
end if

rs.close
'end if

%>

  </td>
<td width="730" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td width="20%" rowspan="5"><img src="images/<%=idst%>.jpg" width="110" height="137" /></td>
 <td width="72%"> </td>
 <td width="8%" rowspan="5"> </td>
 </tr>
 <tr>
 <td>อาจารย์ <%=fn %></td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td>หมวด <%=dt %></td>
 </tr>
 <tr>
 <td> </td>
 </tr>
 <tr>
 <td> </td>
 <td> </td>
 <td> </td>
 </tr>
 </table> </td>
<td> </td>
</tr>
<tr bgcolor="#D3DCE6">
 <td height="36" valign="top"> </td>
 <td> </td>
 <td> </td>
</tr>
<tr bgcolor="#D3DCE6">
 <td height="626" valign="top"> </td>
 <td valign="top"><table width="730" cellpadding="2" cellspacing="1" border="1" id="8">
 
 <tr id="noborder">
 <td height="19" colspan="8"> </td>
 </tr>
 <tr id="weekdays">

 <th width="76" align="center" bgcolor="#33FFFF" class="calendarText style7">8:40 - 9:30</th>
 <th width="85" align="center" bgcolor="#33FFFF" class="calendarText style7">9:30 - 10:20</th>
 <th width="94" align="center" bgcolor="#33FFFF" class="calendarText style7">10:20 - 11:10</th>
 <th width="94" align="center" bgcolor="#33FFFF" class="calendarText style7">11:10 - 12:00</th>
 <th width="90" align="center" bgcolor="#33FFFF" class="calendarText style7">12:00 - 12:50</th>
 <th width="89" align="center" bgcolor="#33FFFF" class="calendarText style7">12:50 - 13:40</th>
 <th width="77" align="center" bgcolor="#33FFFF" class="calendarText style7">13:40 - 14:30</th>
 <th width="76" align="center" bgcolor="#33FFFF" class="calendarText style7">14:30 - 15:20</th>
 </tr>
 <tr bgcolor="#FFFF00" id="calheader">
 <td colspan="8" align="center" valign="top" class="calendarText"> </td>
 </tr>
 <tr align="center">
 <td valign="top" height="50" class="calendarText"><%=X1(1,1) %> <%=X2(1,1)%> <%=X3(1,1)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,2) %> <%=X2(1,2)%> <%=X3(1,2)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,3) %> <%=X2(1,3)%> <%=X3(1,3)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,4) %> <%=X2(1,4)%> <%=X3(1,4)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,5) %> <%=X2(1,5)%> <%=X3(1,5)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,6) %> <%=X2(1,6)%> <%=X3(1,6)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,7) %> <%=X2(1,7)%> <%=X3(1,7)%> </td>
 <td valign="top" class="calendarText"><%=X1(1,8) %> <%=X2(1,8)%> <%=X3(1,8)%> </td>
 </tr>
 <tr id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr bgcolor="#FF00FF" id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr align="center">
 <td valign="top" height="50" class="calendarText"><%=X1(2,1) %> <%=X2(2,1)%> <%=X3(2,1)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,2) %> <%=X2(2,2)%> <%=X3(2,2)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,3) %> <%=X2(2,3)%> <%=X3(2,3)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,4) %> <%=X2(2,4)%> <%=X3(2,4)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,5) %> <%=X2(2,5)%> <%=X3(2,5)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,6) %> <%=X2(2,6)%> <%=X3(2,6)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,7) %> <%=X2(2,7)%> <%=X3(2,7)%> </td>
 <td valign="top" class="calendarText"><%=X1(2,8) %> <%=X2(2,8)%> <%=X3(2,8)%> </td>
 </tr>
 <tr id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr bgcolor="#00FF00" id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr align="center">
 <td valign="top" height="50" class="calendarText"><%=X1(3,1) %> <%=X2(3,1)%> <%=X3(3,1)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,2) %> <%=X2(3,2)%> <%=X3(3,2)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,3) %> <%=X2(3,3)%> <%=X3(3,3)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,4) %> <%=X2(3,4)%> <%=X3(3,4)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,5) %> <%=X2(3,5)%> <%=X3(3,5)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,6) %> <%=X2(3,6)%> <%=X3(3,6)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,7) %> <%=X2(3,7)%> <%=X3(3,7)%> </td>
 <td valign="top" class="calendarText"><%=X1(3,8) %> <%=X2(3,8)%> <%=X3(3,8)%> </td>
 </tr>
 <tr id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr bgcolor="#FF9966" id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr align="center">
 <td valign="top" height="50" class="calendarText"><%=X1(4,1) %> <%=X2(4,1)%> <%=X3(4,1)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,2) %> <%=X2(4,2)%> <%=X3(4,2)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,3) %> <%=X2(4,3)%> <%=X3(4,3)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,4) %> <%=X2(4,4)%> <%=X3(4,4)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,5) %> <%=X2(4,5)%> <%=X3(4,5)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,6) %> <%=X2(4,6)%> <%=X3(4,6)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,7) %> <%=X2(4,7)%> <%=X3(4,7)%> </td>
 <td valign="top" class="calendarText"><%=X1(4,8) %> <%=X2(4,8)%> <%=X3(4,8)%> </td>
 </tr>
 <tr id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr bgcolor="#6699CC" id="noborder">
 <td height="20" colspan="8"> </td>
 </tr>
 <tr align="center">
 <td valign="top" height="50" class="calendarText"><%=X1(5,1) %> <%=X2(5,1)%> <%=X3(5,1)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,2) %> <%=X2(5,2)%> <%=X3(5,2)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,3) %> <%=X2(5,3)%> <%=X3(5,3)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,4) %> <%=X2(5,4)%> <%=X3(5,4)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,5) %> <%=X2(5,5)%> <%=X3(5,5)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,6) %> <%=X2(5,6)%> <%=X3(5,6)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,7) %> <%=X2(5,7)%> <%=X3(5,7)%> </td>
 <td valign="top" class="calendarText"><%=X1(5,8) %> <%=X2(5,8)%> <%=X3(5,8)%> </td>
 </tr>
 </table>
 
  </td>
 <td> </td>
</tr>

<tr>
<td>  
  
</td>
<td width="35"> </td>
<td align="center"> © เทคโนโลยีพลพนิชยการ ถนนมิตรภาพ อ.พล จ.ขอนแก่น 40120 โทร. 043 414 199 </td>
<td></td>
</tr>
</table>
</body>
</html>

Error Type:
ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/tsearch/tsearch.asp, line 86

Re: แสดงรูปภาพ

webmaster

Mon 28 Jan 2008 14:11:19

รู้สึกว่าคุณจะเรียกอ่านข้อมูลนอกของเขตของ recordset นะครับ

Re: แสดงรูปภาพ

korakot
korakot

Mon 28 Jan 2008 15:34:29

ผมรบกวนหน่อยนะคับคือพอมีตัวอย่างโค้ดการกำหนดขนาดรูปภาพหรือป่าวคับอย่างเช่น ต้องการให้มันมีขนาด 50*50 อย่างนี้นะคับ

ขอบคุณมากคับ

Re: แสดงรูปภาพ

webmaster

Mon 28 Jan 2008 15:52:22

หมายถึงในไหนครับถ้า asp ผมไม่ถนัดจึงไม่ทราบครับ แต่ถ้าใช้ html หรือ css ช่วยก็พอได้ครับ

ถ้าใน html tag img จะมี attribute width และ height ให้กำหนดได้ครับ
ถ้าใช้ css ช่วย ก็จะมี attribute width และ height เช่นเดียวกันครับ

Re: แสดงรูปภาพ

korakot
korakot

Mon 28 Jan 2008 22:05:57

ในไหนก็ได้ครับคือให้กำหนดเวลา user เลือกแล้วถ้ามันเกิน size ที่เรากำหนดก็ไม่ให้สามารถเพิ่มลงในฐานข้อมูลเราได้นะครับ รบกวนอีกทีนะครับ

Re: แสดงรูปภาพ

webmaster

Tue 29 Jan 2008 00:16:08

ไม่แน่ใจนะครับไม่ได้ลอง

dim iWidth, iHeight
sub ImgDimension(img)
    dim myImg, fs
    Set fs= CreateObject("Scripting.FileSystemObject")
    if not fs.fileExists(img) then exit sub
    set myImg = loadpicture(img)
    iWidth = round(myImg.width / 26.4583)
    iHeight = round(myImg.height / 26.4583)
    set myImg = nothing
end sub

จากนั้นใช้งานตัวแปร iWidth, iHeight ได้เลยครับ (เขาว่างั้น)