<% 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"),"=") my=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) set TWT_ArrArg=nothing to1=request.querystring("action") if to1=my then Response.Write "" Response.end end if dim conn,rs Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr sql="select allvalue,武功,银两,道德,骨头,攻击,防御,门派,身份 from 用户 where 门派<>'无' and 姓名='" & my & "'" set rs=conn.execute(sql) if rs.eof or rs.bof then call ErrAlt("你无门无派到处乱跑什么啊？") jf1=rs(0) wg1=rs(1) yl1=rs(2) dd1=rs(3) ww1=rs(4) gj1=rs(5) fy1=rs(6) mypai=rs(7) shengf=rs(8) rs.close if shengf="掌门" then call ErrAlt("你已经是掌门了，还抢什么啊？大脑抽筋了啊？有毛病！") end if sql="select allvalue,武功,银两,道德,骨头,攻击,防御,grade,身份 from 用户 where 门派='" & mypai & "' and 姓名='" & to1 & "'" set rs=conn.execute(sql) if rs.eof or rs.bof then call ErrAlt("本门派没有这个人你跟谁争啊？") jf2=rs(0) wg2=rs(1) yl2=rs(2) dd2=rs(3) ww2=rs(4) gj2=rs(5) fy2=rs(6) grade2=rs(7) shengf2=rs(8) rs.close if shengf2<>"掌门" and shengf2<>"副掌门" and shengf2<>"长老" and shengf2<>"护法" and shengf2<>"堂主" then call ErrAlt("这个人又没有官职你跟他争什么啊？") end if if grade2=10 then call ErrAlt("你居然敢动站长？快滚吧，小心你的小命不保！") end if if jf1<=jf2 then ggsay=my&"的积分比"&to1&"低，夺取"&shengf2&"身份失败，连进场的资格都没有，内力损伤一半。" call ErrQiang(ggsay) end if if wg1<=wg2 then ggsay=my&"的武功比"&to1&"低，夺取"&shengf2&"身份失败，结果被打得鼻青脸肿的，内力损伤一半。" call ErrQiang(ggsay) end if if yl1<=yl2 then ggsay=my&"的银两比"&to1&"少，夺取"&shengf2&"身份失败，对方挥出一张银票就把你吓得屁滚尿流，内力损伤一半。" call ErrQiang(ggsay) end if if dd1<=dd2 then ggsay=my&"的道德比"&to1&"低，夺取"&shengf2&"身份失败，还没开始比武就被四面八方飞来的鸡蛋砸了出来，内力损伤一半。" call ErrQiang(ggsay) end if if ww1<=ww2 then ggsay=my&"的威望比"&to1&"低，夺取"&shengf2&"身份失败，被大家拳打脚踢臭扁了一顿，内力损伤一半。" call ErrQiang(ggsay) end if if gj1<=gj2 then ggsay=my&"的攻击比"&to1&"低，夺取"&shengf2&"身份失败，拳头打肿了也没有用，你灰溜溜鼠窜出来，内力损伤一半。" call ErrQiang(ggsay) end if if fy1<=fy2 then ggsay=my&"的防御比"&to1&"低，夺取"&shengf2&"身份失败，被别人一个呵欠吹了出来，内力损伤一半，惨哪。" call ErrQiang(ggsay) end if sql="update 用户 set 身份='"&shengf2&"',内力=内力*1/2 where 姓名='"&my&"'" conn.execute(sql) sql="update 用户 set 身份='无',体力=体力*1/2,内力=内力*1/2,骨头=骨头*1/2 where 姓名='"&to1&"'" conn.execute(sql) sql="update 门派 set 掌门='"&my&"' where 门派='"&mypai&"' and 掌门='"&to1&"'" conn.execute(sql) ggsay=my&"夺取"&to1&"的"&shengf2&"身份成功[内力损伤一半]，"&to1&"被打的鼻青脸肿的，内力，体力与门派威望各损伤一半。" call showchat("【门派竞选】" & ggsay) call ErrAlt(ggsay) Sub ErrQiang(tempsays) sql="update 用户 set 内力=内力*1/2 where 姓名='"&my&"'" conn.execute(sql) call showchat("【门派竞选】" & tempsays) call ErrAlt(tempsays) end sub Sub ErrALT(strContent) conn.close set rs=nothing set conn=nothing Response.Write "" Response.end End Sub %>