談談數據從sql server數據庫導入mysql數據庫的體驗

領測軟件測試網

            
        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的數據庫中保存。

文章來源于領測軟件測試網 http://www.kjueaiud.com/