manage_editculturenews.asp

漂亮的公司企业通用整站源码 希望大家能用的上

<!--#include file="conn.asp"-->

<!--#include file="admin.asp"-->
<!--#include file="../Inc/articleCHAR.INC"-->
<%if Request.QueryString("no")="eshop" then

id=request("id")
title=request("title")
content=htmlencode2(Request("content"))



If title="" Then
response.write "SORRY <br>"
response.write "请输入更新内容的标题"
response.end
end if
If content="" Then
response.write "SORRY <br>"
response.write "内容不能为空"
response.end
end if


Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from culture where id="&id
rs.open sql,conn,1,3

rs("title")=title
rs("content")=content
rs.update
rs.close
response.redirect "Manage_culture.asp"
end if
%>
<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From culture where id="&id, conn,3,3
%>
<!-- #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> <br> <br> 
      <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc">
        <tr> 
          <td class="back_southidc" height="25"> <div align="center"><strong>修改文章 <br>
              </strong></div></td>
        </tr>
        <tr> 
          <form method="post" action="Manage_editculturenews.asp?no=eshop">
            <input type=hidden name=id value=<%=id%>>
            <td><div align="center"> 
                <table width="100%" border="0" cellspacing="1" cellpadding="0">
                  <tr bgcolor="#E7E7E7"> 
                    <td width="8%" height="25" bgcolor="#ECF5FF"> 
                      <div align="center">标&nbsp;&nbsp;题</div></td>
                    <td width="62%" bgcolor="#ECF5FF"> 
                      <input type="text" name="title" maxlength="30" size="25" value="<%=rs("title")%>">
                    </td>
                  </tr>
                  <tr bgcolor="#ECF5FF"> 
                    <td height="22"> 
                      <div align="center">UBB代码</div></td>
                    <td> 
                      <script src=../Inc/eshopcode.js></script> 
                      <!--#include file=../Inc/Ubb.inc -->
                    </td>
                  </tr>
                  <tr bgcolor="#ECF5FF"> 
                    <td height="25"> 
                      <div align="center">内&nbsp;&nbsp;容</div></td>
                    <td height="25"> 
                      <textarea name="content" cols="57" rows="12"><%if rs("html")=false then
content=replace(rs("content"),"<br>",chr(13))
content=replace(content,"&nbsp;"," ")
else
content=rs("content")
end if
response.write content%></textarea></td>
                  </tr>
                  <tr bgcolor="#E7E7E7"> 
                    <td height="25" colspan="2" bgcolor="#ECF5FF"> 
                      <div align="center"> 
                        <input type="submit" value="确定">
                        &nbsp; 
                        <input type="reset" value="从来">
                      </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_Other.asp></iframe>
                      </div></td>
                  </tr>
                </table>
              </div></td>
          </form>
        </tr>
      </table>
      <br> <br> </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->