Imports System.Data.OleDb Imports System.Web Imports System.Web.Security Imports System.Web.UI Imports System.Web.UI.HtmlControls Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls.WebParts Partial Class _Default Inherits System.Web.UI.Page Dim c As New connection() Dim r As New Random() Dim sb As System.Text.StringBuilder Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try c.cmd = New OleDbCommand("select * from photos where username = 'nikul' ", c.cn) Call photos() Catch generatedExceptionName As NullReferenceException Response.Redirect("~/index.aspx") End Try End Sub Public Sub photos() If c.cn.State = Data.ConnectionState.Open Then c.cn.Close() c.cn.Open() c.dr = c.cmd.ExecuteReader() Dim table As New Table() Dim tr As New TableRow() Panel1.Controls.Add(table) Dim count As Integer = 0 While c.dr.Read() If count = 2 Then tr = New TableRow() count = 0 End If Dim tc As New TableCell() Dim image As New Image() image.ImageUrl = "~/photos/nikul/" & c.dr.GetValue(1).ToString() image.DescriptionUrl = "~/photos/nikul/" & c.dr.GetValue(1).ToString() image.Height = 200 image.Width = 200 tc.Controls.Add(image) tr.Controls.Add(tc) table.Controls.Add(tr) count += 1 End While c.dr.Close() End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If c.cn.State = Data.ConnectionState.Open Then c.cn.Close() c.cn.Open() If FileUpload1.HasFile Then Dim fi As New System.IO.FileInfo(FileUpload1.FileName.ToString()) If fi.Extension.ToString() = ".jpg" Or fi.Extension.ToString() = ".png" Or fi.Extension.ToString() = ".bmp" Or fi.Extension.ToString() = ".gif" Or fi.Extension.ToString() = ".jpeg" Or fi.Extension.ToString() = ".JPEG" Or fi.Extension.ToString() = ".JPG" Or fi.Extension.ToString() = ".PNG" Or fi.Extension.ToString() = ".BMP" OrElse fi.Extension.ToString() = ".GIF" Then If System.IO.Directory.Exists(Server.MapPath("~/photos/nikul")) Then Dim filename As String = r.[Next](9999).ToString() FileUpload1.SaveAs(Server.MapPath("~/photos/nikul/" & filename)) c.cmd = New OleDbCommand("insert into photos values('nikul','" & filename & "')", c.cn) c.cmd.ExecuteNonQuery() Response.Redirect("~/index.aspx") Else Dim filename As String = r.[Next](9999).ToString() System.IO.Directory.CreateDirectory(Server.MapPath("~/photos/nikul")) FileUpload1.SaveAs(Server.MapPath("~/photos/nikul/" & filename)) c.cmd = New OleDbCommand("insert into photos values('nikul','" & filename & "')", c.cn) c.cmd.ExecuteNonQuery() Response.Redirect("~/index.aspx") End If Else MsgBox("Upload Image file only......", MsgBoxStyle.Information, "Alert") End If Else MsgBox("Please select the file....", MsgBoxStyle.Information, "Alert") End If End Sub End Class
Dim filename As String = r.[Next](9999).ToString()
filename
FileUpload1.FileName.ToString()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)