|
首先,你的表單的類型設(shè)為 <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> 然后在下一頁(yè),用分離的辦法先分出文本,此時(shí)不能用request.form,應(yīng)變?yōu)?br> 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 ) 這里先分出的是圖像 然后在將其二進(jìn)制轉(zhuǎn)換為文本。 求出大小。 FormSize = Request.TotalBytes 之后用總大小減去剛才求出的大小。得出文本大小。然后用字符串函數(shù)得出其值。 最后分別存在數(shù)據(jù)庫(kù)中。 注意,此方法不能完成另存為文件。因?yàn)閂bscript中的文件對(duì)象不能處理二進(jìn)制格式。(圖象事二進(jìn)制的) 但Vb中可以,所以我們可已利用組件完成以上工作。 我自己使用自己編寫的組件,這樣即可以完成存為數(shù)據(jù)庫(kù),又可以存位文件。還可以限制大小,文件類型(gif,jpg,Htm,exe)等等,但具體思路代碼仍是上面的代碼。如果需要可以和我聯(lián)系。
|
溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!