<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file ="Check_Manager.asp"-->
<script language="JavaScript" type="text/JavaScript">
function checkBig()
{
  if (document.form1.ClassName.value=="")
  {
    alert("模版名称不能为空！");
    document.form1.ClassName.focus();
    return false;
  }
}
</script>
<html>
<head>
<titel></titel>
<LINK href="admin/admin.css" type=text/css rel=stylesheet>
</head>
<body>
<%
Dim id
Dim Rs
id = Request.QueryString("id")
Set Rs = Conn.ExeCute("Select [Ja_Name] From [JaHtml] Where id = "&id&"")
If Not Rs.Eof Then
%>
<table width=100% height=40% border=0 cellpadding=0 cellspacing=0><tr><td height=153 align=center valign=top><table width=80% border=0 cellpadding=0 cellspacing=0><tr><td align=center valign=top><br><strong>企 业 模 版 名 称 修 改</strong><br><form name=form method=post action='Moban_save.asp?action=up' onsubmit='return checkBig()'><table width=350 border=0 align=center cellpadding=2 cellspacing=1 class=tableBorder><tr><td height=25 colspan=2 align=center><strong>修改模版名称</strong></td></tr><tr><td width=126 height=22><div align=right>模版名称：</div></td><td width=218><input name='MobanName' type=text size=20 maxlength=30 value="<%=Rs("Ja_Name")%>"><input name='id' type=hidden  value="<%=id%>"></td></tr><tr><td height=22 align=center>&nbsp; </td><td height=30 align=center><div align=left><input name=Add type=submit value=' 修 改 '></div></td></tr></table></form></td></tr></table>
</body>
</html>
<%
End If
Rs.Close
Set Rs =Nothing
%>