Teknoloji Haberleri
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 320
Tıklama 0
Öne Çıkarma
Cevap 320
Tıklama 0
Öne Çıkarma
1. sayfa
-
HALA ANLAYAMADIM.MY SQL KODU NASIL ACSES E DONUSTUREBILIRIM
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
<%
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
%>
< Bu mesaj bu kişi tarafından değiştirildi selmanla1 -- 3 Ocak 2007; 11:24:16 >