?? sample7.asp
字號:
<%
' Variables
' *********
Dim mySmartUpload
Dim oConn
Dim strSQL
Dim oRs
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("\scripts\aspSmartUpload\Sample.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
' Open a recordset
' ****************
strSQL = "SELECT FILENAME,FILE FROM TFILES"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.Open
' DownloadField
' *************
mySmartUpload.DownloadField(oRs("FILE"))
' samples with optionnals
' Call mySmartUpload.DownloadFile(oRs("FILE"), "application/x-zip-compressed", "download.zip")
' Call mySmartUpload.DownloadFile(oRs("FILE"), "application/x-zip-compressed", oRs("FILENAME"))
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -