<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#INCLUDE file="conn1.asp"-->

<%
call head()
call saycardd("合成轩辕圣靴")
ids=session("id")
Server.ScriptTimeout=999
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select j2,bs,y6,hw1,hw2,hw3,k7,yz from wupin where cstr(ids)='"&myid&"'"
rs.open strsQL,liao,1,1
if rs("j2")<5 then
msg="您的铜矿数量不够！需要五块"
else
if rs("bs")<1 then
msg="您没有宝石"
else
if rs("y6")<1 then
msg="您没有情人花"
else
if rs("hw1")<3 then
msg="您没有3个巨型号角"
else
if rs("hw2")<3 then
msg="您没有3个星光灭绝"
else
if rs("hw3")<3 then
msg="您没有3个魔皇粉星拳"
else
if rs("yz")<100000 then
msg="您的银两不够扣除手续费"
else
if rs("k7")<5 then
msg="您的龙王靴数量不够，需要5件"
else
sql="update wupin set d8=d8+1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set j2=j2-5 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set bs=bs-1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set y6=y6-1 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw1=hw1-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw2=hw2-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set hw3=hw3-3 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set yz=yz-100000 where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set k7=k7-5 where cstr(ids)="&myid
  liao.Execute(sql)
msg="您成功合成物品<b><u>轩辕圣靴</u></b>"
END IF
end if
end if
end if
END IF
end if
end if
end if
Response.Write ""&msg&"<br/>========<br/>"
 rs.Close
	Set rs=Nothing
     liao.Close
      Set liao=Nothing
%>
<a href="mywp.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[我的包袱]</a><br/>
<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()%>