<% dim action,name,txt name=trim(request("name")) txt=trim(request("txt")) action=trim(request.querystring("action")) dim zonejb,zonenum set rs=Server.CreateObject("ADODB.Recordset") rs.open"select zonejb,zonenum from twapp where id=1",conn,1,1 if rs.eof then Call Error("系统没有配置！") end if zonejb=rs("zonejb") zonenum=rs("zonenum") rs.close set rs=nothing if action="ok" then if name="" then Call Error("群组名称不能为空！") end if if txt="" then Call Error("群组T简介不能为空！") end if if len(name)>10 then Call Error("群组名称最多十字！") end if if len(txt)>200 then Call Error("群组简介最多200字！") end if if myjb < zonejb then Call Error("你的"&getcent&"不够开群组哦！开群组需支付"&zonejb&getcent) end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from ydbbs where adminusid="&myid,conn,1,1 if not rs.eof then Call Error("你已经申请了一个群组了,请不要重复申请！") end if rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from ydbbs where name='"&name&"' and city=2",conn,1,1 if not rs.eof then Call Error("群组名称已存在,请另起名称！") end if rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from ydbbs",conn,1,2 rs.addnew rs("name")=name rs("grouptxt")=txt rs("adminusid")=myid rs("zonedate")=now() rs("yc")=1 rs("lx")=1 rs("city")=2 rs.update rs.close set rs=nothing '取ID dim tid set rs=Server.CreateObject("ADODB.Recordset") rs.open"select top 1 ID from [ydbbs] order by id desc",conn,1,1 tid=rs("ID") rs.close set rs=nothing '减币,设置 conn.Execute("update Users set myjb=myjb-"&zonejb&" ,zoneid="&tid&", adminzone="&tid&" Where id="&myid) response.write"恭喜,您的群组申请成功!" else response.write"提示:创建群组需支付"&zonejb&getcent response.write"
拥有群组成员"&zonenum&"人即自动开放论坛" response.write"
群组名称
" response.write"
" response.write"群组简介
" response.write"
" response.write"[确定申请]" response.write"" response.write"" response.write"" end if conn.close set conn=nothing response.write"
群组交流"&chr(13) %>