<%= OutputCSS() %>
<%
Dim objcon, objRS, strSQL, catName, disTitle, disHead, arrCat
Dim i, id, ub, types, typesHidden, catID,groupPermissionOn
types = request("types")
typesHidden = ""
SELECT CASE types
Case "editForum"
disTitle = "Edit Forum"
Case "addForum"
disTitle = "Add Forum"
Case "editCat"
disTitle = "Edit Category"
Case "addCat"
disTitle = "Add Category"
Case "selectForum"
disTitle = "Configure Forum"
Case "copyForum"
disTitle = "Copy Forum"
Case else
disTitle = "Configure Category"
types = "selectCat"
END SELECT
disHead = _
""&disTitle&" : "&_
"
"
SELECT CASE types
'==========================
Case "editForum","addForum"
'==========================
response.write (disHead)
catId = request.queryString("catid")
dim ForumTitle, ForumDesc, IsPrivate, PrivateUserRight, GuestRight, AuthenticatedRight
dim moderator, moderatorName, PrivateUser, PGDCode, allowsubscribe, allowUpload, modUpload, memUpload, guestUpload
dim modUpSize, modUpExt, memUpSize, memUpExt, guestUpSize, guestUpExt, allowpoll, allowvote, timefilter,deleteRight
dim enableRating, isModerated, ttPaging,needRevision
dim NoIMGinPosts,sortOrder,upRestriction,downRestriction,smode,uploadNum
if types = "editForum" then
strSQL = "SELECT ForumTitle, ForumDesc, IsPrivate, PrivateUserRight, GuestRight, MemberRight, PGDCode, allowsubscribe, "&_
"allowUpload, modUpload, memUpload, guestUpload, allowpoll, allowvote, timefilter, deleteRight, enableRating, isModerated, " & _
"ttPaging,NoIMGinPosts,sortOrder,upRestriction,downRestriction, needRevision,smode, groupPermissionOn, uploadNum FROM pgd_forums WHERE ForumID="&request("id")
set objRS = server.CreateObject("adodb.recordset")
with objRS
.open strSQL, datastore, , , adCmdText
arrForum = .getrows
.close
end with
set objRS = nothing
id = request.queryString("id")
ForumTitle = arrForum(0,0)
ForumDesc = arrForum(1,0)
IsPrivate = arrForum(2,0)
PrivateUserRight = arrForum(3,0)
GuestRight = arrForum(4,0)
AuthenticatedRight = arrForum(5,0)
PGDCode = arrForum(6,0)
allowsubscribe = arrForum(7,0)
allowUpload = arrForum(8,0)
modUpload = arrForum(9,0)
memUpload = arrForum(10,0)
guestUpload = arrForum(11,0)
allowpoll = arrForum(12,0)
allowvote = arrForum(13,0)
timefilter = arrForum(14,0)
deleteRight = arrForum(15,0)
enableRating = arrForum(16,0)
isModerated = arrForum(17,0)
ttPaging = arrForum(18,0)
NoIMGinPosts = arrForum(19,0)
sortOrder = arrForum(20,0)
upRestriction = arrForum(21,0)
downRestriction = arrForum(22,0)
needRevision = arrForum(23,0)
smode = arrForum(24,0)
groupPermissionOn = arrForum(25,0)
uploadNum = arrForum(26,0)
erase arrForum
else
NoIMGinPosts = 0
isModerated = 0
IsPrivate = 0
PGDCode = 1
allowpoll = 1
allowvote = 0
PrivateUserRight = 4
GuestRight = 1
AuthenticatedRight = 4
enableRating = 0
ttPaging = 2
smode = 1
groupPermissionOn = 0
uploadNum = 1
allowUpload = Application(dbName&"upload")
if lcase(allowUpload) <> "noupload" then
allowUpload = 1
modUpload = UpLoadSizeLimit&"|"&UploadFormat
memUpload = UpLoadSizeLimit&"|"&UploadFormat
guestUpload = UpLoadSizeLimit&"|"&UploadFormat
end if
timefilter = "0,1,7,14,|30|,90,180,365"
deleteRight = 1
sortOrder = 1
upRestriction = 0
downRestriction = 0
needRevision = 0
end if
Dim tempArr
if modUpload <> "" then
tempArr = split(modUpload,"|")
if isArray(tempArr) then
modUpSize = tempArr(0)
if ubound(tempArr)=1 then modUpExt = tempArr(1)
end if
end if
if memUpload <> "" then
tempArr = split(memUpload,"|")
if isArray(tempArr) then
memUpSize = tempArr(0)
if ubound(tempArr)=1 then memUpExt = tempArr(1)
end if
end if
if guestUpload <> "" then
tempArr = split(guestUpload,"|")
if isArray(tempArr) then
guestUpSize = tempArr(0)
if ubound(tempArr)=1 then guestUpExt = tempArr(1)
end if
end if
%>
<%
'=============
Case "editCat"
'=============
id = request("id")
set objRS = server.CreateObject("adodb.recordset")
with objRS
.open "SELECT CatName FROM pgd_category WHERE CatID="&id, datastore, , , adCmdText
catName = .fields("CatName")
.close
end with
set objRS = nothing
response.write(disHead)
response.write("")
'============
Case "addCat"
'============
response.write(disHead)
response.write("")
'=================
Case "selectForum"
'=================
response.write(disHead)
if request.queryString("from") = "merger" then response.write ("Posts merged successful!")
catID = request("catID")
set objRS = server.CreateObject("adodb.recordset")
with objRS
.open "SELECT ForumID, ForumTitle, sort FROM pgd_forums WHERE catID="& catID &" ORDER BY sort DESC;", datastore, , ,adcmdtext
if not .EOF then
dim arrForum
arrForum = .getrows
end if
.close
end with
set objRS = nothing
arrCat = Application(dbName&"Category")
Dim iCat:iCat = 0
Dim iForum:iForum = 0
%>
<%
response.write("")
'========
Case "copyForum"
'========
catID = request("catID")
set objRS = server.CreateObject("adodb.recordset")
with objRS
.open "SELECT forumid, forumtitle from pgd_forums WHERE catID="&catID&" order by sort desc", datastore, , , adCmdText
arrForum = .getrows
.close
end with
set objRS = nothing
response.write(disHead)
response.write("")
'========
Case else
'========
set objRS = server.CreateObject("adodb.recordset")
with objRS
.open "SELECT catID, catName, sort, (SELECT count(*) FROM pgd_forums f WHERE f.CatID=c.CatID) FROM pgd_category c ORDER BY c.sort DESC; ", datastore, , , adCmdText
arrCat = .getrows
.close
end with
set objRS = nothing
response.write(disHead)
response.write("")
response.write (" Default Category Can't be deleted.")
erase arrCat
END SELECT
%>
Default Category Can't be deleted.")
erase arrCat
END SELECT
%>