manage_aboutus.asp

来自「烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够」· ASP 代码 · 共 70 行

<%@ language="VBScript"%>
<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<%job=server.htmlencode(Trim(Request("content"))) %>
<%if Request.QueryString("no")="eshop" then
set rs=server.createobject("adodb.recordset")
sql="select * from main"
rs.open sql,conn,3,3
rs("Job")=Job
rs.update
rs.close
response.redirect "Manage_aboutus.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 class=a4> 
    <td align="center" valign="top">
      <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25">
<div align="center"><strong>关 于 我 们</strong></div></td>
        </tr>
        <tr> 
          <form method="POST" action="Manage_aboutus.asp?no=eshop">
		  <td><table width="100%" border="0" cellspacing="2" cellpadding="0">
                <tr> 
                  <td width="19%" height="300" bgcolor="#C0C0C0"> <div align="center"><br>
                      支持UBB代码 </div></td>
                  <td width="81%" bgcolor="#E3E3E3"> <script src=../Inc/Eshopcode.js></script> 
                    <!--#include file=../Inc/Ubb.inc -->
                    <textarea name="content" cols="58" rows="15"><%if rs_home("html")=false then
job=replace(rs_home("job"),"<br>",chr(13))
job=replace(job,"&nbsp;"," ")
else
job=rs_home("job")
end if
response.write job%></textarea> </td>
                </tr>
                <tr> 
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
                <tr> 
                  <td 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" height=80><div align="center"><iframe name="ad" frameborder=0 width=100% height=60scrolling=no src=../uploada.asp></iframe></div>
<br><br>
</td>
                </tr>
              </table></td></form>
        </tr>
      </table>
    </td>
  </tr>
</table>
<!-- #include file="../Inc/Foot.asp" -->