Asp下實現多表單域無組件文件上傳的實例
2024-05-04 11:01:04
供稿：網友
最近經常有人問到這類問題,在此轉貼一下,內容:
1。數據庫表結構(Access)：
UserID:Text(保存上傳文件的用戶ID)
FileContentType:Text(用來保存上傳文件的類型，eg:"Application/msword"，主要用來使用戶能正確下載此文件）
FileContent:OLE Object（保存文件數據）
2。HTML文件
muploadfile.htm
<Form name="upload_file" enctype="multipart/form-data" action="muploadfile.asp" method=post>
<input type=hidden name="UserID" value="abc">
<input type=hidden name="FileUploadStart"> '這里用來表示開始文件數據上傳
File to send:
<INPUT TYPE="file" name="file_up" size="30"><br>
<INPUT TYPE="file" name="file_up" size="30"><br>
<input type=hidden name="FileUploadEnd"> '這里用來表示文件數據結束
<input type=submit value=Submit>
</Form></P><P>
3。ASP文件
muploadfile.asp</P><P><%
Response.Expires=0
Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag </P><P> skipflag=0
ccc = ""
If Not IsNull(binstr) Then
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
