<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#INCLUDE file="conn1.asp"-->
<%call head()
call cardz10("使用魔法卷轴","ding1.asp?pid=1&amp;sid="&request("sid")&"")
wpid=request("wpid")
pid=request("pid")
%>
<%
Server.ScriptTimeout=999
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select "&wpid&" from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,1
if rs(""&wpid&"")<1 then
msg="您没有该物品！快去<a href='bang.asp?sid="&sid&"&amp;saytk="&saytk&"'>魔导师</a>那里买一点吧"
else
set rs8=Server.CreateObject("ADODB.Recordset")
strsQL="select jy,tl,jj,xx,sd from sx where cstr(ids)='"&myid& "'"
rs8.open strsQL,liao,1,1
myjy=rs8("jy")
mytl=rs8("tl")
myxx=rs8("xx")
 rs8.Close
	Set rs8=Nothing
if wpid="mm1" then
sql="update sx set jj=2 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了圣盾术,现在拥有2回合的免疫任何攻击的结界了.<br/>您的体力为"&mytl&"<br/>"
elseif wpid="mm2" then
sql="update sx set sd=3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了烈火术,现在拥有3回合的双倍攻击魔法能力了.<br/>您的体力为"&mytl&"<br/>"
elseif wpid="mm3" then
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了瞬移术,请快<a href='shunyi.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;pid="&pid&"'>点击这里</a>退出战场.<br/>您的体力为"&mytl&"<br/>"
elseif wpid="mm4" then
sql="update sx set xx=6 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set "&wpid&"="&wpid&"-1 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您使用了刺杀术,现在拥有6回合的双倍攻击魔法能力了.<br/>您的体力为"&mytl&"<br/>"
END IF
end if
Response.Write ""&msg&"正在返回！<br/>=========<br/>"
 rs.Close
	Set rs=Nothing
     liao.Close
      Set liao=Nothing
%>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">江湖首页</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<%call head1()%>