1Imports System 
 2Imports System.Data 
 3Imports System.Configuration 
 4Imports System.Collections 
 5Imports System.Web 
 6Imports System.Web.Security 
 7Imports System.Web.UI 
 8Imports System.Web.UI.WebControls 
 9Imports System.Web.UI.WebControls.WebParts 
10Imports System.Web.UI.HtmlControls 
11Imports System.Data.OleDb 
12Imports System.IO 
13
14Public Partial Class upfile_uploadClass upfile_upload 
15    Inherits System.Web.UI.Page 
16    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
17        If Session("loginname") Is Nothing OrElse Session("loginname").ToString() = "" Then 
18            Response.Write("<script>alert('用户登录时间超时,请重新登录');document.location='/admin.aspx'</script>") 
19            Response.[End]() 
20        End If 
21    End Sub 
22
23    Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) 
24        If Session("loginname") Is Nothing OrElse Session("loginname").ToString() = "" Then 
25            Response.Write("<script>alert('用户登录时间超时,请重新登录');document.location='/admin.aspx'</script>") 
26            Response.[End]() 
27        End If 
28        Dim strlen As Integer = 0 
29        Dim fileOK As Boolean = False 
30        Dim path As String = Server.MapPath("~/images/") 
31        If FileUpload1.HasFile Then 
32            Dim fileExtension As String = System.IO.Path.GetExtension(FileUpload1.FileName).ToLower() 
33            strlen = FileUpload1.FileName.Length 
34            Dim allowedExtensions As String() = {".gif", ".png", ".jpeg", ".jpg"} 
35            For i As Integer = 0 To allowedExtensions.Length - 1 
36                If fileExtension = allowedExtensions(i) Then 
37                    fileOK = True            
38                End If
39            Next 
40        End If 
41
42        If strlen > 0 Then 
43            If fileOK Then 
44                Try 
45                    Dim fullName As String = FileUpload1.FileName 
46                    Dim rd As New Random() 
47                    Dim valationNo As Integer = 10 + rd.[Next](99) 
48                    Dim suiji As String = valationNo.ToString() 
49                    Dim newName As String = System.DateTime.Now.ToString("yyyyMMddhhmmss") + suiji + fullName.Substring(fullName.LastIndexOf(".")) 
50                    Dim d As DateTime = DateTime.Now 
51                    FileUpload1.PostedFile.SaveAs(path + "/" + newName) 
52                    Label1.Text = "图片上传成功，图片地址为 /images/" + newName 
53                    Catch err As Exception 
54                        Dim str As String = err.Message.Replace("'", "") 
55                        Response.Write("<script>alert('" + str + "');</script>") 
56                End Try 
57            Else 
58                Response.Write("<script language='javascript'>window.confirm('文件格式不正确！！');</script>") 
59                Response.Write("<script language='javascript'>history.go(-1);</script>") 
60            End If 
61        Else 
62            Response.Write("<script language='javascript'>window.confirm('请选择图片文件！！');</script>") 
63            Response.Write("<script language='javascript'>history.go(-1);</script>") 
64        End If 
65            
66    End Sub 
67End Class