<!--#include file="Conn.asp"-->
<!--#include file ="Check_Manager.asp"-->
<!--#include file="char.asp"-->
<%Set Rs = Server.CreateObject("ADODB.RecordSet")%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="admin/admin.css" type=text/css rel=stylesheet>
<SCRIPT language=JavaScript src="admin/js.js"></SCRIPT>

<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY text=#000000>
<SCRIPT>
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
   obj.style.height=he+i+'px';
else 
   obj.style.height='160px';
}
</SCRIPT>
<%
If Request.QueryString("action")="save" Then
qyjj = HTMLEncode2(Request.Form("qyjj"))
Set qyjj = conn.execute("update [config] set qyjj='"&qyjj&"'")
Response.Write "企业介绍更改成功，请继续其他操作。"
qyjj.close
Set qyjj =Nothing
Else
Set Rs=conn.execute("Select qyjj From [config] Where id = 1")
If Not (Rs.Eof and Rs.Bof) Then
%>
<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
  <TBODY>
  <TR>
    <TD width="100%" bgColor=#f7f3f7 colSpan=2 
      height=30>&nbsp;&nbsp;<B>说明</B>：企业介绍为首页的企业介绍,支持HTML，请编辑。</TD></TR></TBODY></TABLE><BR>
<TABLE class=tableBorder cellSpacing=0 cellPadding=0 width="95%" align=center 
border=0>
  <FORM id=form1 name=form1 action=?action=save method=post>
    <TBODY>
      <TR> 
        <TH colSpan=2 height=25><B>企业介绍</B></TH>
      </TR>
      <TR> 
        <TD align=right width="28%"><U>企业介绍<font color=red>(支持HTML)</font></U>&nbsp;</TD>
        <TD width="72%">&nbsp; <TEXTAREA name=qyjj rows=10 wrap=VIRTUAL cols=50><%=Rs("qyjj")%></TEXTAREA> 
          <BR> &nbsp;<A 
      href="javascript:change(document.all.qyjj,-20)"><IMG title=缩小文本框 
      src="admin/minus.gif" border=0></A>&nbsp;&nbsp;<A 
      href="javascript:change(document.all.qyjj,20)"><IMG title=放大文本框 
      src="admin/plus.gif" border=0></A></TD>
      </TR>
      <TR align=middle bgColor=#f7fbff> 
        <TD colSpan=2 
height=25><INPUT type=submit value=确认 name=Submit> &nbsp;&nbsp; <INPUT type=reset value=重置 name=Submit2></TD>
      </TR>
  </FORM></TBODY>
</TABLE>
</BODY></HTML>
<%
End If
End If
Rs.Close
Set Rs= Nothing
%>