<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"


zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"


Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select * from 用户 where 姓名='"&zhbg_name&"'",conn
if rs.eof or rs.bof then 
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect "../../error.asp?id=210"
end if
if rs("泡豆点数")<1000 then
	mess="你现在还没有豆子，只有:<font color=red>"&rs("泡豆点数")&"</font>点"
else
	dousl=int(rs("泡豆点数")/1000)
	conn.execute "update 用户 set 泡豆点数=泡豆点数-"& dousl*1000 &",会员金卡=会员金卡+"& 2*dousl &" where 姓名='"&zhbg_name&"'"
	mess="卖豆子："&dousl&"个，会员费增加："&dousl*2&"元，还剩:"&rs("泡豆点数")-dousl*1000&"点！"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>

<head>
<link href="../../../css.css" rel="stylesheet" type="text/css">
<title>卖豆子</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body >
<table width="388" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr> 
    <td height="35" valign="middle"> 
      <script language="JavaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}
</script> <a href="javascript:load()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> 
    </td>
  </tr>
  <tr> 
    <td height="81" valign="top"> <div align="center"><b><font color="#000000"><font color=blue><%=zhbg_name%></font></font>欢迎大侠<img border="0" src="../../chat/pic/dz23.gif">光临自由市场卖豆</b></div></td>
  </tr>
</table>
<table width="388" height="240" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <!--DWLayoutTable-->
  <tr> 
    <td width="368" height="11" valign="top" > <div align="center">豆子简介</div></td>
  </tr>
  <tr> 
    <td valign="top" height="150" > <p>豆子是由你泡点时攒下来了,与泡点另算。每泡够1000点，计算机系统自动给你一个豆，当你选择暴豆后，杀伤力为平时3倍，可以持续1小时时间。如果你不想使用，可以在这里卖了。一个豆子=2元会员费用，你可以用卖豆子的会员费购买只有会员才有的卡片！</p>
      <%=mess%><br> <br> <br> </td>
  </tr>
  <tr> 
    <td height="31" align="center" valign="middle" ><%=Application("zhbg_chatroomname")%></td>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>



