?? demo6.asp
字號:
<%@Language=VBScript %>
<%
'設(shè)置數(shù)據(jù)庫鏈接
Set dbc= Server.CreateObject("ADODB.Connection")
dbc.connectionstring= "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("new.mdb")
dbc.open
set rs=server.CreateObject("adodb.recordset")
rs.Open "SELECT * FROM product",dbc,1,3
%>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
'obj.maxsize=2048 '設(shè)置文件上傳的最大為2048個字節(jié)(2K)
'obj.extname="doc"
txt = obj.request("text1") '得到form元素的值
Response.Write( "另存為： " & txt)
Response.Write "<br>"
ss=obj.SaveFiletodb("file1") '保存文件到數(shù)據(jù)庫
aa=obj.filetype("file1") '得到文件的Content-Type
if ss= "" then
Response.Write ("文件上傳失敗!")
else
'----文件上載到數(shù)據(jù)庫中---------
rs.AddNew
rs("name")=trim(aa)
rs("pic").AppendChunk obj.DBContent'BLOB數(shù)據(jù)不能直接賦值
rs.Update
rs.movelast
session("ID")=rs("ID")
rs.Close
dbc.Close
set rs=nothing
set dbc=nothing
'------------------------------上載到數(shù)據(jù)庫中結(jié)束
Response.Write "選擇的文件已經(jīng)上載到服務(wù)器！<br>"
Response.Write("文件名：" & ss)
Response.Write("<br>Content-Type：" & aa) '得到Content-Type
Response.Write("文件大小：" & obj.FileSize)
end if
%>
<br>
</BODY >
</html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -