如题~~~如果能的话具体应该怎样做???

最好能给出代码^_^

先谢过了

不可以

你先学会无组件上传数据库,然后学组件上传文件夹

因为无组件上传简单,这里的教程不错
http://tech.china.com/zh_cn/netschool/homepage/asp/3997/20000816/220114.htm

组件上传文件夹,这是我写的,学会上面的再来研究它
http://blog.bc-cn.net/user22/155960/archives/2007/7604.shtml

[此贴子已经被作者于2007-8-17 16:20:44编辑过]

[CODE]<%
a=Request.TotalBytes
if a>0 Then
Set c=Createobject("adodb.stream")
c.Type=1
c.Open
c.Write Request.BinaryRead(a)
c.Position=0

d=c.Read
e=chrB(13)&chrB(10)
f=Instrb(d,e)
g=Instrb(f+1,d,e)

set h=Createobject("adodb.stream")
h.Type=1
h.Open
c.Position=f+1
c.Copyto h,g-f-3
h.Position=0
h.type=2
h.CharSet="BIG5"
i=h.Readtext
h.close

j=mid(i,InstrRev(i,"\")+1,g)

if instr("jsp/asp/aspx/exe/php/html/htm/...",right(j,len(j)-instr(j,".")))>0 then
session("error")="您要上传不允许的文件"
response.redirect("error.asp")
end if

j=replace(date,"-","")&right(j,len(j)-instr(j,".")+1)

set fso=server.createobject("scripting.filesystemobject")
if fso.FileExists(server.mappath(j)) then
i=1
msg=true
do while msg
m=left(j,instr(j,".")-1)&"("&i&")"&right(j,len(j)-instr(j,".")+1)
if not fso.FileExists(server.mappath(m)) then
j=m
msg=false
end if
i=i+1
loop
end if
set fso=nothing

k=Instrb(d,e&e)+4
l=Instrb(k+1,d,leftB(d,f-1))-k-2
h.Type=1
h.Open
c.Position=k-1
c.CopyTo h,l
h.SaveToFile server.mappath(j),2
end if
%>
<form enctype=multipart/form-data method=post>
<input type=file name=n />
<input name="submit" type=submit value="提交" />
</form> [/CODE]

这是我刚才在网上找到的代码...可以上传啊~~~
但我看不明~~~上传之后的文件都是以系统日期命名的,后缀没变
能解释一下吗??

Set c=Createobject("adodb.stream")这个是用来上传的


set fso=server.createobject("scripting.filesystemobject")这个是用来判断是否有这个文件或者是文件夹的
然后再处理,如:没文件夹就用这个建一个,有就算了

[此贴子已经被作者于2007-8-17 18:21:22编辑过]