<%@ LANGUAGE=VBScript codepage ="936" %>
<%
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
cwjh_jhdj=Session("cwjh_jhdj")
if cwjh_name="" then Response.Redirect "../../error.asp?id=440"
if Instr(LCase(Application("cwjh_useronlinename"&session("nowinroom")))," "&LCase(cwjh_name)&" ")=0 then
	Response.Write "<script Language=Javascript>alert('你不能进行操作，进行此操作必须进入聊天室！');window.close();</script>"
	Response.End
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "select 金币 from 用户 where 姓名='"&cwjh_name&"'",conn,2,2
myjb=rs("金币")
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language="JavaScript"> 
if(window.top==window.self){var i=1;while (i<=50){window.alert("你想作什么呀，黑我？这里是不行的，去别处玩去吧！哈！慢慢点50次！！");i=i+1;}top.location.href="../../exit.asp"}
</script>
<LINK href="../../css.css" rel=stylesheet>
<body bgcolor='<%=bgcolor%>' background='../../bg.gif' oncontextmenu=self.event.returnValue=false>
<p align=center>
<%if myjb<=0 then%>
金币为0
<%else%>
  <form method="POST" action="suxin_ok.asp" name="af" onsubmit="bb.disabled=1">
  <div align="center">金币：<%=myjb%>个，转换属性<%=myjb*200%>点<br>
    <input type="text" name="input" size="10" maxlength="5">个金币转成<select name="a">
<option value="金" selected>金</option>
<option value="木">木</option>
<option value="水">水</option>
<option value="火">火</option>
<option value="土">土</option>
</select>
    <input type="submit" value="确定" name="bb" class="p9">
  </div>
</form>
<%end if%>
</p>
<p align=center><font color=red>[1个金币=200点属性]</p>
<div align="center"><font color="#00FF66"><font color="#0000FF"><FONT color=#0000ff>&copy; 版权所有 2004-2005 </FONT><A href="http://bbs.cqjk.net/" target=_blank><FONT color=#0000ff>酷屋江湖网</FONT></A></font></font>
</div>