|
 |
| |
รบกวนถามเรื่องการดึงรูปภาพในฐานข้อมูลขึ้นมาแสดงผลค่ะ |
| |
 |
|
|
 |
 |
|
<%
Dim oConn
Dim oRs
Dim sSQL
Dim nFileID
nFileID = Request.QueryString("FileID")
If Not nFileID = "" And IsNumeric(nFileID) Then
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.Recordset")
'oConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("./") & "\Upload.mdb"
'oConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.mappath("/DBTable/AICDB.mdb")
'oConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.mappath("/DBTable/upload.mdb")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&Server.MapPath("/db/upload.mdb")
sSQL = "SELECT FileName, ContentType, BinaryData FROM Files WHERE FileID = " & Request.QueryString("FileID")
oRs.Open sSQL, oConn, 3, 3
If Not oRs.EOF Then
Response.ContentType = oRs(1)
Response.BinaryWrite oRs(2)
Else
Response.Write("File could not be found")
End If
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
Else
Response.Write("File could not be found")
End If
%>
|
 |
 |
 |
 |
| Date :
5 ก.ย. 2549 11:28:31 |
By :
Ton |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
รบกวนคุณ Ton นิดได้มั้ยอะคะ ช่วยอธิบายนิดได้มั้ยอะคะ คือว่านู๋งงอะค่ะ 
|
| |
|
|
| |
| Date :
6 ก.ย. 2549 11:07:26 |
By :
แอม |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ข้อมูลของผม :
db : upload.mdb
table : Files
field บาง field ใน table นี้ของผมได้แก่ FileID(AutoNumber) - Primary Key, FileName(Text), ContentType(Text), BinaryData(OLE Object)
และนี่ก็คือตัวอย่างข้อมูลของผม 6, Sunset.jpg, image/pjpeg, Long binary data
ในตอนแรกก็จะต้องมีหน้าที่ทำหน้าที่ส่งลิง้ค์ และคิวรี่สตริงตัวแปร FileID = ? มาที่หน้านี้
จากนั้นหน้านี้ก็จะทำการรับค่า FileID มาเก็บไว้ในตัวแปร nFileID จากนั้นก็จะเช็คว่าตัวแปรนี้นั้นเป็นค่าว่าง และเป็นตัวเลขหรือไม่ ถ้าไม่ใช่ค่าว่าง และเป็นตัวเลข ก็เข้ามาทำคำสั่งใน If คือเปิด connectionstring, recordset และ sql ตามเงื่อนไขที่เราต้องการคือ เปิดตาม FileID ที่เรารับค่ามา ถ้าหากว่าพบเรคคอร์ดตามเงื่อนไขที่ระบุไว้ ก็แสดงว่าตัวแปร recordset นั้นจะต้องไม่ใช่ EOF แน่นอน ทำคำสั่งหลัง If ตัวใน คือทำการเปิดไฟล์ขึ้นมา
Response.ContentType = oRs(1)
Response.BinaryWrite oRs(2)
(2 คำสั่งนี้ใช้สำหรับเปิดไฟล์)
แต่ถ้าหากว่า EOF ก็ให้พิมพ์ออกมาว่า File could not be found (หาไฟล์ไม่พบ)
จากนั้นก็ปิดและทำลายการเชื่อมต่อ
และถ้าหากว่าตัวแปร nFileID เป็นค่าว่าง หรือ ไม่ใช่ตัวเลขแล้วละก็
ก็ให้พิมพ์ออกมาว่า File could not be found (หาไฟล์ไม่พบ) เช่นเดียวกันครับ
|
| |
|
|
| |
| Date :
6 ก.ย. 2549 14:17:46 |
By :
Ton |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณมากๆๆนะคะ คุณ Ton
|
| |
|
|
| |
| Date :
7 ก.ย. 2549 16:52:47 |
By :
แอม |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
            
|
| |
|
|
| |
| Date :
27 ก.ย. 2549 14:00:09 |
By :
madoadza |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
แล้วมันไม่เกบแอดเดรสของภาพหรอครับ หรือมันจะไปหาดึงภาพที่ตำแหน่งเดิมมาแสดง..
|
| |
|
|
| |
| Date :
26 ธ.ค. 2550 17:03:30 |
By :
wutt |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 04
|
