<% 'Response.Expires = -1 ' Create an object of ActiveX ' Encryption Control Set encrypt = Server.CreateObject("ASENCRYPT.AsEncryptCtrl.1") ' Kid Control set KidControl = Server.CreateObject("KIDDB.KidDBControlCtrl.1") ' Get Kid Data if KidControl is nothing then Response.Clear Response.end end if if request("kid") <> "" then KidID = request("kid") session("KidID") = KidID else KidID = session("KidID") end if retVal = KidControl.GetKidData(KidID) 'Set Session Variables session("LanVal") = KidControl.LanVal session("LanCon") = KidControl.LanCon session("SnVal") = KidControl.SNVal session("SnCon") = KidControl.SNCon Session("VHum") = KidControl.VHum Session("VAni") = KidControl.VAni Session("VChar") = KidControl.VChar Session("VCon") = KidControl.VCon Session("KidGuide") = KidControl.KidGuide Session("BitArray") = KidControl.BitArray Session("Ports") = KidControl.Ports Session("email") = KidControl.Email Session("im") = KidControl.IM Session("chat") = KidControl.Chat 'Value functions for displaying Data 'Check all Value Fields function CheckVal(Item,Value) if cint(Session(Item)) = Value then CheckVal = "checked" end if end function ' CHeck all Context Fields function CheckCon(Item,Value) ' Art = 1 ' Edu = 2 ' Med = 3 ' Spt = 8 ' This would mean that if both Art and Spt were allowed the *Con would return a value of 9 (1 + 8). Select case(item) Case "Art" if Value = 1 or Value = 3 or Value = 5 or Value = 7 or Value = 9 or Value = 11 or Value = 13 or value = 15 then CheckCon = "checked" end if Case "Edu" if Value = 2 or Value = 3 or Value = 6 or Value = 7 or Value = 10 or Value = 11 or Value = 14 or value = 15 then CheckCon = "checked" end if Case "Med" if Value = 4 or Value = 5 or Value = 6 or Value = 7 or Value = 12 or Value = 13 or Value = 14 or value = 15 then CheckCon = "checked" end if Case "Spt" if Value = 8 or Value = 9 or Value = 10 or Value = 11 or Value = 12 or Value = 13 or Value = 14 or value = 15 then CheckCon = "checked" end if Case "All" if Value = 7 or value = 15 then CheckCon = "checked" end if end select end function 'Check Bits in BitArray 'First Split the Data. Saves on Proccessor time... ByteCode = split(SESSION("BitArray"),",") function CheckCat(Item,Value) if cint(ByteCode(cint(Item))) = cint(Value) then CheckCat = "checked" end if end function 'Ports are a special Animal 'First Split the Ports. Saves on Proccessor time... PortList = split(SESSION("ports"),",") function CheckPort(Value,YN) Found = "N" for each port in PortList ex = ex & port if cint(port) = cint(value) then Found = "Y" end if next if Found ="Y" and YN = "1" then Checkport = "checked" end if if Found ="N" and YN = "0" then Checkport = "checked" end if end function ' Set Fields As needed ' Set Val to null Val = "" 'Passord if request("Pwd") <> "" then Kidcontrol.ChangeKidPwd KidId,request("Pwd"),encrypt.Hash(request("Pwd")) end if 'Language Value if request("LanVal") <> "" then KidControl.LanVal = request("LanVal") end if ' Language Context if request("LanCon") <> "" then ArCon = split(request("LanCon"),",") for each con in ArCon Val = eval(val + trim(Con)) next KidControl.LanCon = Val end if 'Sex and Nudity Value if request("SNVal") <> "" then KidControl.SNVal = request("SNVal") end if 'Sex and Nudity Context if request("SNCon") <> "" then ArCon = split(request("SNCon"),",") for each con in ArCon Val = eval(val + trim(Con)) next KidControl.SNCon = Val end if 'Violence Human Value if request("VHum") <> "" then KidControl.VHum = request("VHum") end if 'Violence Animal Value if request("VAni") <> "" then KidControl.VAni = request("VAni") end if 'Violence Character Value if request("VChar") <> "" then KidControl.VChar = request("VChar") end if 'Violence Context if request("VCon") <> "" then ArCon = split(request("VCon"),",") for each con in ArCon Val = eval(val + trim(Con)) next KidControl.VCon = Val end if 'Kid Guide if request("KidGuide") <> "" then KidControl.KidGuide = request("KidGuide") end if 'Byte Array for ResCat if request("BitArray1") <> "" then NewArray = "0," for x = 1 to 63 if request("bitarray"&x) = "" then if x <> 63 then newArray = newarray & "0," else newArray = newarray & "0" End if else if x <> 63 then newArray = newarray & request("bitarray"&x) & "," else newArray = newarray & request("bitarray"&x) End if end if next KidControl.BitArray = newArray end if 'Ports List NewPort = "42,47,53,67,68,135,137,138,139,1723,5190,7000,7900,11523,32802,8081" 'NewPort = "42,47,53,67,68,135,4000-4500,20-30,100-115,137,138,139,1723,5190,7000,7900,11523,32802,8081,32800-33099" if request("ftp") <> "" then if request("ftp") = 1 then newPort = Newport & ",20,21" kidControl.Ports = Newport else kidControl.Ports = Newport end if end if if request("newsgroups") <> "" then if request("newsgroups") = 1 then newPort = Newport & ",144" kidControl.Ports = Newport else kidControl.Ports = Newport end if end if if request("telnet") <> "" then if request("telnet") = 1 then newPort = Newport & ",23" kidControl.Ports = Newport else kidControl.Ports = Newport end if end if 'Email if request("email") <> "" then kidcontrol.Email = request("email") if request("email") = 2 then newPort = Newport & ",25,110,995" kidControl.Ports = Newport else kidControl.Ports = Newport end if end if ' Istant Messangers if request("IM") <> "" then kidcontrol.IM = request("IM") end if 'Chat if request("chat") <> "" then kidcontrol.Chat = request("Chat") if request("chat") = 2 then newPort = NewPort & ",1863" kidControl.Ports = Newport else kidControl.Ports = NewPort end if end if ' AcceleNet ports 'newPort = NewPort & ",32769,9666" 'for xPort = 32800 to 33099 ' newPort = NewPort & "," & xPort 'next 'newPort = NewPort & ",32800,32801,32802,32803,32804,32805,32806,32807,32808,32809,32810,32811,32812,32813,32814,32815,32816,32817,32818,32819,32820,32821,32822,32823,32824,32825,32826,32827,32828,32829,32830,32831,32832,32833,32834,32835,32836,32837,32838,32839,32840,32841,32842,32843,32844,32845,32846,32847,32848,32849,32850,32851,32852,32853,32854,32855,32856,32857,32858,32859,32860,32861,32862,32863,32864,32865,32866,32867,32868,32869,32870,32871,32872,32873,32874,32875,32876,32877,32878,32879,32880,32881,32882,32883,32884,32885,32886,32887,32888,32889,32890,32891,32892,32893,32894,32895,32896,32897,32898,32899,32900,32901,32902,32903,32904,32905,32906,32907,32908,32909,32910,32911,32912,32913,32914,32915,32916,32917,32918,32919,32920,32921,32922,32923,32924,32925,32926,32927,32928,32929,32930,32931,32932,32933,32934,32935,32936,32937,32938,32939,32940,32941,32942,32943,32944,32945,32946,32947,32948,32949,32950,32951,32952,32953,32954,32955,32956,32957,32958,32959,32960,32961,32962,32963,32964,32965,32966,32967,32968,32969,32970,32971,32972,32973,32974,32975,32976,32977,32978,32979,32980,32981,32982,32983,32984,32985,32986,32987,32988,32989,32990,32991,32992,32993,32994,32995,32996,32997,32998,32999,33000,33001,33002,33003,33004,33005,33006,33007,33008,33009,33010,33011,33012,33013,33014,33015,33016,33017,33018,33019,33020,33021,33022,33023,33024,33025,33026,33027,33028,33029,33030,33031,33032,33033,33034,33035,33036,33037,33038,33039,33040,33041,33042,33043,33044,33045,33046,33047,33048,33049,33050,33051,33052,33053,33054,33055,33056,33057,33058,33059,33060,33061,33062,33063,33064,33065,33066,33067,33068,33069,33070,33071,33072,33073,33074,33075,33076,33077,33078,33079,33080,33081,33082,33083,33084,33085,33086,33087,33088,33089,33090,33091,33092,33093,33094,33095,33096,33097,33098,33099" 'kidControl.Ports = Newport 'Set any values that have changed setretval = KidControl.SetKidData %>