<SCRIPT LANGUAGE=JavaScript>if(window.name!='cwjh_win'){var i=1;while(i<=50){window.alert('刷钱是吗？喜欢是吗？点啊，刷啊！！');i=i+1;}top.location.href='../../exit.asp'}</script>
<!--#include file="conn.asp"-->
<!--#include file="../../showchat.asp"-->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
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"
name=request("name")
select case name
case "佛山无影"
 jj_jk=a_jk
 jj_jb=a_jb
 jj_qg=a_qg
case "飞燕投林"
 jj_jk=b_jk
 jj_jb=b_jb
 jj_qg=b_qg
case "佛光化体"
 jj_jk=c_jk
 jj_jb=c_jb
 jj_qg=c_qg
case "醉佛无影"
 jj_jk=d_jk
 jj_jb=d_jb
 jj_qg=d_qg
case "独步天下"
 jj_jk=e_jk
 jj_jb=e_jb
 jj_qg=e_qg
case "凌波微步"
 jj_jk=f_jk
 jj_jb=f_jb
 jj_qg=f_qg
case "神行百变"
 jj_jk=g_jk
 jj_jb=g_jb
 jj_qg=g_qg
case else
 Response.Write "<script Language=javascript>alert('你想干嘛？');window.close();</script>"
 response.end
end select
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
hy=rs("会员等级")
if hy<3 then
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 Response.Write "<script Language=javascript>alert('需要3级以上会员！');window.close();</script>"
 response.end
end if
if rs("会员金卡")<jj_jk then
		Response.Write "<script language=javascript>alert('抱歉你的金卡不够');history.back();</script>"
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.End	
end if
if rs("金币")<jj_jb then
		Response.Write "<script language=javascript>alert('抱歉你的金币不够');history.back();</script>"
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.End	
end if
if rs("轻功")<jj_qg then
		Response.Write "<script language=javascript>alert('你的轻功太低了，练练再说吧！');history.back();</script>"
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
		Response.End	
end if
sj=DateDiff("n",rs("操作时间"),now())
if sj<3 then
ss=3-sj
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('刚刚修炼过，请等："&ss&"分后再来修炼吧！');location.href = 'javascript:history.back()';}</script>"
	Response.End 
end if
conn.execute "update 用户 set 会员金卡=会员金卡-"&jj_jk&",金币=金币-"&jj_jb&",轻功=轻功-"&jj_qg&",操作时间=now() where 姓名='"&cwjh_name&"'"
rs.close
set rs=nothing
conn.close
set conn=nothing
message="" & cwjh_name & ":得了一本"&name&"秘籍，快回去练吧！小心走火入魔！"
says="<font color=red>【会员秘籍】<font color=green>"&message
call showchat(says)
Response.Write "<script language=JavaScript>{alert('"&message&"');window.close();}</script>"
response.end
%>