<%
' ======================================================================================
' SHOWCASE ADMIN OBJECT
' ======================================================================================
' Programmer: R. Smit
' Date Modified: 2011/09/20
' Version 1.00
' Inherits: class.base.asp, class.db.asp
' Skin Files:
' ======================================================================================
Class O_pages
'Public oDB
Private oConn
Public oBase
Private iID
Sub Class_Initialize()
Set oBase = Base
End Sub
Function Connect(sConn,ID)
Set oConn = sConn
iID = ID
End Function
Function Sidebar
End Function
Function default(iID)
sFile = oBase.LoadSkinView("home",0)
Response.Write(sFile)
End Function
Function home(nID)
%><%
End Function
Function settings(nID)
%><%
End Function
Function Save_Settings(nID)
sQD = oDB.ExecuteNonQuery(oConn,"DELETE FROM settings")
'sQ = "INSERT INTO settings (site_setting,site_value) VALUES "
For Each Item in Request.Form
'sQ = sQ & "('"&Item&"','"&Request.Form(Item)&"')" & ","
sQ = "INSERT INTO settings (site_setting,site_value) VALUES ('"&Item&"','"&Request.Form(Item)&"')"
sQA = oDB.ExecuteNonQuery(oConn,sQ)
Next
'sQ = TrimR(sQ,1) & ";"
'Response.Write(sQ)
Response.Redirect("?controller=pages&view=settings&success-msg=Settings successfully updated")
End Function
Function GetSettings(sSetting)
sReturn = ""
sQ = oDB.ExecuteQuery(oConn,"SELECT site_setting,site_value FROM settings WHERE site_setting = '"&sSetting&"'")
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
sReturn = sQ(1,i)
Next
End If
GetSettings = sReturn
End Function
Function Save(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
'Response.Write("
" & Item & " - " & Request.Form(Item) & "
")
If Item = "archive_date" Then
If Request.Form("archive_date") <> "" Then
aFields(Item) = Request.Form(Item)
End If
ElseIf Item = "delete_date" Then
If Request.Form("delete_date") <> "" Then
aFields(Item) = Request.Form(Item)
End If
Else
aFields(Item) = Request.Form(Item)
End If
Next
iNewsID = oDB.ExecuteInsert(oConn,"news",aFields)
If iNewsID > 0 Then
Response.Redirect("?controller=news&view=all&success-msg=Article successfully added")
Else
Response.Write("
An error has occurred while saving the news article.
")
End If
End Function
Function Update(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
'Response.Write("
" & Item & " - " & Request.Form(Item) & "
")
If Item = "archive_date" Then
If Request.Form("archive_date") <> "" Then
aFields(Item) = Request.Form(Item)
End If
ElseIf Item = "delete_date" Then
If Request.Form("delete_date") <> "" Then
aFields(Item) = Request.Form(Item)
End If
Else
aFields(Item) = Request.Form(Item)
End If
Next
iNewsID = oDB.ExecuteUpdate(oConn,"news",aFields)
If iNewsID = true Then
Response.Redirect("?controller=news&view=all&success-msg=Article successfully updated")
Else
Response.Write("
An error has occurred while updating the news article.
")
End If
End Function
Function Delete(nID)
sQ = oDB.DeleteRecord(oConn,"SELECT id FROM pages WHERE id = " & nID)
If sQ = true Then
Response.Redirect("?controller=pages&view=all&success-msg=Page has been deleted")
Else
Response.Redirect("?controller=pages&view=all&error-msg=Page could not be deleted")
End If
End Function
Function DeleteImage(nID)
Response.Write("deleted")
End Function
Function Save_Type(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
aFields(Item) = Request.Form(Item)
Next
iRecordID = oDB.ExecuteInsert(oConn,"showcase_types",aFields)
If iRecordID > 0 Then
Response.Redirect("?controller=showcase&view=all&success-msg=Type successfully added")
Else
Response.Write("
An error has occurred while saving the news article.
")
End If
End Function
Function save_item(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
aFields(Item) = Request.Form(Item)
'Response.Write(Item & " - " & Request.Form(Item) & " ")
Next
iRecordID = oDB.ExecuteInsert(oConn,"pages",aFields)
If iRecordID > 0 Then
Response.Redirect("?controller=pages&view=all&success-msg=Page successfully added")
Else
Response.Write("
An error has occurred while saving the page.
")
End If
End Function
Function update_item(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
aFields(Item) = Request.Form(Item)
'Response.Write(Item & " - " & Request.Form(Item) & " ")
Next
iRecordID = oDB.ExecuteUpdate(oConn,"pages",aFields)
Response.Redirect("?controller=pages&view=all&success-msg=Page successfully updated")
End Function
Function Save_Category(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
aFields(Item) = Request.Form(Item)
Next
iRecordID = oDB.ExecuteInsert(oConn,"showcase_categories",aFields)
If iRecordID > 0 Then
Response.Redirect("?controller=showcase&view=all&success-msg=Category successfully added")
Else
Response.Write("
An error has occurred while saving the news article.
")
End If
End Function
Function Update_Category(nID)
dim aFields
Set aFields = Server.CreateObject("Scripting.Dictionary")
For Each Item in Request.Form
aFields(Item) = Request.Form(Item)
Next
iRecordID = oDB.ExecuteUpdate(oConn,"showcase_categories",aFields)
End Function
Function Add_Category(nID)
sReturn = ""
sReturn = sReturn & ""
Response.Write(sReturn)
End Function
Function Edit_Category(nID)
sReturn = ""
sQ = oDB.ExecuteQuery(oConn,"SELECT id,showcase_type_id,category_name,parent_id FROM showcase_categories WHERE id = " & nID)
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
sReturn = sReturn & ""
Next
End If
Response.Write(sReturn)
End Function
Function Add_Type(nID)
sReturn = ""
sReturn = sReturn & ""
Response.Write(sReturn)
End Function
Function Add(nID)
sReturn = ""
sReturn = sReturn & "
Page Manager
"
sReturn = sReturn & ""
Response.Write(sReturn)
End Function
Function Edit(nID)
sReturn = ""
sQ = oDB.ExecuteQuery(oConn,"SELECT id, page_title, page_content, page_parent, page_keywords, page_description FROM pages WHERE id = " & nID)
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
sReturn = sReturn & "
Page Manager
"
sReturn = sReturn & ""
Next
Else
End If
Response.Write(sReturn)
End Function
Function GetImages(sImages)
sReturn = ""
'
"
GetImages = sReturn
End Function
Function GetImageSize(sImage)
sReturn = ""
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
If oFS.FileExists(C_DOC_ROOT & "\custpics\" & sImage) Then
Set oFile = oFS.GetFile(C_DOC_ROOT & "\custpics\" & sImage)
sReturn = FormatNumber(oFile.Size / 1000,2)
End If
Set oFS = Nothing
GetImageSize = sReturn
End Function
Function GetDocuments(sDocuments)
sReturn = ""
sInsertImages = ""
If sDocuments <> "" Then
aImages = Split(sDocuments,",")
For i = 0 to uBound(aImages) - 1
sInsertImages = sInsertImages & "
"
GetDocuments = sReturn
End Function
Function Sort(nID)
aData = Split(Request.QueryString("data"),",")
For i = 0 to uBound(aData)
sQ = "UPDATE pages SET page_order = " & i & " WHERE id = " & aData(i)
oConn.Execute(sQ)
Next
End Function
Function All(nID)
sReturn = ""
sReturn = "" & _
""
sReturn = sReturn & "
Page Manager
"
sReturn = sReturn & "
All Pages
"
sReturn = sReturn & "
"
If Request.QueryString("category_id") = "" Then
sQ = oDB.ExecuteQuery(oConn,"SELECT id,page_title,page_content,page_parent,page_keywords,page_description FROM pages ORDER BY page_order ASC")
Else
sQ = oDB.ExecuteQuery(oConn,"SELECT id,page_title,page_content,page_parent,page_keywords,page_description FROM pages WHERE page_parent = "&Request.QueryString("category_id")&" ORDER BY page_order ASC")
End If
If IsArray(sQ) Then
sReturn = sReturn & "
"
sReturn = sReturn & "
Sort
"
sReturn = sReturn & "
Title
"
sReturn = sReturn & "
Parent
"
sReturn = sReturn & "
"
sReturn = sReturn & "
"
sReturn = sReturn & "
"
For i = 0 To uBound(sQ,2)
bgColor = Not bgColor
If bgColor Then
sBG = "#FFFFFF"
Else
sBG = "#F8F8F8"
End If
sReturn = sReturn & "
"
Response.Write(sReturn)
End Function
Function GetType(iID)
sType = ""
iCatID = oDB.GetValue(oConn,"parent_id","showcase_categories","WHERE id = " & iID)
If iCatID > 0 Then
iMainCat = oDB.GetValue(oConn,"parent_id","showcase_categories","WHERE id = " & iCatID)
If iMainCat = 0 Then
iTypeID = oDB.GetValue(oConn,"showcase_type_id","showcase_categories","WHERE id = " & iCatID)
sType = oDB.GetValue(oConn,"type_name","showcase_types","WHERE id = " & iTypeID)
Else
End If
Else
iTypeID = oDB.GetValue(oConn,"showcase_type_id","showcase_categories","WHERE id = " & iCatID)
sType = oDB.GetValue(oConn,"type_name","showcase_types","WHERE id = " & iTypeID)
End If
GetType = sType
'GetType = oDB.GetValue(oConn,"type_name","news_types","WHERE id = " & iID)
End Function
Function GetParent(iID)
sReturn = ""
sReturn = oDB.GetValue(oConn,"page_title","pages","WHERE id = " & iID)
If sReturn = "" Then
sReturn = "None"
End If
GetParent = sReturn
End Function
Function GetTypeList(iID)
sReturn = ""
sQ = oDB.ExecuteQuery(oConn,"SELECT id, type_name FROM showcase_types")
sReturn = sReturn & ""
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
If Trim(iID) = Trim(sQ(0,i)) Then
sReturn = sReturn & ""
Else
sReturn = sReturn & ""
End If
Next
End If
GetTypeList = sReturn
End Function
Function GetParentList(iID)
sReturn = ""
sQ = oDB.ExecuteQuery(oConn,"SELECT id, page_title, page_parent FROM pages WHERE page_parent = 0")
sReturn = sReturn & ""
If iID = 0 Then
sReturn = sReturn & ""
Else
sReturn = sReturn & ""
End If
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
If Trim(iID) = Trim(sQ(0,i)) Then
sReturn = sReturn & ""
Else
sReturn = sReturn & ""
End If
Next
End If
GetParentList = sReturn
End Function
Function GetItemCategoryList(iID)
sReturn = ""
sQ = oDB.ExecuteQuery(oConn,"SELECT id, category_name, parent_id FROM showcase_categories WHERE parent_id = 0")
sReturn = sReturn & ""
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
sReturn = sReturn & ""
Next
End If
GetItemCategoryList = sReturn
End Function
Function GetNavList()
sReturn = ""
sReturn = sReturn & "
"
sQ = oDB.ExecuteQuery(oConn,"SELECT id,type_name FROM showcase_types")
If IsArray(sQ) Then
For i = 0 to uBound(sQ,2)
sReturn = sReturn & "
"&sQ(1,i)&"
"
sQA = oDB.ExecuteQuery(oConn,"SELECT id,category_name FROM showcase_categories WHERE showcase_type_id = "&sQ(0,i)&" AND parent_id = 0")
If IsArray(sQA) Then
sReturn = sReturn & "
"
For j = 0 to uBound(sQA,2)
sReturn = sReturn & "