传销卧底视频在线观看:求教ASP上传文件的问题

为什么不用DW上传呢？很方便啊

<%
Function bin2str(binstr) '将二进数 转为 字符函数
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

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
Dim bncrlf,formsize,formdata,divir,star1,end1,part1, firstline,fldvalue
bncrlf = chrb(13)&chrb(10)
formsize = Request.totalbytes
formdata = Request.binaryread(formsize)
divir = LeftB(formdata,clng(InstrB(formdata,bncrlf))-1)
star1 = instrb(formdata,divir)+lenb(divir)+lenb(bncrlf)
end1 = instrb(star1,formdata,divir)-lenb(bncrlf)
part1 = Midb(formdata,star1,end1-star1)

fldvalue = Midb(part1,instrb(part1,bncrlf&bncrlf)+lenb(bncrlf&bncrlf),lenb(part1)-instrb(part1,bncrlf&bncrlf)+lenb(bncrlf)-2)
firstline = midb(part1, 1, instrb(part1, bncrlf)-1) ' 内容之前的说明段
c=bin2str(firstline)
namepos=instrrev(bin2str(firstline),"\")
filename=mid(c,namepos+1,len(c)-namepos-1) '获得文件名称

set str=server.CreateObject("ADODB.Stream") 'str为源数据流
str.Mode=3 '设置打开模式，3为可读可写
str.Type=1 '设置数据类型，1为二进制数据
str.Open
set desc=server.CreateObject("ADODB.Stream") 'desc为目标数据流
desc.Mode=3
Desc.Type=1
desc.Open

str.Write formdata ' 赋值源数据流
str.position=lenb(formdata)-lenb(fldvalue)-lenb(divir)-lenb(bncrlf)-4

str.copyto desc, lenb(fldvalue)

desc.SaveToFile "E:\file\"&filename,2 '此处的 E:\file\ 可随意改为自己喜欢的文件夹存放文件

Desc. Close
Set desc=nothing
Str. Close
Set STR=nothing

%>

既然有了Ftp上传权限，就没有必要使用页面上传了，服务器对解释脚本运行时间是有限制的，所以在上传文件时回受到网速的限制，所以不建议你使用。