<%@
Language=VBScript %>
<%
option
explicit
Response.Buffer
= True
Response.Expires
= 0
Server.ScriptTimeout
= 600
Dim
cn, rs, objStream, sSQL
Set
cn = Server.CreateObject("ADODB.Connection")
Set
rs = Server.CreateObject("ADODB.Recordset")
Set
objStream = Server.CreateObject("ADODB.Stream")
cn.Open
"Provider=SQLOLEDB.1;Initial Catalog=test;Data Source=localhost;UID=yura;PWD=yura;"
sSQL
= "SELECT * FROM blob WHERE blob_id=0"
rs.Open
sSQL, cn, 1, 3
rs.AddNew
objStream.Type
= 1
objStream.Open
' путь к файлу для загрузки
objStream.LoadFromFile(Server.MapPath("./")
& "test.jpg" )
rs.Fields("name").Value =
"Тестовая картинка"
rs.Fields("blob_file").Value
= objStream.Read
rs.Update
rs.Close
objStream.Close
cn.Close
Set
rs = Nothing
Set
objStream = Nothing
Set
cn = Nothing
%>
<html>
<head>
<body>
<center>
<b>Файл успешно загружен !</b>
</center>
</body>
</head>
</html>
|