?? upload.asp
字號:
<%
set conn = server.createobject("ADODB.CONNECTION")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &_
server.mappath("temp.mdb")
Set upload = Server.CreateObject("LyfUpload.UploadFile")
upload.maxsize=2*1024*1024 '設置文件上傳的最大為2MB
'保存文件到服務器內存中,upfile是表單中的名稱
filename = upload.SaveFiletodb("upfile")
If filename="0" Then
'表示文件過大,超出體積
Response.Write "文件超出2M!請返回"
Response.Write "<a href='history.back(-1);'>重新上傳</a><center>"
Else
'將文件信息保存到數據庫,首先建立Recordset對象
strSql="SELECT * FROM uploadfiles"
Set rs = Server.CreateObject("Adodb.Recordset")
rs.Open strSql,conn,1,3
'下面增加一條新記錄
rs.AddNew
rs("filename") = filename
rs("ext") = GetExt(filename) '調用函數獲取擴展名
rs("size") = Upload.filesize
rs("intro") = Upload.Request("intro") '獲取表單信息
rs("fileimage").AppendChunk Upload.DBContent '給文件內容字段賦值
rs.Update
'成功插入數據庫后,返回首頁
Response.Redirect("index.asp")
End If
%>
<%
'該函數用來得到文件的擴展名
Function GetExt(thefilename)
strTemp = Split(thefilename,".")
numTemp = Ubound(strTemp)
If numTemp = 0 Then
GetExt="No" '表示沒有擴展名
Else
GetExt="." & strTemp(numTemp) '是數組中最后一項
End If
End Function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -