|
|
|
อยากทราบCode ASP ที่ใช้อัพโหลดภาพแล้วสามารถแสดงภาพออกมาให้ดูได้ |
|
|
|
|
|
|
|
code อัพโหลดมีอยู่แล้วนิครับ ส่วนแสดงภาพก็ประมาณนี้ครับ
ตอนเก็บเก็บเป็นชื่อไฟล์นะครับ ประมาณนี้ครับแทรกไปในไฟล์ที่อัพโหลด
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("profile.mdb"),"" , ""
sql ="Select * From pic where picname='"&filename_new&"'"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
if NOT RS.EOF then
response.write("ä´éÍѾâËÅ´ä¿Åìª×è͹Õéä»áÅéÇ !")
ELSE
Rs.AddNew
Rs("picname") = filename_new 'เก็บชื่อไฟล์ในฐาน
Rs.Update
Response.write(" Uploads ä¿ÅìÊÓàÃç¨ ")
Response.write("<br> ä¿Åìª×èÍ " &filename_new)
end if
%>
ส่วนนี้เป็นส่วนของการเรียกมาแสดงครับเพียงเรียกชื่อไฟล์ออกมาแล้วระบุพาธที่เก็บให้ถูกต้องเท่านั้นครับ
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("profile.mdb"),"" , ""
sql ="Select * From pic"
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
DO While Not Rs.EOF
%>
<table border=0 align="center">
<tr><td>
<img src="picture/<%=Rs("picname")%>" border="0" />
</td></tr>
</table>
<%
Rs.MoveNext
Loop
Rs.Close
Conn.Close
%>
|
|
|
|
|
Date :
8 ก.ย. 2551 12:59:49 |
By :
ทำได้แค่นี้อะ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 05
|