<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) hydz=request.form("hydz") if hydz="" then hydz=0 if hydz<4000 then response.write "低于4000总积分给会员，这样不会江湖大乱吗？好好想想吧！" response.end end if If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439" if grade<10 then Response.Redirect "../error.asp?id=439" Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr daodate=Dateadd("m",-3,date()) conn.execute("update 用户 set 会员='yes',入会时间='"&daodate&"',白虎皮=90 where 会员<>'yes' and 会员<>'yess' and 会员<>'gold' and 会员<>'golds' and allvalue>"&hydz) call ggc("哇，帅呆了，所有总积分在"&hydz&"以上的玩家都被站长破格提升为免费三个月的会员了") Response.Write "" conn.close set rs=nothing sub ggc(getsay) chatroomnamearr=Application("hxf_c_chatroominfo") chatroominfo=split(chatroomnamearr,";") s=Hour(time()) f=Minute(time()) m=Second(time()) if len(s)=1 then s="0" & s if len(f)=1 then f="0" & f if len(m)=1 then m="0" & m t=s & ":" & f & ":" & m call showchat("【天外天告示】" & getsay & "(" & t & ")") end sub %>