58 lines
2.1 KiB
VB.net
58 lines
2.1 KiB
VB.net
|
|
Partial Class login_CreateUser
|
|
Inherits System.Web.UI.Page
|
|
|
|
|
|
Protected Sub FileUpload_Mobile_Init(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Protected Sub FileUpload_Desktop_Init(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Protected Sub LinkButton1_Click(sender As Object, e As EventArgs)
|
|
Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg", "doc", "xls"}
|
|
Dim ext As String = System.IO.Path.GetExtension(FileUpload_Mobile.PostedFile.FileName)
|
|
Dim isValidFile As Boolean = False
|
|
For i As Integer = 0 To validFileTypes.Length - 1
|
|
If ext = "." & validFileTypes(i) Then
|
|
isValidFile = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not isValidFile Then
|
|
lblMessage_mob.ForeColor = System.Drawing.Color.Red
|
|
lblMessage_mob.Text = "Invalid File. Please upload a File with extension " &
|
|
String.Join(",", validFileTypes)
|
|
Else
|
|
lblMessage_mob.ForeColor = System.Drawing.Color.Green
|
|
lblMessage_mob.Text = "File uploaded successfully."
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub btn_Save_Changes_Click(sender As Object, e As EventArgs)
|
|
Dim validFileTypes As String() = {"bmp", "gif", "png", "jpg", "jpeg", "doc", "xls"}
|
|
Dim ext As String = System.IO.Path.GetExtension(FileUpload_Desktop.PostedFile.FileName)
|
|
Dim isValidFile As Boolean = False
|
|
For i As Integer = 0 To validFileTypes.Length - 1
|
|
If ext = "." & validFileTypes(i) Then
|
|
isValidFile = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not isValidFile Then
|
|
lbl_message_desktop.ForeColor = System.Drawing.Color.Red
|
|
lbl_message_desktop.Text = "Invalid File. Please upload a File with extension " &
|
|
String.Join(",", validFileTypes)
|
|
Else
|
|
lbl_message_desktop.ForeColor = System.Drawing.Color.Green
|
|
lbl_message_desktop.Text = "File uploaded successfully."
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|