Insert:
<%
' CREATE TABLE demo (id INTEGER NOT NULL PRIMARY KEY, pic BLOB);
adInteger = 3
adVarBinary = 204
adParamInput = 1
adTypeBinary = 1
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;"
Set stm = Server.CreateObject("ADODB.Stream")
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile Server.MapPath("y.jpg")
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "INSERT INTO demo VALUES(?,?)"
cmd.Parameters.Append(cmd.CreateParameter("@id", adInteger, adParamInput))
cmd.Parameters.Append(cmd.CreateParameter("@pic", adVarBinary, adParamInput, 65535))
cmd.Parameters("@id") = 1
cmd.Parameters("@pic") = stm.Read
cmd.Execute
Set cmd = Nothing
Set stm = Nothing
Set con = Nothing
%>
OK
Select:
<%
adInteger = 3
adParamInput = 1
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;"
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "SELECT pic FROM demo Test WHERE id = ?"
cmd.Parameters.Append(cmd.CreateParameter("@id", adInteger, adParamInput))
cmd.Parameters("@id") = 1
Set rs = cmd.Execute
Response.Clear
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("pic")
Response.End
Set rs = Nothing
Set cmd = Nothing
Set con = Nothing
%>