<%@ 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;"
' запрос однозначно получающий запись из таблицы
' в данном случае для примера blob_id = 1
' в Вашем случае это может быть другое число
sSQL = "SELECT * FROM blob WHERE blob_id=1"
rs.Open sSQL, cn, 1, 3
objStream.Type = 1
objStream.Open
objStream.Write rs.Fields("blob_file").Value
' папка, где сохраняется файл, должна иметь NTFS права на чтение/запись для
' интернет-пользователя (обычно IUSR_<имя_компьютера>)
' в данном случае - это текущая папка
objStream.SaveToFile Server.MapPath("./") & "\test_from_db.jpg", 2
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>
|
