manage_contact.asp

一个企业管理ASP源码.增加了一些新的功能.

<!--#include file="conn.asp"-->
<!--#include file="basedsoftadmin.asp"-->
<%content=server.htmlencode(Trim(Request("content"))) %>
<%if Request.QueryString("mark")="southidc" then
set rs=server.createobject("adodb.recordset")
sql="select * from main"
rs.open sql,conn,3,3
rs("Contact")=content
rs.update
rs.close
response.redirect "Manage_Contact.asp"
end if
sql="select * from main"
Set rs_home= Server.CreateObject("ADODB.Recordset")
rs_home.open sql,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br> <strong><br>
      </strong> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
        <tr> 
          <td style="color:#ffffff" class="back_southidc"  height="25"> <div align="center"><strong>联 
              系 我 们</strong></div></td>
        </tr>
        <tr> 
          <form method="POST" action="Manage_Contact.asp?mark=southidc">
            <td><table width="100%" border="0" cellspacing="1" cellpadding="0">
                <tr> 
                  <td height="30" colspan="2" bgcolor="F2F8FF">&nbsp;</td>
                </tr>
                <tr> 
                  <td width="19%" height="300" bgcolor="F2F8FF"> 
                    <div align="center"><br>
                      支持UBB代码 </div></td>
                  <td width="81%" bgcolor="F2F8FF"> 
                    <script src=../Inc/Southidc.js></script> 
                    <!--#include file=../Inc/Ubb.inc -->
                    <textarea name="content" cols="58" rows="15"><%
Contact=rs_home("Contact")
response.write Contact%></textarea> </td>
                </tr>
                <tr bgcolor="F2F8FF"> 
                  <td height="30" colspan="2"> 
                    <div align="center"> 
                      <input type="submit" value=" 修 改 "
name="cmdok">
                      &nbsp; 
                      <input type="reset" value=" 重 写 "
name="cmdcancel">
                    </div></td>
                </tr>
                <tr> 
                  <td colspan="2">图片上传</td>
                </tr>
                <tr> 
                  <td colspan="2"><div align="center"> 
                      <iframe name="ad" frameborder=0 width=100% height=50 scrolling=no src=../Upload_based_Other.asp></iframe>
                    </div></td>
                </tr>
              </table></td>
          </form>
        </tr>
      </table>
      <strong> </strong></td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->