ورود

View Full Version : مشکل در گذاشتن عکس



keyvanB
دوشنبه 29 آبان 1385, 12:38 عصر
میخواهم یک خبر جدید را که عکس هم داره روی سایت بصورت داینامیک آپلود کنم
راه حل مناسب کدومه
1.فیلد دیتا بیس رو از نوع image بذارم و insert کنم
2. فیلد رو از نوع char بذارم و آدرس عکس رو قرار بدم
در مورد آپلود کردن فایل هم یک راهنمایی بکنید ممنون میشم

eshaghi
دوشنبه 29 آبان 1385, 13:41 عصر
با عرض سلام:
فیلد را از نوع char و آدرس عکس را در فیلد
کد ذیل نمونه خوبی است
Dim slash As Integer
Dim str, filesize, filename As String
If Right(op.PostedFile.FileName, 4) <> ".jpg" Then
Label11.Text = "وارد کنید.jpg فایل "
ElseIf op.PostedFile.FileName <> "" Then
slash = InStrRev(op.PostedFile.FileName, "\")
filename = Right(op.PostedFile.FileName, Len(op.PostedFile.FileName) - slash)
filesize = op.PostedFile.ContentLength
op.PostedFile.SaveAs("e:/img/" & filename)
pic.Text = "E:/img/" & filename
Else
op.PostedFile.SaveAs("../img/defpic")
pic.Text = "E:/img/defpic"
End If
str = "insert coach (name,spes,pic,del)values(@name,@spes,@pic,'a')"
Dim sqlcon1 As SqlConnection
sqlcon1 = New SqlConnection("database=shoot; server=localhost;user id=sa;password=;")
Dim com1 As New SqlCommand
com1 = New SqlCommand(str, sqlcon1)
com1.Parameters.Add("@name", name.Text)
com1.Parameters.Add("@spes", spes.Text)
com1.Parameters.Add("@pic", pic.Text)
sqlcon1.Open()
com1.ExecuteNonQuery()
sqlcon1.Close()

sarvestan
دوشنبه 29 آبان 1385, 13:45 عصر
باید دید امنیت اطلاعاتتون چقدر براتون اهمیت داره!
اگه نمی خواهید کسی به مجموعه عکس هاتون با لینک مستقیم دسترسی داشته باشه از بانک اطلاعاتی استفاده کنید در غیر این صورت هر کدوم از روشها را که انتخاب کنید فرقی نمیکند! ( البته اگر برای کار با دوتاییشون تو کد نویسی مشکلی نداری :چشمک: )

keyvanB
پنج شنبه 02 آذر 1385, 18:09 عصر
ممنون از توجهتون