<% dim nam,yc,oopp,adminusid,grouptxt,groupkf ID=request("ID") if id="" or Isnumeric(id)=False then Call Error("ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select name,yc,oopp,adminusid,grouptxt,groupkf,zonejb from ydbbs where ID="&id,conn,1,1 if rs.eof then Call Error("不存在的版块！") end if nam=rs("name") yc=rs("yc") oopp=rs("oopp") adminusid=rs("adminusid") grouptxt=rs("grouptxt") groupkf=rs("groupkf") zonejb=rs("zonejb") rs.close set rs=nothing response.write"群组名称
" 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"开放浏览" response.write"禁止浏览" response.write"
" response.write"[确定提交]" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"" response.write"
[群组管理]" %>