<%@ 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"
useronlinename=Application("cwjh_useronlinename"&session("nowinroom"))
if Instr(LCase(Application("cwjh_useronlinename"&session("nowinroom")))," "&LCase(cwjh_name)&" ")=0 then
	Response.Write "<script language=JavaScript>{alert('你不能进行操作，进行此操作必须进入聊天室！');location.href = 'javascript:history.go(-1)';}</script>"
	Response.End 
end if
who=Trim(Request.Form("who"))
if who="" then who=cwjh_name
show=Split(Trim(useronlinename),"  ",-1)
x=UBound(show)
chatroombgimage=Application("cwjh_chatimage")
chatroombgcolor=Application("cwjh_chatbgcolor")
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
if rs.bof or rs.eof then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('你不是江湖人物！');location.href = 'javascript:history.go(-1)';}</script>"
	Response.End 
end if
pai=rs("门派")
chatbgcolor=Application("cwjh_chatbgcolor")
chatimage=Application("cwjh_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
%>
<html>
<head>
<title>连续技</title>
<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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="<%=chatbgcolor%>" background="<%=chatimage%>" bgproperties="fixed">
<div align="center">
<p><br>
<font color="#FFFFFF"><span style='font-size:9pt'>〖连续技〗</span></font></font><br>
</font> </p>
<p class=p1 align="center"><font color="#FFFFFF">最多可连三招<br>
伤害=三招伤害总和</font></p>
<form method=POST action='stunt1.asp'><font color="#FF0033">攻击对象</font><br>
<select name="to1">
<%
for i=0 to x
	if show(i)<>cwjh_name and show(i)<>peiou then
		%><option value="<%=show(i)%>"<%if CStr(show(i))=CStr(who) then Response.Write " selected"%>><%=show(i)%></option><%
	end if
next
%>
</select>
<font color="#FFFFFF"><br>
<br>
连招1<br>
<select class="smallSel" name="at1" size="1">
<%
rs.close
rs.open "SELECT * FROM y where b='" & pai & "'",conn
do while not rs.eof
sel="selected"
response.write "<option " & sel & " value='"+CStr(rs("a"))+"' >"+rs("a")+""+chr(13)+chr(10)
rs.movenext
loop
%>
</select>
<br>
<br>
<br>
连招2<br>
<select class="smallSel" name="at2">
<%
rs.close
rs.open "SELECT * FROM y where b='" & pai & "'",conn
do while not rs.eof
sel="selected"
response.write "<option " & sel & " value='"+CStr(rs("a"))+"'>"+rs("a")+""+chr(13)+chr(10)
rs.movenext
loop
%>
</select>
<br>
<br>
<br>
连招3<br>
<select class="smallSel" name="at3">
<%
rs.close
rs.open "SELECT * FROM y where b='" & pai & "'",conn
do while not rs.eof
sel="selected"
response.write "<option " & sel & " value='"+CStr(rs("a"))+"'>"+rs("a")+""+chr(13)+chr(10)
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</select>
<br>
<br>
</font><font color=#ffffff>
<input type=submit value="发 招" name=submit>
</font><br>
</form>
</div>
</body></html>