|
 |
| |
การนำไฟล์ภาพในฐานข้อมูลมาใช้งาน คือผมมีปัญหาที่เมื่อผม Upload fileภาพเข้าฐานข้อมูลแล้วสามารถใช้งานได้ |
| |
 |
|
|
 |
 |
|
คือผมมีปัญหาที่เมื่อผม Upload fileภาพเข้าฐานข้อมูลแล้วสามารถใช้งานได้
แต่ผมมีปัญหาในการนำรูปภาพมาแสดงนะครับ ใครที่มีความรู้ ช่วยตอบหน่อยครับ
คือผมต้องการให้ดึงไฟล์รูปออกมาแล้ว Save ก่อนนำมาแสดงนะครับ
คือที่ผมทำอยู่ผมสามารถแสดงรูปได้ครังละรูปเท่านั้นครับ ผมต้องการที่จะแสดงทีละหลายรูปนะครับ
Selecpicture.html
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<TITLE></TITLE>
<base target="middle">
</HEAD>
<BODY>
<FORM id=FORM1 name=FORM1 action="upload.asp" method=POST>
<P> </P>
<P>
<INPUT id=file1 style="LEFT: 30px; TOP: 30px" type=file
name=file1 size="20"></P>
<P><INPUT type=submit value=Submit></P></FORM>
</BODY>
</HTML>
upload.asp
<%
function getBinaryFile(sFile)
Dim adTypeBinary
Dim oStream
adTypeBinary=1
set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Type=adTypeBinary
oStream.LoadFromFile sFile
getBinaryFile =oStream.read
set oStream=nothing
end function
%>
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Test.mdb"),"" , ""
sql = "select * from Pic"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Pic")= getBinaryFile(Request.Form("File1"))
rs.update
rs.MoveLast
rs.close
Conn.Close
%>
ตัวอย่างที่ผมใช้แสดงรูปภาพนะ
ShowPic.asp
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Test.mdb"),"" , ""
sql = "select * from Pic where (Id="& Request("NO") & ")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%
Response.BinaryWrite (Rs.Fields("Pic"))
%>
<%
rs.close
conn.close
%>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
21 ต.ค. 2547 23:13:49 |
By :
nugul |
View :
2969 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
upload file แล้วเก็บแค่ชื่อ file ลงในฟิลด์ดีกว่าไหมครับ... 
|
| |
|
|
| |
| Date :
29 ต.ค. 2547 17:42:17 |
By :
puilism |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
รันไม่ได้ครับ
|
| |
|
|
| |
| Date :
12 มิ.ย. 2550 14:00:25 |
By :
บรรเจิด คำพัน |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 00
|
