用了一个无组件上传的例子,可是找不到上传的文件---help

lookin 2002-11-19 02:40:01

下面是简单的源码
test.html

<html>
<head>
<title>dasd</title>
</head>
<body>
<form name="form2" action="postimage.asp" method="post"
enctype="multipart/form-data" >
<INPUT NAME="filename" SIZE="15" MAXLENGTH="80" type="file">
<input type="submit" value="ok">
</form>
</body>
</html>

postimage.asp

formsize=request.totalbytes
formdata=request.binaryread(request.totalbytes )
bcrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bcrlf))-1)

Position=instrb(formdata,bcrlf & bcrlf)+4
filesize=instrb(Position+1,formdata,divider)-Position-4
exnamestart=instrb(1,formdata,chrb(46),1)+1
exnameend=instrb(exnamestart,formdata,chrb(34),1)
exname=midb(formdata,exnamestart,exnameend-exnamestart)

set dr=server.CreateObject("Adodb.Stream")
dr.Mode=3
dr.Type=1
dr.Open
set dr1=server.CreateObject("Adodb.Stream")
dr1.Mode=3
dr1.Type=1
dr1.Open

dr.Write formdata
dr.Position=Position-1
dr.CopyTo dr1,filesize
dr1.saveTofile "ggggggg.jpg",2
set dr=nothing
set dr1=nothing

文件运行的目录下是有写的权限的
如果上传了个jpg文件
在根目录下什么也没有
可是运行了之后也不报错
哪位给我看看有什么问题吗?谢谢了

...全文