<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="../../mywp.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")
cwjh_id=Session("cwjh_id")
nowinroom=session("nowinroom")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
chatbgcolor=Application("cwjh_chatbgcolor")
chatimage=Application("cwjh_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
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
juese=rs("角色")
juesedj=rs("角色等级")
mymf=rs("mf")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>角色</title>
<style type="text/css">
<!--
body {  font-size: 9pt; color=000000}
td {  font-size: 9pt; color=000000}
A {text-decoration: none; color: #76f76f; font-family: "宋体"; font-size: 9pt}
a:hover      { color: ffffFF; font-family: 宋体; font-size: 9pt; text-decoration:
underline }
A:active {  font-family: "宋体"; font-style: normal;  color: ffffFF; text-decoration: underline; font-size: 9pt}
br {font-size:6pt; line-height:80%;}
-->
</style>
<script language="JavaScript">   
function s(list){   
parent.f2.document.af.sytemp.value=list;parent.f2.document.af.sytemp.focus();   
}   
</script>   
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor="#800000" bgproperties="fixed" text="#FFFFFF" link="#FFFFFF" topmargin="10" vlink="#FFFFFF" leftmargin="0" background="../bg.gif">
<table border="0" cellspacing="0" cellpadding="2" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF">
    <tr> 
      <td align="center" colspan="2"> <font color="#00FF00">【角色RPG系统】</font> </td>
    </tr>
<%if rs("角色")="" or rs("角色")="无" then %>
     <tr> 
      <td align="center" colspan="2">        
      <font color="#FFFFFF">选择角色</font>        
      </td>
    </tr>
     <tr>
      <td align="center" colspan="2">    
     <font color="#FFFFFF">选前先读</font><a href="rpg_help.asp"><font color="#00FF00">角色帮助</font>  
  </a>  
      </td> 
    </tr>
    <tr>
      <td align="center" colspan="2"> <font color="#C0C0C0"><b>角色选定后无法更改</b></font> </td> 
    </tr>
    <tr>
      <td align="center" colspan="2">  
      <font color="#C0C0C0"><b>请慎重选择！</b></font>  
      </td> 
    </tr>
    <tr> 
<td colspan="2">           
<table width='90%' align=center border=1 cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF"  background=../bg.gif>          
<form method=post action=rpg_sel.asp id=form1 name=form1>          
<tr>                       
      <td colspan="2" height="44"> 
        <p align="center"> <font color="#FFFFFF"> <input type=radio name=op checked value='道士'>道士                       
 		<br>                       
      <input type=radio name=op value='巫师'>巫师                       
        <br>                       
      <input type=radio name=op value='战士'>战士</font>                       
        </p>
  </td>                       
</tr>                       
<tr>                       
      <td colspan="2" height="28">                        
        <p align="center">                        
        <input type=submit value='确 认' name="submit">                       
        </p>
      </td>                       
</tr>           
</form>          
</table>       
</tr>
        <tr> 
      <td align="center" colspan="2"> 
      <font color="#FFFFFF">当前角色数据</font> 
      </td>
    </tr>
<%else%>
   <tr> 
      <td align="center" colspan="2"> 
     <font color="#FFFF00"><font color="#FFFFFF">当前角色</font><br><%=rs("角色")%>/<%=rs("角色等级")%> 级</font>           
      </td>          
    </tr>          
    <tr>        
 <td align="left" colspan="2">         
 <p align="center">         
 <font color="#FFFFFF">〖<%=rs("角色")%>技能〗 </font>     
</td>       
</tr>     
<%   
end if   
rs.close   
%>   
<tr align=center valign=middle><td width=50% ><font color="#FFFFFF">技能名</font></td><td width=50% ><font color="#FFFFFF">修练等级</font></td></tr>  
<%if not(isnull(mymf)) then  
data1=split(mymf,";")  
data2=UBound(data1)  
for y=0 to data2-1  
	data3=split(data1(y),"|")  
	rs.open "SELECT * FROM 技能 where 技能='" & data3(0) & "' order by id",Conn,1,1  
	if not rs.eof and not rs.bof then  
	Response.Write "<tr align=center valign=middle><td width=50% ><a href="& chr(34) &"javascript:s('/技能$ "&  data3(0) &"')"& chr(34) &" title="& chr(34) &""& Rs("说明") &""& chr(34) &">"& data3(0) &"</a></td><td width='50%'><font color='#FFFFFF'>"& data3(1) &"</font></td></tr>"  
	end if  
	rs.close  
	erase data3  
next  
erase data1  
end if  
set rs=nothing    
conn.close     
set conn=nothing   
%>  
</table>