我们经典的ASP应用程序使用一个.aspx页面为每个客户端上载图像。
我对ASP.net不太熟悉，因此我很难理解此页面。
<html>
<head>
<link href="css/style.css" rel="stylesheet" type="text/css" />
<script language="VB" RunAt="Server">
Sub Page_Load(Sender As Object, e As EventArgs)
Span1.InnerHtml = "You may not upload a file larger than 250 Kilobytes. Your image must be in JPG format.<br />Please crop your image to 400 pixels high and 300 pixels wide, so that no distortion will occur when displayed.<br /><br />"
End Sub
Sub Upload_Click(Sender As Object, e As EventArgs)
Dim DistributorID As Integer
DistributorID = request.QueryString("distID")
' Display properties of the uploaded file
'Let us recover only the file name from its fully qualified path at client
Dim strFileName As String
strFileName = MyFile.PostedFile.FileName
Dim c As String = CStr(DistributorID) & "." & split(System.IO.Path.GetFileName(strFileName), ".")(1) ' The file name is the distid + the extension
'Let us Save uploaded file to server
If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(0)) = "" Then
Span1.InnerHtml = "Please select a Photo.<br /><br />"
End If
If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(1)) <> "jpg" Then
Span1.InnerHtml = "Invalid file format."
Else
If MyFile.PostedFile.ContentLength < 250000 Then
MyFile.PostedFile.SaveAs(ConfigurationSettings.AppSettings("DistImagePath") + c)
Span1.InnerHtml = "Your file imported sucessfully to the server.<br /><br />"
Else
Span1.InnerHtml = "Your file is too large to import.<br /><br />"
End If
End If
End Sub
</script>
</head>
<body>
<span id="Span1" style="color:Red;" RunAt="Server" />
<form method="Post" enctype="Multipart/Form-Data" RunAt="Server" class="stdform stdform2">
Select New Photo: <br />
<input id="MyFile" type="File" runat="Server" size="40" /><br /><br />
<span style="padding-left:25px;">
<button type="Submit" value="Import" OnServerclick="Upload_Click" RunAt="Server">Upload New Photo</button>
</span>
</form>
</body>
如果未选择任何文件并按下了“上传新照片”按钮，
“指数数组的边界之外。”错误
如果未选择照片，我该如何解决此页面不尝试上传照片的问题？
最佳答案
您可以将所有内容包含在IF中，如下所示:
IF MyFile.PostedFile.ContentLength>0 Then 'User selected a file
'All your code here
Else
Span1.InnerHtml = "Your did not select a file.<br /><br />"
End IF
完整代码:
Sub Upload_Click(Sender As Object, e As EventArgs)
IF MyFile.PostedFile.ContentLength>0 Then
Dim DistributorID As Integer
DistributorID = request.QueryString("distID")
' Display properties of the uploaded file
'Let us recover only the file name from its fully qualified path at client
Dim strFileName As String
strFileName = MyFile.PostedFile.FileName
Dim c As String = CStr(DistributorID) & "." & split(System.IO.Path.GetFileName(strFileName), ".")(1) ' The file name is the distid + the extension
'Let us Save uploaded file to server
If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(0)) = "" Then
Span1.InnerHtml = "Please select a Photo.<br /><br />"
End If
If LCase(Split(System.IO.Path.GetFileName(strFileName), ".")(1)) <> "jpg" Then
Span1.InnerHtml = "Invalid file format."
Else
If MyFile.PostedFile.ContentLength < 250000 Then
MyFile.PostedFile.SaveAs(ConfigurationSettings.AppSettings("DistImagePath") + c)
Span1.InnerHtml = "Your file imported sucessfully to the server.<br /><br />"
Else
Span1.InnerHtml = "Your file is too large to import.<br /><br />"
End If
End If
Else
Span1.InnerHtml = "Your did not select a file.<br /><br />"
End IF
End Sub