［作者：佚名    转贴自：不详    点击数：数据正在加载...     字体:【大 中小】    更新时间：2007-01-08］

        case "application/x-rar-compressed"
            ext="rar"
            
        case "application/x-zip-compressed"
            ext="zip"
            
        case "image/gif"
            ext="gif"
            
        case "image/pjpeg"
            ext="jpg"
            
        case "text/plain"
            ext="txt"
            
        case else
            ext="x"
            
    end select
    if ext<>"x" then
        set fso=server.createobject("FileSystemObject")
        fName="attech"&i&"."&ext
        Dir="d:attach"
        If fso.FileExists(Dir & fName) Then fso.deletefile Dir & fName
        If fName<>"" AND NOT fso.FileExists(Dir & fName) Then
            Set strm1=Server.CreateObject("ADODB.Stream")
            strm1.Open
            strm1.Type=1 'Binary
            strm1.Write filevalue
            strm1.SaveToFile Dir & fName,2
            Set strm1=Nothing
        end if
        makeattach=fName
    end if
end function

这个函数有3个输入参数，第一个是文件的contentType，第二个是文件的二进制数值，第三个是个可以区别文件名的变量，先根据contentType确定所存文件的后缀名，然后就是将二进制数值保存成指定文件名的文件，并将文件名作为输出参数返回，将返回的参数作为数据写到mysql的数据库中保存。
时间匆忙，先总结到这里，希望这些文字能对有需要的人有些帮助，少走些弯路，感谢您的阅读。：）

页次:3/3  首页   上一页   下一页   尾页

附件：
没有附件