怎样存取图片??

viss 2003-01-20 08:27:23

用ACCESS数据库.

...全文

51 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

viss 2003-01-22

打赏
举报

谢谢!怎样给你加分呀?要斑竹加的?

elenaya 2003-01-20

打赏
举报

存圖片
<%@ language=vbscript %>


<script RUNAT="SERVER" LANGUAGE="VBSCRIPT">
Server.ScriptTimeout = 200

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Dim Fields
on error resume next

Set Fields = GetUpload()
If Err = 0 Then 'Upload was OK

Response.Write DBSaveUpload(Fields)
Else
Response.Write Err.Description
End If
On Error GoTo 0
Fields = Empty

End If

function DBSaveUpload(Fields)
dim Conn, RS
Set Conn = GetConnection
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "Upload", Conn, 2, 2
RS.AddNew

RS("RemoteIP") = Request.ServerVariables("REMOTE_ADDR")

RS("ContentType") = Fields("DBFile").ContentType
RS("SouceFileName") = Fields("DBFile").FileName

RS("Data").AppendChunk Fields("DBFile").Value
RS.Update
RS.Close
Conn.Close
DBSaveUpload = "記錄已保存!"

end function

function GetConnection()
dim Conn, AuthConnectionString
Set Conn = Server.CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & Server.MapPath("upload.mdb") & ";" & _
"Driver={Microsoft Access Driver (*.mdb)}; DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5;UID=;"
Conn.open AuthConnectionString
set GetConnection = Conn
end function

function CreateUploadTable(Conn)
dim SQL
SQL = SQL & "CREATE TABLE Upload ("
SQL = SQL & " UploadID COUNTER ,"
SQL = SQL & " RemoteIP char (15) NULL ,"
SQL = SQL & " ContentType char (64) NULL ,"
SQL = SQL & " SouceFileName varchar (255) NULL ,"
SQL = SQL & " Data image NULL "
SQL = SQL & ")"
Conn.Execute SQL
end function
</script>

<html>
<head>
<title>save image</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
</head>
<body>
</body>
</html>
<script language=javascript>

</script>

取圖片
<%
response.contenttype="image/jpeg"
DbPath = SERVER.MapPath("upload.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="select data,ContentType from upload where UploadID="&request("uploadid")
'response.write sql
'response.end
Set rs=conn.execute(sql)
response.binarywrite rs("data")
response.end
%>