<!--#include file="../../checkLogin.asp"-->
<!--#include file="../../SQLconn.asp"-->
<link rel="stylesheet" type="text/css" href="../../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>



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

  </script>
</p>

<%
   tname=request("tname")
   
   
   %>
      <form id="form3" name="form3" method="post" action="save.asp?tname=<%=tname%>"  onSubmit="return form_check();">
      <table width="442" border="0" align="center" cellspacing="0" bordercolorlight="#11b1ff" bordercolordark="#f0f8ff">
      <tr align="middle">  <td class="STYLE1">&nbsp;</td>
      <td height="41" class="STYLE1"><div align="center">序号</div></td>
      <td align="center" valign="middle" class="STYLE1"><div align="left">
      <label><input name="vid" type="text" class="text" id="vid" size="5" /></label>
      </div></td><td>&nbsp;</td> </tr>
      <tr align="middle"> <td width="36" class="STYLE1">&nbsp;</td>
      <td width="58" height="41" class="STYLE1"><div align="center">参数名</div></td>
      <td width="331" align="center" valign="middle" class="STYLE1"><div align="left">
	 
	   <select name="vname" id="vname">
          <option><%=Rsvar( "vname" )%></option>
          <% Set RSsel = Conn.Execute("select * from varset where  name='xueqi'  order by vid" )
                   While NOT RSsel.EOF %>
          <option value="<%=RSsel( "vname" )%>"><%=RSsel( "vname" )%></option>
          <% RSsel.MoveNext
                  Wend
                 
				  %>
        </select>
	  
	  
	  
	  <input name="Submit" type="submit" class="topanniu" value="添加" />
      </div> </label></td><td width="9">&nbsp;</td> 
      </tr></table></form>

    <table width="426" 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">参数名【<%=tname%>】</div></td>
   <td width="157" 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="78" height="27" align="center" nowrap class="STYLE1"><%=Rslist("vid")%></td>
    <td width="165" align="center" nowrap class="STYLE1"><%=Rslist("vname")%></td>
    <td align="center" nowrap class="STYLE1">
	<a href="modify.asp?tname=<%=tname%>&id=<%=Rslist("id")%>">修改</a>&nbsp;&nbsp;&nbsp;
    <a href="delete.asp?tname=<%=tname%>&id=<%=Rslist("id")%>">删除</a>	</td>	</tr>
<%  Rslist.movenext
    wend
%>
</table>
