muploadfile.asp

企业办公自动化管理系统 asp+sql server 2005

<!--#include file="../include/opendb.asp"-->
<!--#include file="../include/checked.asp"-->
<%'----------------------确定添加了几个附件------------
dim id,key
id=request("id")
key=request("key")
'-------------------------------
%>
<link rel="stylesheet" href="../css/css.css" type="text/css">
<br><br>
<div align="center">
  <p class="big"><b><font color="#000000">附件添加成功</font></b></p>
</div>
<%
'on error resume next
Response.Expires=0 
'字符转化
Function bin2str(binstr) 
    Dim varlen,clow,ccc,skipflag 

    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 
        Next 
    End If 
    bin2str = ccc 
End Function 


varByteCount = Request.TotalBytes 
bnCRLF = chrB( 13 ) & chrB( 10 ) 
binHTTPHeader=Request.BinaryRead(varByteCount)
Divider = LEFTB( binHTTPHeader,  INSTRB( binHTTPHeader, bnCRLF ) - 1 )
binHeaderData = LeftB(binHTTPHeader, INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)
strHeaderData=bin2str(binHeaderData) 
 
'读取上传文件的Content-Type 
lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:") 
strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart)) 
strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString) 
 
'读取上传的文件名 
lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34)) 
lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34)) 
strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart) 
strFileName=Trim(strFileName) 
strFileName=Replace(strFileName,vbCRLF,vbNullString) 
strPath=split(strFileName,"\")
strFileName=strPath(ubound(strPath))
 
'读取上传文件数据 
DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4 
DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart 

If strFileName<>"" Then 
	binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )
	'将上传的文件写入数据库 
	'sql="update a_liuchengbeifeng set filename='"&strFileName&"',fileContentType='"&strFileContentType&"',filevalue='"&binFieldValue&"' where id="&id
	set conn=opendb()
	'conn.execute sql
	sql="select * from a_liuchengbeifeng where ID="&id
	set rs=server.CreateObject("ADODB.Recordset") 
	rs.Open sql,conn,1,3 
	if not rs.eof then
		rs("filename")=strFileName 
		rs("fileContentType")=strFileContentType 
		rs("filevalue").AppendChunk binFieldValue 
		rs.update 
	end if
	rs.close 
	set rs=Nothing 
	conn.Close 
	set conn=Nothing 
End if 
'binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider )) 
%>
<div align="center">
  <p class="big">您已经成功添加了1个附件</p>
  <p><a href="javascript:self.close()">关闭窗口</a> </p>
</div>