<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head() 
saycarda("元宝过户")

sid=Request("sid")

dim howtime,howday,rmbcent
  howtime = DateDiff("n", regtime, Now())
   HowDay  = int(HowTime/1440)

id=usb(request("id"))
if id="" or IsNumeric(id) = False then
id=myid
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [Users] where [id]="&id,conn,1,1
if rs.eof then
 Call Error("没有此会员！")
  end if
newrmbcent=rs("rmbcent")

if howday<5 then
 Response.Write "注册不到5天不能进行过户..."
 Response.Write "<br/><a href='show.asp?saytk="&saytk&"&amp;sid="&sid&"'>我的空间</a><br/>"
 Response.Write "<a href='index.asp?saytk="&saytk&"&amp;sid="&sid&"'>社区首页</a><br/>"
call headsay()
 response.end
 End if  
  conn.close
  set conn=Nothing
response.write "您当前拥有"&newrmbcent&"元宝<br/>"

dim id
id=request.querystring("ids")
if id<>"" then
 Response.Write "送给ID:"&id&"<br/>"
%>
输入元宝数量：
<br/><input emptyok="false" value="" name="yibi" format="*N"/>
<br/>附言：
<br/><input value="" name="fuyan" format="*M"/>
<%if centmm<>"" then%>
<br/>您的<%=getcent%>密码：
<br/><input emptyok="false" value="" name="centstr"/>
<%end if%>
<br/><anchor>确定过户<go href="bankokrmb.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post">
<postfield name="userid"    value="<%=id%>"/>
<postfield name="yibi" value="$(yibi)"/>
<postfield name="fuyan" value="$(fuyan)"/>
<postfield name="centstr" value="$(centstr)"/>
</go></anchor><br/>
<%else%>
输入ID号：
<br/><input emptyok="false" value="" name="userid" format="*N"/>
<br/>输入元宝数量：
<br/><input emptyok="false" value="" name="yibi" format="*N"/>
<br/>附言：
<br/><input value="" name="fuyan" format="*M"/>
<%if centmm<>"" then%>
<br/>您的<%=getcent%>密码：
<br/><input emptyok="false" value="" name="centstr"/>
<%end if%>
<br/><anchor>确定过户<go href="bankokrmb.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>" method="post">
<postfield name="userid"    value="$(userid)"/>
<postfield name="yibi" value="$(yibi)"/>
<postfield name="fuyan" value="$(fuyan)"/>
<postfield name="centstr" value="$(centstr)"/>
</go></anchor><br/>
<%end if%>
<br/><a href='bank.asp?ids=<%=id%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>'>转帐</a>

提示:元宝过户会收取100<%=getcent%>手续费！
<br/><a href='bankcl.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>社区银行</a>

<%call headsay()%>