<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="JsInc/config.asp"-->
<script language = "JavaScript">
function CheckForm()
{   
  if (editor.EditMode.checked==true)
	  document.myform.Content.value=editor.HtmlEdit.document.body.innerText;
  else
	  document.myform.Content.value=editor.HtmlEdit.document.body.innerHTML; 
	  
  if (document.myform.UpdateTime.value=="")
  {
    alert("录入时间不能为空！");
	document.myform.UpdateTime.focus();
	return false;
  }

if (document.myform.Content.value=="")
  {
    alert("企业信息不能为空！");
	editor.HtmlEdit.focus();
	return false;
  }
}
  function loadForm()
{
  editor.HtmlEdit.document.body.innerHTML=document.myform.Content.value;
  return true
}
</script>
<html>
<head>
<titel></titel>
<LINK href="admin/admin.css" type=text/css rel=stylesheet>
</head>
<body>
<body onLoad="javascipt:setTimeout('loadForm()',1000);">
<%
Set rs=Server.CreateObject("Adodb.RecordSet")
Sql = "Select * From [About_Manage] Where ID="&Clng(Request("id"))
rs.Open Sql,Conn,1,1
%>
<table width="100%" height="43%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="411" align="center" valign="top"> <br> 
      <form method="POST" name="myform" onSubmit="return CheckForm();" action="Manage_EditCon.asp?action=update&id=<%=Request("id")%>">
        <table width="620" border="0" align="center" cellpadding="0" cellspacing="0" class=tableBorder>
          <tr> 
            <td height="25" align="center" background="admin/admin_bg_1.gif" class="title"><font color="#FFFFFF"><strong>企 
              业 信 息 管 理 </strong></font></td>
          </tr>
          <tr align="center"> 
            <td valign="top"> 
              <table width="100%" border="0" cellpadding="2" cellspacing="1">
                <tr> 
                  <td height="22" align="right">介绍类别：</td>
                  <td width="462"> 
<%
Set dd=Conn.Execute("Select * From [ClassManage]")
Response.Write "<select name=ClassName onChange='changelocation(document.myform.BigClassName.options[document.myform.BigClassName.selectedIndex].value)'>"
If dd.Eof and dd.Bof Then
Response.Write "没有企业信息"
Else
Do until dd.Eof
Response.Write "<option "
If dd("Type")=rs("ManageType") Then Response.Write "selected"
Response.Write " value=" &Trim(dd("Type"))& ">" &Trim(dd("Type"))& "</option>"
dd.MoveNext
Loop
End if
Response.Write "</select>"
%>
                    <font color="#0000FF">(添加前请选好介绍类别)</font> </td>
                </tr>
                <tr> 
                  <td height="22" align="right" valign="middle">介绍信息：</td>
                  <td> </td>
                </tr>
                <tr> 
                  <td colspan="2" align="right" valign="middle"> <div align="left"> 
                      <textarea name="Content" style="display:none"><%=rs("Content")%></textarea>
                      <iframe ID="editor" src="Editor.asp" frameborder=1 scrolling=no width="620" height="405"></iframe>
                    </div></td>
                </tr>
                <tr> 
                  <td height="22" align="right">录入时间：</td>
                  <td> <input name="UpdateTime" type="text" id="UpdateTime" value="<%=date()%>" maxlength="50">
                    当前时间为：<%=now()%> 注意不要改变格式。</td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <div align="center"> 
          <p> 
            <input name="update" type="submit"  value="修改">
          </p>
        </div>
      </form></td>
  </tr>
</table>
<%call CloseConn()%>
</body>
</html>