📄 adoexport.asp
字号:
<!-- AspUpload Code samples: adoexport.asp -->
<!-- Demonstrates exporting files from a database via ADO -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!-- http://www.persits.com -->
<HTML>
<BODY>
<%
' Build ODBC connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\aspupload.mdb")
' For SQL Server use a string simlar to this:
' Connect = "Provider=SQLOLEDB;Server=MYSERVER;Database=mydb;UID=sa;PWD=xxxxx"
Set rs = Server.CreateObject("adodb.recordset")
Set Upload = Server.CreateObject("Persits.Upload")
' Open MYIMAGES table
rs.Open "MYIMAGES", Connect, 2, 3
' Scroll through records
Count = 0
While Not rs.EOF
Filename = Trim(rs("filename"))
SQL = "select image_blob from myimages where id=" & rs("id")
Upload.FromRecordset rs("image_blob").Value, "c:\upload\" & Filename
Response.Write "File exported: c:\upload\" & Filename & "<BR>"
Count = Count + 1
rs.MoveNext
Wend
Response.Write "<P>" & Count & " files exported."
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -