سلام
اول از مدیر محترم خواهش میکنم تاپیک بنده را حذف نکنند.من خیلی وقته که درگیر این مشکل هستم و متاسفانه حل نشده.به خاطر همین تصمیم گرفتم در این تاپیک شرحی از کارهای انجام شده را بنویسم تا دوستان بهتر بتوانند کمک کنند.
(من میخواهم خصوصیات تبلیغات در سایت را تنظیم کنم از قبیل اندازه تصاویر و تعداد کلیک و لینک به صفحه مورد نظر و غیره)
من از کد زیر برای ذخیره تصویر استفاده کردم
Dim id AsInteger
id = textbox1.text
' Create a byte[] from the input file
Dim len AsInteger = FileUpload1.PostedFile.ContentLength
Dim pic() AsByte = NewByte(len) {}
FileUpload1.PostedFile.InputStream.Read(pic, 0, len)
' Insert the image and comment into the database
Dim connection AsNew SqlConnection(ConfigurationManager.ConnectionStrin gs("ssgshopConnectionString").ConnectionString)
Try
connection.Open()
Dim cmd As SqlCommand
cmd = New SqlCommand("insert into tablighat " + "(Picture, Commen,PicId) values (@pic, @text,@picId)", connection)
cmd.Parameters.Add("@pic", pic)
cmd.Parameters.Add("@text", "Your Comment")
cmd.Parameters.Add("@picId", id)
cmd.ExecuteNonQuery()
Finally
connection.Close()
EndTry
برای بازیابی تصویر نیز از کد زیر استفاده کردم(در صفحه retriveimage.aspx)
PrivateSub Page_Load(ByVal sender AsObject, ByVal e As System.EventArgs)
' Put user code to initialize the page here
Dim id AsString
id = Request.QueryString("id")
Dim stream As MemoryStream = New MemoryStream()
Dim connection AsNew SqlConnection(ConfigurationManager.ConnectionStrin gs("ssgshopConnectionString").ConnectionString)
Try
connection.Open()
Dim command As SqlCommand
command = New SqlCommand("select Picture from tablighat where picid=" + 1, connection)
Dim image() AsByte = CType(Command.ExecuteScalar(), Byte())
stream.Write(image, 0, image.Length)
Dim bitmap As bitmap = New Bitmap(stream)
Response.ContentType = "image/jpeg"
bitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
Finally
connection.Close()
stream.Close()
EndTry
EndSub
بعد در یک usercontrol از کد زیر استفاده کردم
Inherits System.Web.UI.UserControl
Dim _id AsString
PublicProperty AdvertisId() AsString
Get
ReturnMe._id
EndGet
Set(ByVal value AsString)
Me._id = value
Call FillInfo()
EndSet
EndProperty
PublicSub FillInfo()
Image1.ImageUrl = "D:/Documents and Settings/fereshte/My Documents/Visual Studio 2005/shop/reteriveimage.aspx?id=" + (Me._id)
EndSub
ودر صفحه ای دیگر برای نمایش تصاویر یک گریدویو قرار دادم وگرید ویو را با usercontrol پر کردم.
<asp:GridViewID="GridView1"runat="server"AutoGenerateColumns="False"DataSourceID="SqlDataSource1">
<Columns>
<asp:TemplateField>
<ItemTemplate>
<uc1:tablighatID="Tablighat1"runat="server"advertisID="<% Eval('picid') %>"/>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
خواهش میکنم دوستان یه نگاهی به این کد بندازند و به من کمک کنند که بدونم مشکل کار چیه؟
چرا هیچ تصویری نمایش داده نمیشود.؟
در ضمن اگر دوستان پیشنهادی در مورد تنظیم تبلیغات در سایت دارند ممنون میشوم راهنمایی کنند.