首先,你的表單的類型設為 <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)等等,但具體思路代碼仍是上面的代碼。如果需要可以和我聯系。