othertest.asp

文件上传功能。本例中包括文件上载有组件和无组件两种上载方法。

<%
'设置文件的大小及MIME类型
Function SetForDisplay(field, contentType)
contentType = LCase(trim(contentType))
nFieldSize = field.ActualSize
bytes = field.GetChunk(nFieldSize)
Session("Bytes") = bytes
Session("Type") = contentType
End Function
%>

<%
   sql = "select * from product where id=" & request("ID")
   Set oRS = Server.CreateObject("ADODB.Recordset")
   oRS.CursorLocation = 3
   strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("new.mdb")  
   oRS.Open sql, strConn     
   SetForDisplay oRS("pic"),ors("name")
'常见文件的MIME类型
'GIF文件  "image/gif"
'BMP文件 "image/bmp"
'JPG文件 "image/jpeg"
'zip文件 "application/x-zip-compressed"
'DOC文件 "application/msword"
'文本文件 "text/plain"
'HTML文件 "text/html"
'一般文件 "application/octet-stream"
    Set oRS.ActiveConnection = Nothing
%>
<% 
    '读取数据库中保存的内容
    response.Expires = 0
    response.Buffer  = True
    response.Clear
    response.contentType = Session("Type")
    response.BinaryWrite Session("Bytes")
    Session("Type") = ""
    Session("Bytes") = ""
    response.End
%>