<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="check.asp"-->
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
Response.Expires=0
name=trim(Request.QueryString("name"))
%>
<html>
<head>
<title>卡片<%=name%>的管理操作</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="jh.css" rel="stylesheet" type="text/css">
</head>
<body >
<script language=JavaScript>
function del(url)
{if(confirm("此操作将要删除此卡片条件设置数据，您确定删除此项目吗？"))parent.mainFrame.location.href=url;}
</script>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
set rs=server.createobject("adodb.recordset")
conn.open Application("sjjh_usermdb")
rs.open "Select * from sjjh_cardsm where a='"& name &"' order by id",conn,0,1
if not rs.eof then
%>
<table width="98%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center">
  <tr bgcolor="#66CC66"> 
    <td align="center">卡片名</td>
    <td align="center">类别</td>
    <td align="center">操作表</td>
    <td align="center">方式</td>
    <td align="center">数据</td>
    <td align="center">消息</td>
    <td align="center"><strong><a href="addcardsm.asp?name=<%=name%>">添加卡设置</a></strong></td>
  </tr>
  <%do while not rs.eof%>
  <tr bgcolor="" onmouseover="this.bgColor='#85C2E0';" onmouseout="this.bgColor='';"> 
    <td>
<div align="center"><%=trim(rs("a"))%></div></td>
    <td align="center"> 
      <%select case rs("b")
case 1
Response.Write"自己冲突表"
case 2
Response.Write"对方冲突表"
case 3
Response.Write"对方冲突卡"
case 4
Response.Write"自己操作表"
case 5
Response.Write"对方操作表"
end select%>
    </td>
    <td>
<div align="center"><%=trim(rs("c"))%></div></td>
    <td align="center"><%=trim(rs("d"))%></td>
    <td>
<div align="center"><%=trim(rs("e"))%></div></td>
    <td align="left"> <%=trim(rs("f"))%></td>
    <td>
<div align="center"><a href="modicardsm.asp?id=<%=rs("id")%>" title="修改门派资料！">修改</a> 
        | <a href=Javascript:del("jhgl.asp?act=delcardsm&id=<%=rs("id")%>") title="删除资料">删除</a></div></td>
  </tr>
  <%rs.movenext
loop %>
</table>
<%else %>
<div align="center">此卡还没有设置请<a href="addcardsm.asp?name=<%=name%>">添加</a>！</div>
<% rs.close
set rs=nothing
end if%>
<p align="center">[<a href="cardgl.asp?name=<%=name%>">====刷新====</a>]<br>
  <br>
  [<a href="cardlist.asp">====返回====</a>] 
</body></html>
