Set obj = Server.CreateObject("LyfUpload.UploadFile") '建立上传对象
obj.Maxsize=2048000 '设置上传文件最大为2M
obj.ExtName="gif,jpg,bmp"

filedaxiao=obj.FileSize'得到文件的大小
if filedaxiao<0 then
response.write "<font size=2>请先选择你要上传的图片　[ <a href=# onclick=history.go(- 1)>重新上传</a> ]</font>"
response.end
end if
if filedaxiao>1000000 then
response.write "<font size=2>图片大小超过了限制　[ <a href=# onclick=history.go(-1) >重新上传</a> ]</font>"
response.end
end if
fileExt=lcase(obj.filetype("file1")) '得到文件的类型
if fileExt<>".gif" or fileExt<>".jpg" or fileExt<>".bmp" then
response.write "<font size=2>文件格式不对　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
response.end
end if
ranNum=int(9000000*rnd)+10000
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&file1
ss=obj.SaveFile("filename", "\photo", true) '保存文件到服务器

我用的是有组件上传，组件是LyfUpload v1.2
老是提示这行Set obj = Server.CreateObject("LyfUpload.UploadFile")有错误
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'Server.HTMLEncode'
怎么回事啊，各位大侠！！！

上传表单中的enctype属性是否设置了？

设置为<form method="post" name="form1" action="" enctype="multipart/form-data">

谢谢啊~
设置了就好了
不过 fileExt=lcase(obj.filetype("file1")) '得到文件的类型
if fileExt<>".gif" or fileExt<>".jpg" or fileExt<>".bmp" then
response.write "<font size=2>文件格式不对　[ <a href=# onclick=history.go(-1)>重新上传</a> </font>"
response.end
end if
这里又有问题了，不管传什么文件类型都说文件格式不对，汗。。郁闷！！