HALA ANLAYAMADIM.MY SQL KODU NASIL ACSES E DONUSTUREBILIRIM

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme MsSQL / MySQL HALA ANLAYAMADIM.MY SQL KODU NASIL ACSES E DONUSTUREBILIRIM

Bu konudaki kullanıcılar: 1 misafir

2
Cevap 321
Tıklama 0
Öne Çıkarma

1. sayfa

HALA ANLAYAMADIM.MY SQL KODU NASIL ACSES E DONUSTUREBILIRIM

Cevap Yaz

selmanla1

19 yıl

Yüzbaşı

Konu Sahibi

MY SQL KODU NASIL ACSES E DONUSTUREBILIRIM.BU KOD URUN GUNCELLEŞTIRME KODU AMA WEB HOSTING MY SQL DESTEKLEMEDİĞİ İÇİN ACCESE YAPMAK ZORUNDAYIM.BUNU NASIL ACCES YABALIRIM.

<%
If Session("AdminAuth") = "" Then
Response.Redirect "login.asp"
End If

If Request("StrStatus") = "On" Then
StrChecked = "1"
Else
StrChecked = "0"
End If

'##---

If Request("Action") = "UpdateStatus" Then

UpdateSQL = "update TblProducts Set "
UpdateSQL = UpdateSQL & "StrStatus=" & StrChecked & " WHERE ProdID=" & Request("ProdID")
ObjConn.Execute(UpdateSQL)

Response.Redirect "error.asp?StrMsg=Ürün statüsü başarıyla güncellenmiş durumdadır&StrRefer=products.asp"
Response.End

End If

'##---

If Request("Action") = "DelData" Then

UpdateSQL = "DELETE FROM TblProducts where ProdID=" & Request("ProdID")
ObjConn.Execute(UpdateSQL)

Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFileObject = ObjFso.GetFile(Server.MapPath(StrUploadAdminPathName) & "\" & Request("StrProductThumbImage"))

ObjFileObject.Delete

Set ObjFileObject = Nothing
Set ObjFso = Nothing

'##---

Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFileObject = ObjFso.GetFile(Server.MapPath(StrUploadAdminPathName) & "\" & Request("StrProductNormalImage"))

ObjFileObject.Delete

Set ObjFileObject = Nothing
Set ObjFso = Nothing

Response.Redirect "error.asp?StrMsg=Ürün başarıyla silimiş durumdadır&StrRefer=products.asp"
Response.End

End If

'##--

Set ObjProducts = Createobject("ADODB.Recordset")
ObjProducts.open " SELECT TblProducts.ProdID, TblCategorys.StrCategory, TblSubCategorys.StrSubCategory, TblProducts.StrProductName, TblProducts.StrProductStock, TblProducts.StrProductTax, TblProducts.StrStatus, TblProducts.StrProductThumbImage, TblProducts.StrProductNormalImage "_
&" FROM (TblCategorys INNER JOIN TblProducts ON TblCategorys.CatID = TblProducts.CatID) INNER JOIN TblSubCategorys ON (TblSubCategorys.SubCatID = TblProducts.SubCatID) AND (TblCategorys.CatID = TblSubCategorys.CatID) "_
&" ORDER BY TblProducts.ProdID DESC;", ObjConn , 1 , 3
%>

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

< Bu mesaj bu kişi tarafından değiştirildi selmanla1 -- 3 Ocak 2007; 11:24:16 >

1. sayfa