<%@ 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"

zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 用户 where 配偶<>'无' and 配偶<>姓名 and 姓名='"&zhbg_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('提示：["&zhbg_name&"]你还没有配偶呢，来作什么！');history.go(-1);</script>"
	response.end
end if
rs.close
%>
<html>
<head>
<title>自创夫妻合体技</title>
<style></style>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link href="../../css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body >
<table cellpadding="0" cellspacing="1" border="1" align="center" width="45%" bordercolor="#cccccc">
  <!--DWLayoutTable-->
  <tr bordercolor="#cccccc"> 
    <td height="94" colspan="4" valign="top"> <div align="center"> <b><font  face="华文行楷" size="6"><a href="javascript:history.go(-1)">【返回】</a> <img border="0" src="../../chat/pic/35.gif">夫 
        妻 合 体 技 设 置</font></b></div></td>
  </tr>
  <tr bordercolor="#cccccc"> 
    <td width="190" height="11"> <div align="center">ID</div></td>
    <td width="86" height="11"> <div align="center">招 式 名</div></td>
    <td width="79" height="11"> <div align="center">所 用 内 力</div></td>
    <td width="81" height="11"> <div align="center">操 作</div></td>
  </tr>
  <%
rs.open "SELECT * FROM t where b='" & zhbg_name & "' or c='" & zhbg_name & "'"
s=0
do while not rs.eof and not rs.bof
s=s+1
%>
  <form method=POST action='STUNTOK.ASP?a=m'>
    <tr bordercolor="#cccccc"> 
      <td height="2"> <div align="center"><font color="#000000" size="2"><%=rs("id")%></font></div></td>
      <td height="2"> <div align="center"> <font color="#000000" size="2"> 
          <input type="text" name="wg" size="10" value="<%=rs("a")%>" maxlength="8">
          <input type="hidden" name="id" size="10" value="<%=rs("id")%>" maxlength="8">
          </font> </div></td>
      <td height="2"> <div align="center"> <font color="#000000" size="2"> 
          <input type="text" name="nl" size="10" value="<%=rs("d")%>" maxlength="8">
          </font> </div></td>
      <td height="2"> <div align="center"> <font color="#000000" size="2"> 
          <input type="submit" value="修改" name="submit">
          </font> <a href="DEL.ASP?id=<%=rs("id")%>"> <font color="#ff6600" size="2"> 
          删除</font> </a> </div></td>
    </tr>
  </form>
  <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
if s<5 then
%>
  <form method=POST action='STUNTOK.ASP?a=n'>
    <tr bordercolor="#cccccc"> 
      <td height="2"> <div align="center"><font size="2">新建</font></div></td>
      <td height="2"> <div align="center"> <font color="#000000" size="2"> 
          <input type="text" name="wg" size="10" maxlength="8">
          </font> </div></td>
      <td height="2"> <div align="center"> <font color="#000000" size="2"> 
          <input type="text" name="nl" size="10" maxlength="8">
          </font> </div></td>
      <td height="2"> <div align="center"> <font color="#000000" size="2"> 
          <input type="submit" value="添加" name="submit">
          </font> </div></td>
    </tr>
    <tr> 
      <td height="37" colspan="4" valign="top">[注：只有已婚大侠或侠女才可以自创，每创建一次收取10000两，创建后双方都可使用，离婚后合体技失效！]<br>
        <br>
        [杀伤力=((男方攻击+女方攻击)-对方防御)+所用内力]<br>
        <br>
  【 版权所有：<a href="http://www.oneidc.cn/" target="_blank">非凡国度</a> 】</td>
    </tr>
  </form>
  <%end if%>
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>