 |
|
|
 |
 |
|
โคดที่ใช้ในไฟล์ที่เอาไว้โหลดข้อมูลเป็นแบบนี้นะคะ
<%
id=request.QueryString("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="_
& Server.MapPath("images.mdb"))
sql = "select * from images where id=" & id
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
if rs.recordCount <> 0 then
response.contenttype=rs.fields("contenttype")
size=rs.fields("picture").actualsize
blob=rs.fields("picture").getChunk(size)
response.binarywrite blob
end if
rs.close
conn.close
%>
|
 |
 |
 |
 |
| Date :
14 พ.ค. 2548 00:50:01 |
By :
honalena |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ให้ตัวอย่างดูเองน่าเข้าใจกว่านะครับ
คัวอย่าง
---------------------------------------------------------------------------------------
OpenPicDB.asp
---------------------------------------------------------------------------------------
<%
XID=Request.QueryString("ID")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db/Pic.mdb")
sql ="Select * From Xpic Where id="&XID
Set RS =Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
Response.BinaryWrite rs("Image")
set Conn=nothing
%>
---------------------------------------------------------------------------------------
ShowPic.asp
---------------------------------------------------------------------------------------
<%
dim filesys, demofile,Tname,A,B
Set Conn = Server.CreateObject("ADODB.Connection")
Conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db/Pic.mdb")
sql ="Select * From Xpic "
Set RS =Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
%>
<table border=1 >
<tr>
<td>อันดับ</td><td>ชื่อภาพ</td><td>ขนาดภาพ<td><td>ภาพ</td></tr><tr>
<%do while not rs.EOF%>
<%
Tname=lcase(rs("PICNAME").Value)
B=replace(Tname,".jpg",".ASP")
set filesys = CreateObject ("Scripting.FileSystemObject")
set demofile = filesys.GetFile( server.MapPath("OpenPicdb.asp")
demofile.Copy(Server.MapPath(B))
set demofile=nothing
%>
<td><%=rs("id")%></td><td><%=rs("PICNAME")%></td><td><%=rs("PICSIZE")%><td><td><img width=100 src="<%=B%>?Id=<%=rs("id")%>" alt="<%=RS("PICNAME")%>"></td>
</tr>
<%
rs.MoveNext
on error resume next
set demofile=filesys.GetFile(server.MapPath(B)).Delete 'การลบไฟในทันทีเมื่อรันจะไม่สามรถแสดงรูปในทันทีแต่ต้องคลิกขวาที่รูปแล้วเลือก Showpicture ถ้าต้องการให้แสดงภาพทันทีต้องไม่ทำการลบไฟล์ครับ
set demofile=nothing
B=""
loop
%>
</table>
--------------------------------------------------------------
ถ้ามีไรสงสัยก็เมลล์มาที่ [email protected] นะครับ
|
| |
|
|
| |
| Date :
16 พ.ค. 2548 03:01:55 |
By :
nugul |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
