<!--#include file="../../checkLogin.asp"-->
<!--#include file="../../SQLconn.asp"-->

<html>
<link rel="stylesheet" type="text/css" href="../images/<%=request.cookies("imgdir")%>/css/style.css" media="all"/>
<head>
<title>修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
function CheckForm()
{
  

   if(document.form1.vname.value=="")
   { alert("内容不能为空！");
     return (false);
   }

  

   return (true);
}

</script>
</head>

<body class="bodycolor" topmargin="5">

<table border="0" width="100%" cellspacing="0" cellpadding="3" class="small">
  <tr>
    <td class="Big">&nbsp;</td>
  </tr>
</table>
<p>
  <%
strId=request("id")
 tname=request("tname")
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from varset where     ID='"&strID& "'"
rs.open sql,conn,1,1
%>
</p>
<form name="form1" method="post" action="Savemodify.asp?tname=<%=tname%>&id=<%=strid%>"  onSubmit="return CheckForm();">
  <table width="90%" height="300" border="1" align="center" cellpadding="3"   cellspacing="0"  bordercolor="#6D8DD8"  class="mtablehui">
 <tr style="background-color:#D6E4FF"  class="TableHeader">      <td height="30" colspan="3" valign="middle"  align="center" nowrap class="NemuNot"> 
 <table width="290" align="center" border="0" cellpadding="0"   cellspacing="0"  bordercolor="#6D8DD8">   
    
    
    <tr>
      <td height="38" class="STYLE1"><div align="center">顺序号</div></td>
      <td class="STYLE1"><label>

        <div align="left">
          <input name="vid" type="text" class="text"   id="vid" value=<%=rs("vid")%>>
        </div>
          </label></td></tr>
    <tr>
      <td width="52" height="48" class="STYLE1" ><div align="center">参数名</div></td>
      <td width="238" class="STYLE1"><div align="left"><span class="STYLE3"><b>
	  
         
		<select name="vname" id="vname">
          <option><%=rs( "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>
	  
		
		
		
      </b></span></div></td>
    </tr>
    
    <tr>
      <td height="58" colspan="2" class="STYLE1"><div align="center"><span class="STYLE3"><b>
        <input name="submit" type="submit" class="topanniu"  value="保存">
      </b></span></div></td>
    </tr>
  </table>
  <p class="STYLE3">&nbsp;</p>
  <p class="STYLE3"><b>
    <input name="button" type="button" class="topanniu" onClick="location='setvar.asp?tname=<%=tname%>'" value="返回上页">
  </b></p></td>    
 </tr>    </table>    
</form>
<p>&nbsp;</p>
<p><br>
  
  
</p>
<div align="center"></div>
</body>
</html>