資料|資料庫 首先,你的表單的類型設為 <FORM ENCTYPE="multipart/form-data"
ACTION="uploadresult.asp" METHOD=POST>
Please choose a picture to upload:
<INPUT NAME="picture" TYPE=FILE ACCEPT="image/*">
<input name="text1" type=text >
</form>
然後在下一頁,用分離的辦法先分出文本,此時不能用request.form,應變為
FormData = Request.BinaryRead( FormSize )
FormSize = Request.TotalBytes
bnCRLF = chrB( 13 ) & chrB( 10 )
Divider = LEFTB( FormData, INSTRB( FormData, bnCRLF ) - 1 )
DataStart = INSTRB( FormData, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, FormData, divider ) - DataStart
Response.ContentType = "image/gif"
Response.BinaryWrite MIDB( FormData, DataStart, DataEnd )
這裡先分出的是映像
然後在將其二進位轉換為文本。(見金華區)
求出大小。
FormSize = Request.TotalBytes
之後用總大小減去剛才求出的大小。得出文字大小。然後用字串函數得出其值。
最後分別存在資料庫中。
注意,此方法不能完成另存新檔檔案。因為Vbscript中的檔案對象不能處理二進位格式。(圖象事二進位的)
但Vb中可以,所以我們可已利用組件完成以上工作。
我自己使用自己編寫的組件,這樣即可以完成存為資料庫,又可以存位檔案。還可以限制大小,檔案類型(gif,jpg,Htm,exe)等等,但具體思路代碼仍是上面的代碼。如果需要可以和我聯絡。