28,391
社区成员
发帖
与我相关
我的任务
分享用AspUpload上传多个文件如何区别？
请问一下，用AspUpload上传多个文件时如何知道其对应关系？比如，有file1，和file2，当用户只上传一个时，怎么知道是file1还是file2？另外，如果我想把两个文件分别保存到不同的文件夹，怎么办呢？
...全文
请发表友善的回复…
发表回复
andyguo370 2005-10-11
- 打赏
- 举报
客户端
<html>
<head>
<title>上传文件</title>
</head>
<body>
<center>
<form action="jobupload.asp" method="post" enctype="multipart/form-data" >
请选择您要上传的文件:<input type="file" name="upjob"><BR>
<input type="submit" value="确定">
</form>
</center>
</body>
</html>
服务器端
<%
Path=upload.files("upjob").Path
Size=upload.files("upjob").Size
%>
<html>
<head>
<title>上传文件</title>
</head>
<body>
<center>
<form action="jobupload.asp" method="post" enctype="multipart/form-data" >
请选择您要上传的文件:<input type="file" name="upjob"><BR>
<input type="submit" value="确定">
</form>
</center>
</body>
</html>
服务器端
<%
Path=upload.files("upjob").Path
Size=upload.files("upjob").Size
%>
youyiwuyi 2005-10-10
- 打赏
- 举报
没人有过类似的需求吗?
youyiwuyi 2005-10-10
- 打赏
- 举报
没人有过类似的需求吗?
youyiwuyi 2005-10-09
- 打赏
- 举报
谢谢 andyguo370(andyguo370)!
但是,是不是我没把问题说明白?假如我的form1有file1和file2,数据库也有f1和f2两列,如果用户只选择了上传file1,那么上传后我就把文件名保存在f1列,如果用户只选择了上传file2,那么上传后我就把文件名保存在f2列.问题是,我怎么知道用户上传的是file1还是file2?
但是,是不是我没把问题说明白?假如我的form1有file1和file2,数据库也有f1和f2两列,如果用户只选择了上传file1,那么上传后我就把文件名保存在f1列,如果用户只选择了上传file2,那么上传后我就把文件名保存在f2列.问题是,我怎么知道用户上传的是file1还是file2?
andyguo370 2005-10-09
- 打赏
- 举报
<SCRIPT RUNAT=SERVER LANGUAGE="JavaScript">
function getfileextraname(string_value)
{
string_value=trim_spaces(string_value);
var index=string_value.length-1;
while(index>=0&&string_value.charAt(index)!=".")
{
index--;
}
if(index!=-1)
{
return string_value.substring(index+1,string_value.length)
}
else
{
return "";
}
}
function trim_spaces(string_value)
{
var start;
var end;
start=0;
end=string_value.length-1;
while(string_value.charAt(start)==" ")
{
start++;
}
while(string_value.charAt(end)==" ")
{
end--;
}
return string_value.substring(start,end+1);
}
function get_newfilename()
{
var Date_obj=new Date();
return "IMG"+Date_obj.getTime();
}
</SCRIPT>
<%
FileSavePath="UploadIMG/"
Response.Buffer=True
Set Upload=Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 8*1024*1024,True
Upload.OverwriteFiles=False
Upload.ProgressID=Request("PID")
Count=Upload.Save(Server.MapPath(FileSavePath))
FileCount=0
For Each File In Upload.Files
FileCount=FileCount+1
FileName=GetFileName(File.Path)
FileType=getfileextraname(FileName)
IF FileType<>"" Then
NewFileName=get_newfilename()&FileCount&"."&FileType
Else
NewFileName=get_newfilename()&FileCount
End IF
File.Move Server.MapPath(FileSavePath)&"\"&NewFileName
FileTypeStr=UCase(FileType)
IF FileTypeStr<>"ASP" And FileTypeStr<>"EXE" And FileTypeStr<>"COM" And FileTypeStr<>"DLL" Then '这里你可增加你监控其它的非法文件类型
'合法文件，你怎么处理是你的事那
Else
'非法文件则删除
File.Delete
End IF
Next
%>
function getfileextraname(string_value)
{
string_value=trim_spaces(string_value);
var index=string_value.length-1;
while(index>=0&&string_value.charAt(index)!=".")
{
index--;
}
if(index!=-1)
{
return string_value.substring(index+1,string_value.length)
}
else
{
return "";
}
}
function trim_spaces(string_value)
{
var start;
var end;
start=0;
end=string_value.length-1;
while(string_value.charAt(start)==" ")
{
start++;
}
while(string_value.charAt(end)==" ")
{
end--;
}
return string_value.substring(start,end+1);
}
function get_newfilename()
{
var Date_obj=new Date();
return "IMG"+Date_obj.getTime();
}
</SCRIPT>
<%
FileSavePath="UploadIMG/"
Response.Buffer=True
Set Upload=Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 8*1024*1024,True
Upload.OverwriteFiles=False
Upload.ProgressID=Request("PID")
Count=Upload.Save(Server.MapPath(FileSavePath))
FileCount=0
For Each File In Upload.Files
FileCount=FileCount+1
FileName=GetFileName(File.Path)
FileType=getfileextraname(FileName)
IF FileType<>"" Then
NewFileName=get_newfilename()&FileCount&"."&FileType
Else
NewFileName=get_newfilename()&FileCount
End IF
File.Move Server.MapPath(FileSavePath)&"\"&NewFileName
FileTypeStr=UCase(FileType)
IF FileTypeStr<>"ASP" And FileTypeStr<>"EXE" And FileTypeStr<>"COM" And FileTypeStr<>"DLL" Then '这里你可增加你监控其它的非法文件类型
'合法文件，你怎么处理是你的事那
Else
'非法文件则删除
File.Delete
End IF
Next
%>
youyiwuyi 2005-10-09
- 打赏
- 举报
没人有过类似的需求吗?
