Dim FullFileName As String = File1.PostedFile.FileName Dim FileName As String = FullFileName.Substring(FullFileName.LastIndexOf("\") + 1) Dim Type As String = FullFileName.Substring(FullFileName.LastIndexOf(".") + 1) Type = StrConv(Type, VbStrConv.LowerCase) If Type = "rar" Then If File.Exists(Server.MapPath("files") + "\" + FileName) = False Then File1.PostedFile.SaveAs(Server.MapPath("files") + "\" + FileName) Response.Write("<Script>alert('上传成功!');</script>") Else Response.Write("<Script>alert('您要上传的文件和服务器中已经存在的文件同名,请更名后重新上传!');</script>") End If Else Response.Write("<Script>alert('您上传的文件不是合法格式!');</script>") End If
{
this.RegisterStartupScript("UserNote","<Script language='javascript'>alert('对不起,您只能上传 .rar 格式的压缩文件!');</Script>");
return;
}
Dim FileName As String = FullFileName.Substring(FullFileName.LastIndexOf("\") + 1)
Dim Type As String = FullFileName.Substring(FullFileName.LastIndexOf(".") + 1)
Type = StrConv(Type, VbStrConv.LowerCase)
If Type = "rar" Then
If File.Exists(Server.MapPath("files") + "\" + FileName) = False Then
File1.PostedFile.SaveAs(Server.MapPath("files") + "\" + FileName)
Response.Write("<Script>alert('上传成功!');</script>")
Else
Response.Write("<Script>alert('您要上传的文件和服务器中已经存在的文件同名,请更名后重新上传!');</script>")
End If
Else
Response.Write("<Script>alert('您上传的文件不是合法格式!');</script>")
End If
<INPUT id="myFile" type="file" onchange="checkData()" size="34" runat="server" NAME="myFile"><script>
function checkData()
{
var fileName=document.getElementById("myFile").value;
if(fileName=="")
return;
var exName=fileName.substr(fileName.lastIndexOf(".")+1).toUpperCase()
//alert(exName)
if(exName=="RAR")
{
表示正确
}
else
{
表示错误,进行一些处理
}
}
</script>