<% dim nam,idi,txt,ids ID=request("ID") if ID="" or IsNumeric(ID)=False then Call Error("聊天室ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from chat where ID="&id,conn,1,1 if rs.eof then Call Error("不存在的聊天室！") end if nam=rs("roomname") idi=rs("pid") ids=rs("roomadmin") txt=rs("title") rs.close set rs=nothing conn.close set conn=nothing response.write"聊室名称
" response.write"
" response.write"聊室主题
" response.write"
" response.write"管理ID(多个用,分开)
" response.write"
" response.write"显示顺序:
" response.write"[确定提交]" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"
" response.write"[删除聊室]" response.write"
[聊吧管理]" %>