Asp下實(shí)現(xiàn)多表單域無(wú)組件文件上傳的實(shí)例

2024-05-04 10:57:43

字體：大中小

供稿：網(wǎng)友

最近經(jīng)常有人問(wèn)到這類問(wèn)題,在此轉(zhuǎn)貼一下,內(nèi)容:
1。數(shù)據(jù)庫(kù)表結(jié)構(gòu)(Access)：
UserID:Text(保存上傳文件的用戶ID)
FileContentType:Text(用來(lái)保存上傳文件的類型，eg:"Application/msword"，主要用來(lái)使用戶能正確下載此文件）
FileContent:OLE Object（保存文件數(shù)據(jù)）

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"> '這里用來(lái)表示開(kāi)始文件數(shù)據(jù)上傳
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"> '這里用來(lái)表示文件數(shù)據(jù)結(jié)束
<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

上一篇：asp在IE瀏覽器中下載服務(wù)端上的各類文件的實(shí)現(xiàn)方法

下一篇：ASP 中 DateDiff 函數(shù)詳解主要實(shí)現(xiàn)兩日期加減操作