<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%call head()
call saycardd("江湖银行")
num=clng(request("num"))
ids=session("id")
%>
<!--#INCLUDE file="conn1.asp"-->
<%
Server.ScriptTimeout=999
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select yz,jk from wupin where cstr(ids)="&myid
rs.open strsQL,liao,1,2
jk=clng(rs("jk"))
if num=0 or IsNumeric(num) = False then
Response.Write "不能为空或为零<br/>---------<br/><a href='bankp.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()
Response.end 

end if
if jk<num then
call error("您银行里没有这么多银子呀<br/>---------<br/>")
end if
rs("yz")=rs("yz")+num
rs("jk")=rs("jk")-num
rs.update
  rs.Close
	Set rs=Nothing
 liao.Close
      Set liao=Nothing
%>
提取银子成功!<br/>
---------<br/>
<a href="yz.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()%>