<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>会员卡片</title>
<link href="../../css.css" rel="stylesheet" type="text/css">
<!--#include file="../top_index.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../../gif/a1-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../../gif/a1.js"></SCRIPT>
<% end if %>
<br>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
 <tr>
    <td width="7" height="32"></td>
    <td width="247" rowspan="2" valign="top"><table width="247"  border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="246" valign="top">
<% if zhbg_name<>"" then %>
<!--#include file="../../man.asp"-->
<% else %>
<!--#include file="../../denglu.asp"-->
<% end if %>
</td>
        </tr>
		<tr><td height="21" valign="top" ><!--DWLayoutEmptyCell-->&nbsp;</td>
		</tr>
    </table></td>
    <td width="23" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="471" align="center"><font color="#FF9900" size="3"><b>会员卡片</b></font> </td>
    <td width="27" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <tr>
    <td></td>
    <td valign="top"><br>每种卡片都有独特的功能，功能一栏中有相应介绍！
如果您买错、多买或不想要了，请到这里<a href="CARD_D.ASP">卡片八折回收</a>！买卡时请慎重选择。<br><br>
<table width="471" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <!--DWLayoutTable-->
  <tr bordercolor="#cccccc"> 
    <td width="52" height="24"> <div align="center">卡片名称</div></td>
    <td width="228"> <div align="center">功 
    能</div></td>
    <td width="39"> <div align="center">会费</div></td>
    <td width="50"> <div align="center">条 
    件</div></td>
    <td width="38" valign="top"> <div align="center">操 
    作</div></td>
  </tr>
<%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select * from b where b='卡片' and h>0 order by h",conn
do while not rs.bof and not rs.eof
%>
  <tr> 
    <td height="26" > <div align="center"><%=rs("a")%> </div></td>
    <td ><%=rs("c")%></td>
    <td > <div align="center"><%=rs("h")%>元</div>
    <td  align="center"><%=rs("l")%></td>
    <td  align="center" valign="top"><a href="BUYCARD.ASP?id=<%=rs("id")%>">购买</a></td>
  </tr>
  <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<br>
</td>
  </tr>
</table>
<br>
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../../gif/a2-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../../gif/a2.js"></SCRIPT>
<% end if %>
<br>

</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>