for i =0 to request.files.count -1
dim file as http postedfile =request.files(i)
if file.contentlength<> 0 then '可以用file.ContentLength得到文件大小,file.FileName得到完整文件名,file.ContentType得到文件类型.
Dim FileSplit() As String = Split(File.FileName,"\") '取出文件名,不带盘符.后缀.
Dim FileName As String =Filesplit(Filesplit.Length-1)
File.SaveAs(server.MapPath(filename)) '存入本网页的目录
end if
next
<script language="vb"runat="serveer">
sub file as httpposetedfile=FileUp.Postedfile
if file.contentlength<> 0 then '可以用file.ContentLength得到文件大小,file.FileName得到完整文件名,file.ContentType得到文件类型.
Dim FileSplit() As String = Split(File.FileName,"\") '取出文件名,不带盘符.后缀.
Dim FileName As String =Filesplit(Filesplit.Length-1)
File.SaveAs(server.MapPath(filename)) '存入本网页的目录
end if
end sub
</script>