<%function chnum(n)
if IsNumeric(n) then
if n>=0 and n<=18 then
chnum=true
else
chnum=false
end if
else
chnum=false
end if
end function
application.lock
set rsparam=conn.execute("select * from param")
myname=Session("myname")
myid=Session("myid")
call get_guests
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)=rsparam("superlevel") and request("name")<>"" then myname=request("name")
set Rs=conn.execute("select * from user where username='"&myname&"'")
if Rs.eof or Rs.bof then
call echoerr("找不到聊友【"&myname&"】！","default.asp")
response.end
else%>
<%if request("B1")="提交" then
sPass1=request("sPass1")
if sPass1=request("sPass2") and sPass1<>"" and sPass1<>myname then
sPass1=trPass(sPass1)
else
sPass1=Rs("passwd")
end if
f_size=request("f_size")
if chnum(f_size) then
f_size=int(f_size)
else
f_size=rs("f_size")
end if
l_height=request("l_height")
if chnum(l_height) then
l_height=int(l_height)
else
l_height=rs("l_height")
end if
n_color=request("n_color")
if chnum(n_color) then
n_color=int(n_color)
else
n_color=rs("n_color")
end if
s_color=request("s_color")
if chnum(s_color) then
s_color=int(s_color)
else
s_color=rs("s_color")
end if
bgcolor=left(trdb(trim(server.HTMLEncode(request("bgcolor")))),10)
email=left(trdb(trim(server.HTMLEncode(request("email")))),250)
remand=left(trdb(trim(server.HTMLEncode(request("remand")))),250)
answer=left(trdb(trim(server.HTMLEncode(request("answer")))),250)
aihaos=left(trdb(trim(server.HTMLEncode(request("aihaos")))),250)
oicq=left(trdb(trim(server.HTMLEncode(request("oicq")))),20)
if email<>"" and instr(email,"@")<>0 and instr(email,".")<>0 and guests(myid,4)-rsparam("lkeepuser")>=0 and request("saved")="true" then
saved=true
else
saved=false
end if
if request("sex")="true" then
sex=true
else
sex=false
end if
conn.Execute("UPDATE user SET oicq='"&oicq&"',saved="&saved&",passwd='"&sPass1&"',sex="&sex&",f_size="&f_size&",l_height="&l_height&",n_color="&n_color&",s_color="&s_color&",bgcolor='"&bgcolor&"',email='"&email&"',remand='"&remand&"',answer='"&answer&"',aihaos='"&aihaos&"' WHERE username='"&myname&"'")
set Rs=conn.execute("select * from user where username='"&myname&"'")
if myname=Session("myname") then
guests(myid,3)=sex
call put_guests%>
<%end if
call echoerr("你成功地修改了聊友【"&myname&"】的设置！","userset.asp?name="&myname)
response.end
else%>