<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<%Call head()
Call saycarda("还魂丹过户")%>


<%  if cwhh<0 then
call error("您的还魂丹小于0")
end if
dim howtime,howday
  howtime = DateDiff("n", regtime, Now())
   HowDay  = int(HowTime/1440)
if howday < 5 then
 Response.Write "注册不到5天不能进行赠送哦..."
 Response.Write "<br/><a href='/bbs/show.asp?sid="&sid&"&amp;saytk="&saytk&"'>我的空间</a><br/>"
 Response.Write "<a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>社区首页</a><br/>"
 Response.Write "</p></card></wml>"
 response.end
 End if  
  conn.close
  set conn=Nothing
response.write "您现有"&cwhh&"个还魂丹<br/>"
dim id
id=request.querystring("ids")
if id<>"" then
 Response.Write "送给ID:"&id&"<br/>"
call xlanlj("hhzscl.asp?sid="&sid&"&amp;saytk="&saytk&"")%>
输入还魂丹数量：

<br/><input emptyok="false" value="" name="yibi" format="*N"/>
<br/>附言：
<br/><input value="" name="fuyan" format="*M"/><br/>
<%if saytk>1 then
call xltjlj("userid",""&id&"")
call xlanlj1("确定过户")
else%>
<br/><anchor>确定过户<go href="hhzscl.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>" method="post">
<postfield name="userid"    value="<%=id%>"/>
<postfield name="yibi" value="$(yibi)"/>
<postfield name="fuyan" value="$(fuyan)"/>

</go></anchor><br/>
<%end if
else
call xlanlj("hhzscl.asp?sid="&sid&"&amp;saytk="&saytk&"")%>
输入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"/><br/>
<%if saytk>1 then
call xlanlj1("确定过户")
else%>
<br/><anchor>确定过户<go href="hhzscl.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>" method="post">
<postfield name="userid"    value="$(userid)"/>
<postfield name="yibi" value="$(yibi)"/>
<postfield name="fuyan" value="$(fuyan)"/>

</go></anchor>
<%end if
end if%>



<!--#include file="fanhui.asp"-->
<%Call headsay()%>
