<!--#include file="../conn.asp" -->
<%
'检查用户访问的权限
call checkuser(5)

if request.QueryString("action")="save" then
	strSQL="Select * From Templet_Menu Where t_code='" & request.Form("txtOldMb") & "'"
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSQL,conn,1,1
	Set rsMb=Server.CreateObject("ADODB.RecordSet")
	rsMb.open "Templet_Menu",conn,1,3
	for i=1 to rs.recordcount	
		rsMb.addnew
		For j=1 to rs.Fields.count-1
			rsMb(j)=rs(j)
		Next
		rsMb("t_code")=request.Form("txtNewMb")
		rsMb.update
		rs.movenext
	Next
	rs.close
	rsMb.close
	response.Write("Update OK!<br>")
End if
%>
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><body>
<form name="form1" method="post" action="?action=save">
  <table width="563" height="178" border="0" cellpadding="0" cellspacing="5">
    <tr> 
      <td width="162" height="35" align="right">源模板编号：</td>
      <td width="386"><input name="txtOldMb" type="text" id="txtOldMb"></td>
    </tr>
    <tr> 
      <td height="33" align="right">目标模板编号：</td>
      <td><input name="txtNewMb" type="text" id="txtNewMb"></td>
    </tr>
    <tr> 
      <td height="64">&nbsp;</td>
      <td><input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置"></td>
    </tr>
    <tr> 
      <td height="21">&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
</form>
</body>
</head>
</HTML>