<%Response.Buffer=true
response.expires=0
myid=Session("myid")
myname=Session("myname")
call get_guests
set rsparam=conn.execute("select * from param")
if myid="" or myname="" then
call echoerr("你还没有进入聊天室！","default.asp")
response.end
elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then
call echoerr("你还没有进入聊天室！","default.asp")
response.end
elseif guests(myid,4)<>rsparam("superlevel") then
call echoerr("只有超级管理员才能修改帮助文件!","default.asp")
response.end
end if
ID=request("ID")
if id="6" then
end if
sql="select * from helpbody where ID='"&ID&"'"
set rs=conn.Execute(sql)
if rs.eof or rs.bof then
call echoerr("找不到你要修改的帮助条目!","default.asp")
response.end
end if
if request("cmdYes")="确认" then
body=replace(request("body"),"'","''")
if body="" then
errtext="错误：内容不能为空！"
elseif id<>"" then
sql="update helpbody set body='"&body&"' where id='"&ID&"'"
conn.Execute(sql)
errText="操作成功：你成功地修改了帮助内容！"
end if
call echoerr(errText,"default.asp")
else%>