文件上传用ASP怎么做?

5个月前 (10-01 10:38)阅读4回复0
xxhh
xxhh
  • 管理员
  • 注册排名4
  • 经验值130435
  • 级别管理员
  • 主题26087
  • 回复0
楼主

文件地址

c

dim upfile_Stream

Class upload_F

dim Form,File,Version

Private Sub Class_Initialize

dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile

dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr

Version="upload Version 1。

  0"

if Request。TotalBytes0 and iFileNameStartiStart then

mFileSize=iEnd-iStart-4

else

mFileSize=0

end if

set theFile=new FileInfo

theFile。

  FileName=getFileName(mFileName)

theFile。FilePath=getFilePath(mFileName)

theFile。FileSize=mFileSize

theFile。FileStart=iStart+4

theFile。

  FormName=FormName

d mFormName,theFile

else

iStart=inString(iEnd+1,vbEntervbEnter)

iEnd=inString(iStart+4,vbEnterstrDiv)

if iEndiStart then

mFormValue=subString(iStart+4,iEnd-iStart-4)

else

mFormValue=""

end if

form。

  Add mFormName,mFormValue

end if

iFormStart=iformEnd+iDivLen

iFormEnd=inString(iformStart,strDiv)-1

wend

End Sub

Private Function subString(theStart,theLen)

dim i,c,stemp

upfile_Stream。

  Position=theStart-1

stemp=""

for i=1 to theLen

if upfile_Stream。EOS then Exit for

c=ascB(upfile_Stream。Read(1))

If c 127 Then

if upfile_Stream。

  EOS then Exit for

stemp=stempChr(AscW(ChrB(AscB(upfile_Stream。Read(1)))ChrB(c)))

i=i+1

else

stemp=stempChr(c)

End If

Next

subString=stemp

End function

Private Function inString(theStart,varStr)

dim i,j,bt,theLen,str

InString=0

Str=toByte(varStr)

theLen=LenB(Str)

for i=theStart to upfile_Stream。

  Size-theLen

if iupfile_ ze then exit Function

upfile_Stream。Position=i-1

if AscB(upfile_Stream。Read(1))=AscB(midB(Str,1)) then

InString=i

for j=2 to theLen

if upfile_Stream。

  EOS then

inString=0

Exit for

end if

if AscB(upfile_Stream。Read(1))AscB(MidB(Str,j,1)) then

InString=0

Exit For

end if

next

if InString0 then Exit Function

end if

next

End Function

Private Sub Class_Terminate

form。

  RemoveAll

file。RemoveAll

set form=nothing

set file=nothing

upfile_ ose

set upfile_Stream=nothing

End Sub

Private function GetFilePath(FullPath)

If FullPath "" Then

GetFilePath = left(FullPath,InStrRev(FullPath, "\"))

Else

GetFilePath = ""

End If

End function

Private function GetFileName(FullPath)

If FullPath "" Then

GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)

Else

GetFileName = ""

End If

End function

Private function toByte(Str)

dim i,iCode,c,iLow,iHigh

toByte=""

For i=1 To Len(Str)

c=mid(Str,i,1)

iCode =Asc(c)

If iCode255 Then

iLow = Left(Hex(Asc(c)),2)

iHigh =Right(Hex(Asc(c)),2)

toByte = toByte chrB("H"iLow) chrB("H"iHigh)

Else

toByte = toByte chrB(AscB(c))

End If

Next

End function

End Class

Class FileInfo

dim FormName,FileName,FilePath,FileSize,FileStart

Private Sub Class_Initialize

FileName = ""

FilePath = ""

FileSize = 0

FileStart= 0

FormName = ""

End Sub

Public function SaveAs(FullPath)

dim dr,ErrorChar,i

SaveAs=1

if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function

if FileStart=0 or right(fullpath,1)="/" then exit function

set dr=CreateObject("Adodb。

  Stream")

dr。Mode=3

dr。Type=1

dr。Open

upfile_Stream。position=FileStart-1

upfile_ pyto dr,FileSize

dr。

  SaveToFile FullPath,2

dr。Close

set dr=nothing

SaveAs=0

end function

End Class

alert('文件格式不对,请重新上传!');location='"request。

  ServerVariables("")"'"

response。end

end if

if file。FileSize0 then ''如果 FileSize 0 说明有文件数据

newname=MakedownName()"。

  "mid(file。FileName,InStrRev(file。FileName, "。")+1)

file。SaveAs ppath(formPathnewname) ''保存文件

iCount=iCount+1

else

response。

  write "未找到文件   返回"

response。end

end if

next

文件地址:

upload/"newname" ("cint(file。FileSize/1024)"K) 上传成功!"

持续上传

alert('请先选择你要上传的文件!');history。go(-1);"

response。end

end if

if (filelx"swf") and (filelx"jpg") then

response。

  write "alert('该文件类型不能上传!');history。go(-1);"

response。end

end if

if filelx="swf" then

if fileext"swf" then

response。

  write "alert('只能上传swf格式的Flash文件!');history。go(-1);"

response。end

end if

end if

if filelx="jpg" then

if fileext"gif" and fileext"jpg" then

response。

  write "alert('只能上传jpg或gif格式的图片!');history。go(-1);"

response。end

end if

end if

if filelx="swf" then

if lesize(3000*1024) then

response。

  write "alert('Flash文件大小不能超过3m!');history。go(-1);"

response。end

end if

end if

if filelx="jpg" then

if lesize(1000*1024) then

response。

  write "alert('图片文件大小不能超过1m!');history。go(-1);"

response。end

end if

end if

randomize

ranNum=int(90000*rnd)+10000

filename=filepathyear(now)month(now)day(now)hour(now)minute(now)second(now)ranNum"。

  "fileExt

0 then ''如果 FileSize 0 说明有文件数据

'file。SaveAs ppath(filename) ''保存文件

file。SaveToFile ppath(FileName)

'response。

  write file。FileName"  上传成功!  

'response。write "新文件名:"FileName"

'response。write "新文件名已复制到所需的位置,可关闭窗口!"

if filelx="swf" then

response。

  write " cument。" rm("FormName")"。 lue='"int(file。FileSize/1024)" K'"

end if

response。write " cument。" rm("FormName")"。

  " rm("EditName")"。value='"FileName"'"

ert("文件上传成功!请不要修改生成的链接地址!");

ose();

这个只是处理上传文件,还需要一个调用页来调用这个代码如下:

图片上传

正在上传文件,请稍候。

图片上传

选择文件:

0
回帖

文件上传用ASP怎么做? 期待您的回复!

取消