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

<%call head()
call saycardd("江湖银行")
num=clng(request("num"))
%>
<!--#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
yz=clng(rs("yz"))
if yz<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="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">我的江湖</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<%call head1()%>