mohsen_t1
چهارشنبه 29 آذر 1391, 11:46 صبح
با سلام به دوستان
من یک گالری عکس ایجاد کردم که اطلاعات عکسها و /ادرس در دیتا بیس ذخییره می شود .
برای نمایش عکس ها من اطلاعاتو رو از دیتا بیس می خونم و به صورت کد html اونها رو در لیترال قرار می دم ولی عکسها نمایش داده نمی شن . آدرس عکسها درست است.
این کد من . دوستان مشکل چیه :
If Not Me.Page.IsPostBack Then
Dim connection As New SqlConnection(ConfigurationManager.ConnectionStrin gs("connection").ToString)
Dim cmd As New SqlCommand("", connection)
Dim conter As Integer = 0 ' شمارنده تعداد خانه های افقی هر سطر جدول
cmd.CommandText = "SELECT LTRIM(PicAddress) AS PicAddress FROM TBGallery"
connection.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
Dim str As String = vbNullString
str = "<table><tr> "
'<table> <a href="photo/Wallpaper 001.jpg" rel="lightbox[roadtrip]">"photo/Wallpaper 001_small.jpg" alt="عکس 1" /></a>
While dr.Read()
If conter < 5 Then
str &= "<td><a href='{0}'rel='lightbox[roadtrip]' ><img src=' {1}' width='100' height='65' border='0'></a> </td>"
str = String.Format(str, dr("PicAddress").ToString(), dr("PicAddress").ToString())
conter = conter + 1
Else
str &= "</tr><tr><td><a href='{0}'rel='lightbox[roadtrip]' ><img src=' {1}' width='100' height='65' border='0'></a> </td>"
str = String.Format(str, dr("PicAddress").ToString(), dr("PicAddress").ToString())
conter = 1
End If
End While
str &= "</tr></table>"
litimage.Text = str
End If
connection.Close()
End If
کد html به درستی ایجاد می شود
این کد یک جدول ایجاد می کند که در هر خانه عکس ها با سایز کوچکتر نمایش داده می شن و لینک اونها به عکس بزرگتر است
rel تابع جاوا رو فراخوانی می کنه برای نمایش عکس بزرگتر
من یک گالری عکس ایجاد کردم که اطلاعات عکسها و /ادرس در دیتا بیس ذخییره می شود .
برای نمایش عکس ها من اطلاعاتو رو از دیتا بیس می خونم و به صورت کد html اونها رو در لیترال قرار می دم ولی عکسها نمایش داده نمی شن . آدرس عکسها درست است.
این کد من . دوستان مشکل چیه :
If Not Me.Page.IsPostBack Then
Dim connection As New SqlConnection(ConfigurationManager.ConnectionStrin gs("connection").ToString)
Dim cmd As New SqlCommand("", connection)
Dim conter As Integer = 0 ' شمارنده تعداد خانه های افقی هر سطر جدول
cmd.CommandText = "SELECT LTRIM(PicAddress) AS PicAddress FROM TBGallery"
connection.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
If dr.HasRows Then
Dim str As String = vbNullString
str = "<table><tr> "
'<table> <a href="photo/Wallpaper 001.jpg" rel="lightbox[roadtrip]">"photo/Wallpaper 001_small.jpg" alt="عکس 1" /></a>
While dr.Read()
If conter < 5 Then
str &= "<td><a href='{0}'rel='lightbox[roadtrip]' ><img src=' {1}' width='100' height='65' border='0'></a> </td>"
str = String.Format(str, dr("PicAddress").ToString(), dr("PicAddress").ToString())
conter = conter + 1
Else
str &= "</tr><tr><td><a href='{0}'rel='lightbox[roadtrip]' ><img src=' {1}' width='100' height='65' border='0'></a> </td>"
str = String.Format(str, dr("PicAddress").ToString(), dr("PicAddress").ToString())
conter = 1
End If
End While
str &= "</tr></table>"
litimage.Text = str
End If
connection.Close()
End If
کد html به درستی ایجاد می شود
این کد یک جدول ایجاد می کند که در هر خانه عکس ها با سایز کوچکتر نمایش داده می شن و لینک اونها به عکس بزرگتر است
rel تابع جاوا رو فراخوانی می کنه برای نمایش عکس بزرگتر