<%@ 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"
http = Request.ServerVariables("HTTP_REFERER") 
if InStr(http,"chat")=0 then 
	Response.Write "<script language=javascript>{alert('对不起，程序拒绝您的操作！！！\n     按确定返回！');}</script>" 
	Response.End 
end if
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
zhbg_hydj=Session("zhbg_hydj")
chatbgcolor=Application("zhbg_chatbgcolor")
chatimage=Application("zhbg_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if Instr(LCase(Application("zhbg_useronlinename"&session("nowinroom")))," "&LCase(zhbg_name)&" ")=0 then
	Response.Write "<script Language=Javascript>alert('你不能进行操作，进行此操作必须进入聊天室！');location.href = 'javascript:history.go(-1)';</script>"
	Response.End
end if
zhbg_roominfo=split(Application("zhbg_room"),";")
chatinfo=split(zhbg_roominfo(session("nowinroom")),"|")
if chatinfo(0)="恩怨情仇" then
	tj="dgjjok.asp"
else
	tj="hyjzok.asp"
end if
erase zhbg_roominfo
erase chatinfo
%>
<html>
<head>
<title>会员绝招</title>
</head>
<style type='text/css'>
body{font-size:9pt;}
td{font-size:9pt;}
input{font-size:9pt;}
a{font-size:9pt; color:black;text-decoration:none;}
a:hover{color:red;text-decoration:none;}
</style>
<script Language=Javascript>
//parent.show.fm1.innerHTML="&chr(34)&mcsl&chr(34)&";
//parent.show.fm2.innerHTML="&chr(34)&"0"&chr(34)&";parent.show.fm3.innerHTML="&chr(34)&"0"&chr(34)&";parent.show.shiform.fmsl.value=0
function hyjz(zsname)
{mydj=<%=zhbg_jhdj%>
var dj=0;money=0;tl=0;nl=0
switch(zsname){
case "分筋错骨":dj=25;money=1000000;tl=4000;nl=4000;break;
case "化骨绵掌":dj=30;money=1500000;tl=6000;nl=6000;break;
case "明月神功":dj=35;money=2000000;tl=7000;nl=7000;break;
case "排云掌法":dj=40;money=2500000;tl=8000;nl=8000;break;
case "浮影剑法":dj=45;money=3000000;tl=9000;nl=9000;break;
case "雷霆三式":dj=50;money=3500000;tl=10000;nl=10000;break;
case "覆雨翻云":dj=55;money=4000000;tl=11000;nl=11000;break;
case "冰雪飞尘":dj=60;money=4500000;tl=12000;nl=12000;break;
case "天外飞仙":dj=70;money=5000000;tl=13000;nl=13000;break;
}
document.myhyzj.maxnl.value=nl;
document.myhyzj.maxtl.value=tl;
document.myhyzj.nl.value=nl;
document.myhyzj.tl.value=tl;
document.myhyzj.money.value=money;
document.myhyzj.dj.value=dj;
if(tl<100) alert("选择错误！");
if(dj>mydj) alert("你的等级不够呀，发不了此招式！");
sm.innerHTML='<font size="-1">[<font color=blue><b>'+zsname+'</b></font>]需国度等级大于等于<font color=red>'+dj+'</font>级，现金:<font color=red>'+money+'</font>两，体力:<font color=red>'+tl+'</font>点,内力:<font color=red>'+nl+'</font>点!</font>'
}
</script>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed">
<div align="center"><font color="#ff6600">会员绝招</font><br>
  <br>
  <form method=POST action='hyjzok.asp' name='myhyzj'>
 <font color="#FF0033">攻击对象</font><br>
    <select name="to1">
      <%useronlinename=Application("zhbg_useronlinename"&session("nowinroom"))
show=Split(Trim(useronlinename),"  ",-1)
x=UBound(show)
for i=0 to x
if show(i)<>zhbg_name Then
%>
      <option value="<%=show(i)%>" selected><%=show(i)%></option>
<%end if
next%>
    </select>
    <font color="#FFFFFF"><br>
    <br>
    <select name='hyjzzs' onChange="hyjz(this.value);" style='font-size:12px'>
      <option value="分筋错骨" selected>分筋错骨</option>
      <option value="化骨绵掌">化骨绵掌</option>
      <option value="明月神功">明月神功</option>
      <option value="排云掌法">排云掌法</option>
      <option value="浮影剑法">浮影剑法</option>
      <option value="雷霆三式">雷霆三式</option>
      <option value="覆雨翻云">覆雨翻云</option>
      <option value="冰雪飞尘">冰雪飞尘</option>
      <option value="天外飞仙">天外飞仙</option>
    </select>
    <br>
    <br>
    使用体力 
    <input type="text" name="tl" value="50000" maxlength="5" size="5">
    <input type="hidden" name="maxtl" value="50000" maxlength="5" size="5">
    <br>
    使用内力 
    <input type="text" name="nl" value="50000" maxlength="5" size="5">
    <input type="hidden" name="maxnl" value="50000" maxlength="5" size="5">
    <input type="hidden" name="money" value="50000000" maxlength="10" size="10">
    <input type="hidden" name="dj" value="4" maxlength="5" size="5">
    <br>
    </font><font color=#ffffff> 
    <input type=submit value="施展绝技" name=submit>
    </font>
  </form>
  <table width="95%" border="1" cellspacing="3" cellpadding="3">
    <tr > 
      <td id="sm"><font color="#ff6600">选择攻击对象、招式名称、攻击内力、体力，然后点施展绝技进行攻击!</font></td>
    </tr>
  </table>
</div>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
