Min vb fil...
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Net
Imports System.IO
Public Class Gallery
Inherits System.Web.UI.Page
Protected WithEvents dgImages As System.Web.UI.WebControls.DataGrid
Protected WithEvents lblCount As System.Web.UI.WebControls.Label
Protected WithEvents lblPageSize As System.Web.UI.WebControls.Label
Protected WithEvents lblImage As System.Web.UI.WebControls.Label
Protected WithEvents txtSearchText As System.Web.UI.WebControls.TextBox
Protected WithEvents ddPiDbCategory As System.Web.UI.WebControls.DropDownList
Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
Protected WithEvents ddUsDbMainIdNo As System.Web.UI.WebControls.DropDownList
Protected WithEvents phButtons As System.Web.UI.WebControls.PlaceHolder
Protected WithEvents ibFirst As System.Web.UI.WebControls.ImageButton
Protected WithEvents ibLast As System.Web.UI.WebControls.ImageButton
Protected WithEvents lblSearchText As System.Web.UI.WebControls.Label
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
'Cache.Remove("dgImages")
'Cache.Remove("ibFirst")
'Cache.Remove("ibLast")
'Cache.Remove("phButtons")
BindImages()
If Not IsPostBack Then
lblSearchText.Text = "Leiti úrslit fyri " & Chr(96) & Request.QueryString("searchtext") & Chr(96)
lblSearchText.Font.Bold = True
lblSearchText.Font.Size = FontUnit.Point(10)
Dim cmd As String = Request.QueryString("cmd")
Dim searchtext As String = Request.QueryString("searchtext")
If searchtext = "" Then searchtext = "*"
Dim searchindex As String = Request.QueryString("searchindex")
If searchindex = "" Then searchindex = "*"
Dim searchindexText As String = Request.QueryString("searchindexText")
If searchindexText = "" Then searchindexText = "*"
Dim Parent As String = Request.QueryString("parent")
If Parent = "" Then Parent = "*"
Dim PiDbCategory As String = Request.QueryString("PiDbCategory")
If PiDbCategory = "" Then PiDbCategory = "All"
Dim UsDbMainIdNo As String = Request.QueryString("UsDbMainIdNo")
If UsDbMainIdNo = "" Then UsDbMainIdNo = "All"
Dim curpage As String = Request.QueryString("Curpage")
If curpage = "" Then curpage = "1"
End If
End Sub
Sub BindImages()
phButtons.Controls.Clear()
Dim MyConnection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("Conn"))
Dim MyCommand As SqlDataAdapter
Dim sqlStr As String = "SELECT * From PiDb WHERE (PiDbPictureType <> '')"
Dim RcdCount As Integer
Dim aPicture As DataTable
Dim pics As DataRow
Dim sTable As DataTable = New DataTable("Images")
Dim Row As DataRow
aPicture = GetRecordsetArray(sqlStr)
If aPicture.Rows.Count <> 0 Then
Dim Image1 As DataColumn = New DataColumn("Image1")
Image1.DataType = System.Type.GetType("System.String")
sTable.Columns.Add(Image1)
Dim Image2 As DataColumn = New DataColumn("Image2")
Image2.DataType = System.Type.GetType("System.String")
sTable.Columns.Add(Image2)
Dim Image3 As DataColumn = New DataColumn("Image3")
Image3.DataType = System.Type.GetType("System.String")
sTable.Columns.Add(Image3)
Dim Image4 As DataColumn = New DataColumn("Image4")
Image4.DataType = System.Type.GetType("System.String")
sTable.Columns.Add(Image4)
Dim i As Integer = 1
Dim aId(3) As String
Dim aSender(3) As String
Dim aDate(3) As String
For Each pics In aPicture.Rows
Select Case i
Case 1
aId(0) = Convert.ToString(pics(0))
aSender(0) = Convert.ToString(pics(8))
aDate(0) = Convert.ToDateTime(pics(1)).ToShortDateString
Case 2
aId(1) = Convert.ToString(pics(0))
aSender(1) = Convert.ToString(pics(8))
aDate(1) = Convert.ToDateTime(pics(1)).ToShortDateString
Case 3
aId(2) = Convert.ToString(pics(0))
aSender(2) = Convert.ToString(pics(8))
aDate(2) = Convert.ToDateTime(pics(1)).ToShortDateString
Case 4
aId(3) = Convert.ToString(pics(0))
aSender(3) = Convert.ToString(pics(8))
aDate(3) = Convert.ToDateTime(pics(1)).ToShortDateString
Row = sTable.NewRow()
Row.Item("Image1") = ShowImage(aId(0), aSender(0), aDate(0))
Row.Item("Image2") = ShowImage(aId(1), aSender(1), aDate(1))
Row.Item("Image3") = ShowImage(aId(2), aSender(2), aDate(2))
Row.Item("Image4") = ShowImage(aId(3), aSender(3), aDate(3))
sTable.Rows.Add(Row)
Row = Nothing
aId(0) = ""
aId(1) = ""
aId(2) = ""
aId(3) = ""
aSender(0) = ""
aSender(1) = ""
aSender(2) = ""
aSender(3) = ""
aDate(0) = ""
aDate(1) = ""
aDate(2) = ""
aDate(3) = ""
i = 0
dgImages.SelectedIndex = 4
End Select
i += 1
Next
End If
Dim DS As DataSet
DS = New DataSet()
DS.Tables.Add(sTable)
MyCommand = New SqlDataAdapter(sqlStr, MyConnection)
RcdCount = DS.Tables("Images").Rows.Count.ToString()
dgImages.PageSize = 3
If Not Page.IsPostBack Then
dgImages.CurrentPageIndex = 0
End If
Try
dgImages.DataSource = DS
dgImages.DataBind()
Catch e As Exception
dgImages.CurrentPageIndex = 0
End Try
lblCount.Text = aPicture.Rows.Count & " myndir funnar á " & dgImages.PageCount & " síðum."
lblPageSize.Text = "Vísir" & (dgImages.PageSize * 4) & " myndir á hvørji síðu"
Dim j As Integer
For j = 0 To (dgImages.PageCount - 1)
Dim lbPage As New LinkButton()
lbPage.CommandArgument = j
lbPage.CausesValidation = False
lbPage.Font.Bold = False
AddHandler lbPage.Click, AddressOf PagerButtonClick
If j = dgImages.CurrentPageIndex Then
lbPage.Font.Bold = True
lbPage.Text = "(" & (j + 1) & ")"
Else
lbPage.Text = " " & Convert.ToString(j + 1) & " "
End If
phButtons.Controls.Add(lbPage)
phButtons.DataBind()
lbPage.Dispose()
Next
End Sub
Sub PagerButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim arg As Integer = sender.CommandArgument
dgImages.CurrentPageIndex = arg
BindImages()
End Sub
Sub PagerImageClick(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Dim arg As String = sender.CommandArgument
Select Case arg
Case "first"
dgImages.CurrentPageIndex = 0
Case "last"
dgImages.CurrentPageIndex = dgImages.PageCount
End Select
BindImages()
End Sub
Private Function ShowImage(ByVal aId As String, ByVal aPics As String, ByVal aDate As String) As String
ShowImage = "<td width=""25%"">" _
& "<table border=""0"">" _
& "<tr>" _
& "<td height=""70"" valign=""middle"" align=""center"" style=""border: 1 solid #C0C0C0"">" _
& "<a href=""showpicture.aspx?PiDBMainIdNo=" & aId & "&searchtext=*&searchindex=*&searchindexText=*&parent=*&PiDbCategory=All&Indexno=1&curpage=1&NumOfRecs=95&PiDBOwnerId=32&UsDbMainIdNo=All"">" _
& "<img src=""images/70_70_" & aId & ".jpg"" alt="""" name=""mainpic"" align=""center"" align=""absmiddle"" border=""0""></a>" _
& "</tr>" _
& "<tr>" _
& "<td>" _
& "Sendari: " & aPics & "<br>" _
& "Lagt afturat: " & aDate _
& "</td>" _
& "</tr>" _
& "</table>" _
& "</td>"
End Function
'******************** Database functions **********************
Public Function GetRecordsetArray(ByVal sSQL As String) As DataTable
Dim Connection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("Conn"))
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
Dim dt As DataTable = New DataTable()
Try
adapter.SelectCommand = New SqlCommand(sSQL, Connection)
adapter.Fill(dt)
Return dt
Catch sqlEx As SqlException
Response.Write(sqlEx.ToString)
Catch Ex As Exception
Response.Write(Ex.ToString)
Finally
Connection.Close()
Connection.Dispose()
End Try
End Function
Public Sub ExeQuery(ByVal sSQL As String)
Dim Connection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("Conn"))
Dim Command As SqlCommand = New SqlCommand(sSQL, Connection)
Try
Connection.Open()
Command.ExecuteNonQuery()
Catch ex As Exception
Response.Write(ex.ToString)
Finally
Connection.Close()
Connection.Dispose()
End Try
End Sub
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
End Sub
End Class
Ny bruger
Nybegynder
Opret
Preview
