The Beta Website Manager allows Parents to Override the Kidsnet Safe Backyard database. ""Add Url/Delete Url"" adds/deletes your settings in/from the Url List and does not save it in database. When you are done with all your settings click ""Submit"" to save the settings in the database.
")
%>
">
<%
function TrimComma(strValue)
Dim lenStr
Dim retStr
'ret = InStr(1,strValue,",")
lenStr = Len(strValue)
'for i = 1 to lenStr
retStr = Left(strValue,1)
while retStr = ","
if retStr = "," then
strValue = Right(strValue,lenStr - 1)
end if
retStr = Left(strValue,1)
lenStr = Len(strValue)
wend
' Here we have trimmed all leading ,
' now trim all trailing
'for i = 1 to lenStr
retStr = Right(strValue,1)
while retStr = ","
if retStr = "," then
strValue = Left(strValue,lenStr - 1)
end if
retStr = Right(strValue,1)
lenStr = Len(strValue)
Wend
end function
if(Request.Form("btnSubmit")<> "Submit") then
dim strparentID
strparentID = Request.Form("btnHidden").Item
strparentID = Request.QueryString("ID").Item
Session("parentID") = strparentID
else
'
' Update database
'allowedKidsArray = Session("aKidsArray")
'blockedKidsArray = Session("dKidsArray")
'urlArray = Session("uArray")
'Kids = Session("aKids")
dim kid1
dim parentId
parentId = Request.Form("btnHidden").Item
' Open database connection
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DSN=Kidsnet_Parent;uid=sa;pwd=sgmkj;APP=ASP Script;DATABASE=Exception"
Set rs = Server.CreateObject("ADODB.Recordset")
'
dim allowedKids, blockedKids
for each kid1 in Request.Form("txtKidId")
'Kidid = parentId + "_" + kid1
sqlQuery = "delete from exceptionList where kidid = '" & kid1 & "'"
rs.Open sqlQuery,cn
next
dim nCountKidList
dim allowedStatus
for each kid1 in Request.Form("txtKidId")
nCountKidList = 1
for each Url in Request.Form("txtURL")
allowedStatus = -1
allowedKids = Request.Form("txtAllowedKids").Item(nCountKidList)
blockedKids = Request.Form("txtBlockedKids").Item(nCountKidList)
nAllowedIndex = InStr(1, allowedKids, kid1, 0)
nBlockedIndex = InStr(1, blockedKids, kid1, 0)
if(nAllowedIndex <> 0) then
allowedStatus = 1
else
if(nBlockedIndex <> 0)then
allowedStatus = 0
end if
end if
'Kidid = parentId + "_" + kid1
if(allowedStatus <> -1) then
Kidid = kid1
'INSERT INTO ExceptionList ([KidId], [URL], [Allowed]) VALUES ('n', 'nL', '1')
sqlQuery = "INSERT INTO ExceptionList ([KidId],[URL], [Allowed]) VALUES ('" & KidId & "', '" & Url & "', '" & allowedStatus & "')"
rs.Open sqlQuery, cn
end if
nCountKidList = nCountKidList + 1
next
next
end if
'*******************
' Render page
'*******************
if(Request.Form("btnSubmit")<> "Submit") then
else
strparentID = Session("parentID")
end if
Dim urlArr(255),strAllowedKids(255),strBlockedKids(255),urlEnd(255)
dim urlArray(255), allowedKidsArray(255), blockedKidsArray(255)
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DSN=Kidsnet_Parent;uid=sa;pwd=sgmkj;APP=ASP Script;DATABASE=Exception"
Set rsExc = Server.CreateObject("ADODB.Recordset")
Set cn2 = Server.CreateObject("ADODB.Connection")
cn2.Open "DSN=Kidsnet_Parent;uid=sa;pwd=sgmkj;APP=ASP Script;DATABASE=Kidsnet"
Set rsKidsnet = Server.CreateObject("ADODB.Recordset")
' Get the Kid data for the Url.
'KidlstQuery = "select kidlist from Parent where parentid = '" & strparentID & "'"
KidlstQuery = "select kidlist,KidCount from Parent where parentid = '" & strparentID & "'"
rsKidsnet.Open KidlstQuery,cn2
dim nKidCount
dim nKidCountfromDB
if rsKidsnet.EOF <> true then
KidList = rsKidsnet("kidlist")
nKidCountfromDB = rsKidsnet("KidCount")
if nKidCountfromDB = 0 then
Response.Write("
There are no Kid accounts created for Parent = " & strparentID & ".
")
else
Kids = split(KidList,vbCrLf)
'Kids = split("sameer_kid1,sameer_kid2,nischal_kid1,nischal_kid2,nischal_kid3",",")
' For each kid get the Urls from the database.
UrlQuery = "select * from ExceptionList"
i = 0
for each kid in kids
nKidCount = nKidCount + 1
kid = Trim(kid)
'RTrim(kid)
rsExc.Open UrlQuery,cn
'Here we got the kid.
while rsExc.EOF <> true
if kid = rsExc("kidid") then
urlArr(i) = rsExc("Url")
if rsExc("Allowed") = true then
strAllowedKids(i) = rsExc("kidid")
strBlockedKids(i) = ""
else
strBlockedKids(i) = rsExc("kidid")
strAllowedKids(i) = ""
end if
i = i + 1
end if
rsExc.MoveNext
WEnd
rsExc.Close
next
'urlArr(i) = "End"
end if
end if
' Here we got the Url List, Allowed and blocked kid list.
i=0
k=0
while urlArr(i) <> empty
url = urlArr(i)
' Check for this Url in Array
j=0
while urlArr(j) <> empty
if urlArr(j) = url and urlArr(j) <> "end" then
AllowedKid = AllowedKid + strAllowedKids(j) & ","
BlockedKid = BlockedKid + strBlockedKids(j) & ","
urlArr(j) = "end"
end if
j = j+1
WEnd
if url <> "end" and url <> empty then
'Here create new array
urlArray(k) = url
TrimComma AllowedKid
TrimComma BlockedKid
allowedKidsArray(k) = AllowedKid
blockedKidsArray(k) = BlockedKid
urlEnd(k) = url & "|" & AllowedKid & vbCrLf & BlockedKid
AllowedKid = ""
BlockedKid = ""
k=k+1
end if
i=i+1
Wend
'Session("aKidsArray") = allowedKidsArray
'Session("dKidsArray") = blockedKidsArray
'Session("uArray") = urlArray
'Session("aKids") = Kids
'*******************
response.write("Add a Website or a page")
%>
<%
if nKidCount = 0 then
%>