系统没有配置！") end if zoneyuejb=rs("zoneyuejb") rs.close set rs=nothing dim bbsid bbsid=trim(request.querystring("bbsid")) if bbsid="" or IsNumeric(bbsid)=False then Call Error("

ID无效！") end if dim bbsname,zonejb set rs=Server.CreateObject("ADODB.Recordset") rs.open"select name,zonejb from ydbbs where id="&bbsid,conn,1,1 if rs.eof then Call Error("

不存在的群组！") end if bbsname =rs("name") zonejb =rs("zonejb") rs.close set rs=nothing dim info info=request.querystring("info") Select Case info Case "payin" Call zonepay() Case "payout" Call zoneout() Case Else Call paylist() end select sub paylist() response.write"

"&chr(13) response.write"金库剩余"&getcent&":"&zonejb&"" response.write"
群组每天需交税"&zoneyuejb&getcent&"" response.write"
>我要捐款"&chr(13) if adminzone=abs(bbsid) then response.write"提款"&chr(13) end if response.write "
-----------
" typeID=request("typeID") if typeID="1" then response.write"捐助列表|支出明细
"&chr(13) else response.write"捐助列表|支出明细
"&chr(13) end if if typeID="" or Isnumeric(typeID)=False then typeID=0 set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id,usid,username,paycent,paytime,liyou,typeID from zoneCent where typeID="&typeID&" and bbsid="&bbsid&" order by id desc",conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=8 Dim Count,page,pagecount,gopage gopage="zonetax.asp?bbsid="&bbsid&"&typeID="&typeID&"&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For response.write i+(page-1)*PageSize&"." response.write""&ubb(rs("username"))&""&chr(13) if rs("typeID")=0 then response.write "捐了"&rs("paycent")&getcent&"("&fordate(rs("paytime"))&")" else response.write "提取了"&rs("paycent")&getcent&"提取说明:"&ubb(rs("liyou"))&"("&fordate(rs("paytime"))&")" end if response.write "
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页,共"&Count&"条
跳到该页
" Else Response.write "暂时没有记录！
" end if rs.close set rs=nothing end sub sub zonepay() Response.write "

" dim Action Action=request("Action") if Action<>"" then dim cent,mypass cent=request("cent") mypass=request("mypass") if cent="" or Isnumeric(cent)=False then Call Error("捐款数额无效！") end if if cent<1000 then Call Error("捐款最小数额为1000"&getcent&"！") end if if clng(cent)>myjb then Call Error("您的"&getcent&"不足！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select mm from Users where id="&myid,conn,1,2 if mypass<>rs("mm") then Call Error("密码错误！") end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") rs.open"select id,usid,username,paycent,paytime,bbsid from zoneCent ",conn,1,2 rs.addnew rs("usid")=myid rs("username")=myni rs("paycent")=cent rs("paytime")=now() rs("bbsid")=bbsid rs.update rs.close set rs=nothing '操作币 conn.Execute("update Users set myjb=myjb-"&clng(cent)&" Where id="&myid) conn.Execute("update ydbbs set zonejb=zonejb+"&clng(cent)&" Where id="&bbsid) response.write"恭喜！捐款成功！" else %> 捐款数额:

登录密码:

确认捐款 <% response.write"
>再考虑一下*捐款最小数额为1000"&getcent&""&chr(13) end if response.write"
返回上级" end sub sub zoneout() Response.write "

" if adminzone=abs(bbsid) then else Call Error("权限不足！") end if dim Action Action=request("Action") if Action<>"" then dim cent,mypass,liyou cent=request("cent") mypass=request("mypass") liyou=request("liyou") if cent="" or Isnumeric(cent)=False then Call Error("提取数额无效！") end if if cent<1000 then Call Error("提取最小数额为1000"&getcent&"！") end if if clng(cent)>clng(zonejb) then Call Error("金库剩余不足此次提取！") end if if liyou="" then Call Error("理由不充分！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select mm from Users where id="&myid,conn,1,2 if mypass<>rs("mm") then Call Error("密码错误！") end if rs.close set rs=nothing set rs=server.createobject("adodb.recordset") rs.open"select id,usid,username,paycent,paytime,liyou,typeID,bbsid from zoneCent ",conn,1,2 rs.addnew rs("usid")=myid rs("username")=myni rs("paycent")=cent rs("paytime")=now() rs("liyou")=left(liyou,30) rs("typeID")=1 rs("bbsid")=bbsid rs.update rs.close set rs=nothing '操作币 conn.Execute("update Users set myjb=myjb+"&clng(cent)&" Where id="&myid) conn.Execute("update ydbbs set zonejb=zonejb-"&clng(cent)&" Where id="&bbsid) response.write"恭喜！提取成功！" else %> 提取数额:

提取理由:

登录密码:

确认提取 <% response.write"
>再考虑一下*提取最小数额为1000"&getcent&""&chr(13) end if response.write"
返回上级" end sub conn.close set conn=nothing response.write"
返回群组论坛" response.write"
返回群组首页" %>