m.toosi
شنبه 05 آذر 1390, 13:08 عصر
من میخوام کاربر با کلیک بر روی کلید مورد نظر ، عکسی که آپلود میکنه وارد یک پوشه خاصی بشه و datagrid وgridview و... از اون پوشه خاص عکس رو نشان بدهند
ولی هرکاری میکنم عکس در پوشه روت ذخیره میشه و از پوشه مورد نظر که من ساختم بازنمیشه
وخلاصه اطلا عکس باز نمیشه
سورس زیر چیزی هست که من نوشتم
Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
Try
Dim patch As String = "img/"
'Dim filename As String = "Image000" & maxId()
patch = FileUpload1.FileName
patch = Server.MapPath(patch)
FileUpload1.SaveAs(patch)
Dim patching As String = "~/img/"
Dim filenameing As String = "img/" & FileUpload1.FileName
cmd.Connection = cnn
cmd.CommandText = "insert into tbl_archive (titr,sum,more,pic,date) values(@titr,@sum,@more,@pic,@date)"
cmd.Parameters.AddWithValue("@titr", txttitr.Text)
cmd.Parameters.AddWithValue("@sum", txtsum.Text)
cmd.Parameters.AddWithValue("@more", txtmore.Text)
cmd.Parameters.AddWithValue("@pic", filenameing.ToString)
cmd.Parameters.AddWithValue("@date", txtdate.Text)
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
GridView1.DataBind()
lblmas.Text = "اطلاعات شما با موفقیت ثبت شد"
Catch ex As Exception
lblmas.Text = "اطلاعات ثبت نشد"
End Try
End Sub
ولی هرکاری میکنم عکس در پوشه روت ذخیره میشه و از پوشه مورد نظر که من ساختم بازنمیشه
وخلاصه اطلا عکس باز نمیشه
سورس زیر چیزی هست که من نوشتم
Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click
Try
Dim patch As String = "img/"
'Dim filename As String = "Image000" & maxId()
patch = FileUpload1.FileName
patch = Server.MapPath(patch)
FileUpload1.SaveAs(patch)
Dim patching As String = "~/img/"
Dim filenameing As String = "img/" & FileUpload1.FileName
cmd.Connection = cnn
cmd.CommandText = "insert into tbl_archive (titr,sum,more,pic,date) values(@titr,@sum,@more,@pic,@date)"
cmd.Parameters.AddWithValue("@titr", txttitr.Text)
cmd.Parameters.AddWithValue("@sum", txtsum.Text)
cmd.Parameters.AddWithValue("@more", txtmore.Text)
cmd.Parameters.AddWithValue("@pic", filenameing.ToString)
cmd.Parameters.AddWithValue("@date", txtdate.Text)
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
GridView1.DataBind()
lblmas.Text = "اطلاعات شما با موفقیت ثبت شد"
Catch ex As Exception
lblmas.Text = "اطلاعات ثبت نشد"
End Try
End Sub