<!--#include file="../../SQLconn.asp"-->
<link rel="stylesheet" type="text/css" href="../../css/style.css" />



<p>
  <script Language="JavaScript">
 function form_check(){
  if(document.form3.vid.value.length<1){window.alert("请输入序号");document.form3.vid.focus();return (false);}
   
                  }

  </script>
</p>

<p>
  <%
   tname=request("tname")
   
   
   %>
</p>
<p>&nbsp;</p>
<table width="500" align="center" border="1" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtable">   
    <tr style="background-color:#D6E4FF"  class="TableHeader">
    <td align="center" nowrap class="STYLE1">序号</td>
    <td height="27" align="center" nowrap class="STYLE1"><div align="center">室场名称</div></td>
    <td width="141" align="center" nowrap class="STYLE1"> 室场负责人</td>
    <td width="91" align="center" nowrap class="STYLE1">操作</td>
    </tr>

   
   <%Set Rslist=Server.CreateObject("Adodb.Recordset")
   sqllist="select * from varset where  name='"&tname& "'  order by vid" 
   Rslist.open sqllist,conn,1,1
   while not Rslist.eof and not Rslist.bof%>
    <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#EFF8FF'">
    <td width="88" height="27" align="center" nowrap class="STYLE1"><%=Rslist("vid")%></td>
    <td width="146" align="center" nowrap class="STYLE1"><%=Rslist("vname")%></td>
    <td align="center" nowrap class="STYLE1"><%=Rslist("vname1")%></td>
    <td align="center" nowrap class="STYLE1"><a href="modify.asp?shichang=<%=Rslist("vname")%>">修改</a>	</td>	
    </tr>
<%  Rslist.movenext
    wend
%>
</table>
