gpt4 book ai didi

asp.net - 未选择文件时如何显示错误

转载 作者:行者123 更新时间:2023-12-03 08:15:17 25 4
gpt4 key购买 nike

我们经典的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">
&nbsp;&nbsp;Select New Photo: <br />
&nbsp;<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

关于asp.net - 未选择文件时如何显示错误,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12286788/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com