<%function cn(n,min,max,d)
if IsNumeric(n) then
if n-min>=0 and n-max<=0 then
cn=n
else
cn=d
end if
else
cn=d
end if
end function
function cl(n)
if n="true" then
cl=true
else
cl=false
end if
end function
application.lock
myname=Session("myname")
myid=Session("myid")
call get_guests
set Rs=conn.execute("select * from param")
if myid="" or myname="" then
call echoerr("你还没有进入聊天室！","default.asp")
response.end
end if
if myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then
call echoerr("你还没有进入聊天室！","default.asp")
response.end
end if
if guests(myid,4)<>rs("superlevel") then
call echoerr("你无权修改设置参数！","default.asp")
response.end
end if
if request("B1")="提交" then
maxuser=cn(request("maxuser"),30,500,30)
maxtalk=cn(request("maxtalk"),30,500,30)
nosaytime=cn(request("nosaytime"),20,200,30)
maxroom=cn(request("maxroom"),2,100,10)
roomkeepexp=cn(request("roomkeepexp"),3000,100000,5000)
enlogin=cl(request("enlogin"))
enaddact=cl(request("enaddact"))
ltitle=cn(request("ltitle"),1,15,2)
ltt=cn(request("ltt"),1,15,3)
lhtml=cn(request("lhtml"),2,15,3)
lkeepuser=cn(request("lkeepuser"),2,15,3)
laddroom=cn(request("laddroom"),2,15,4)
lseelevel=cn(request("lseelevel"),2,15,5)
laddact=cn(request("laddact"),2,15,6)
lkick=cn(request("lkick"),7,15,7)
lseeip=cn(request("lseeip"),7,15,8)
llockip=cn(request("llockip"),7,15,8)
lmodlevel=cn(request("lmodlevel"),7,15,8)
llockuser=cn(request("llockuser"),7,15,9)
lcolduser=cn(request("lcolduser"),7,15,10)
ldelnote=cn(request("ldelnote"),7,15,9)
ldelroom=cn(request("ldelroom"),7,15,10)
lallhtml=cn(request("lallhtml"),7,15,10)
lmodact=cn(request("lmodact"),7,15,10)
lnote=cn(request("lnote"),7,15,10)
lvote=cn(request("lvote"),7,15,10)
exp2=cn(request("exp2"),50,1000000,300)
exp3=cn(request("exp3"),50,1000000,900)
exp4=cn(request("exp4"),50,1000000,2700)
exp5=cn(request("exp5"),50,1000000,8000)
exp6=cn(request("exp6"),50,1000000,24000)
exp7=cn(request("exp7"),50,1000000,70000)
exp8=cn(request("exp8"),50,1000000,140000)
exp9=cn(request("exp9"),50,1000000,250000)
exp10=cn(request("exp10"),50,1000000,400000)
envoteonline=cl(request("envoteonline"))
envoteauto=cl(request("envoteauto"))
expauto1=cn(request("expauto1"),100,5000,200)
expauto2=cn(request("expauto2"),100,5000,100)
expauto3=cn(request("expauto3"),100,5000,400)
expauto4=cn(request("expauto4"),100,5000,800)
conn.Execute("UPDATE param SET maxtalk="&maxtalk&",ltt="<t&",maxuser="&maxuser&",nosaytime="&nosaytime&",roomkeepexp="&roomkeepexp&",enlogin="&enlogin&",enaddact="&enaddact&_
",lhtml="&lhtml&",lkeepuser="&lkeepuser&",laddroom="&laddroom&",lseelevel="&lseelevel&",laddact="&laddact&",lkick="&lkick&",llockip="&llockip&_
",lseeip="&lseeip&",lmodlevel="&lmodlevel&",llockuser="&llockuser&",lcolduser="&lcolduser&",ldelnote="&ldelnote&",ldelroom="&ldelroom&_
",maxroom="&maxroom&",ltitle="<itle&",lallhtml="&lallhtml&",lmodact="&lmodact&",lnote="&lnote&",lvote="&lvote&_
",exp2="&exp2&",exp3="&exp3&",exp4="&exp4&",exp5="&exp5&",exp6="&exp6&",exp7="&exp7&",exp8="&exp8&",exp9="&exp9&",exp10="&exp10&_
",envoteonline="&envoteonline&",envoteauto="&envoteauto&",expauto1="&expauto1&",expauto2="&expauto2&",expauto3="&expauto3&",expauto4="&expauto4)
call echoerr("你成功地修改了聊天室系统设置参数！","viewparam.asp")
response.end
else%>