admin_editculturenews.asp

广州市拓尔家具网源码 后台:mrsystem 用户名密码admin

<!--#include file="../inc/Conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../Inc/articleCHAR.INC"-->
<%if Request.QueryString("mark")="tr918" then
id=request("id")
Title=request("Title")
content=Request("content")
Language=Request("Language")

If title="" Then
response.write "SORRY <br>"
response.write "请输入内容标题!<a href=""javascript:history.go(-1)"">返回重输</a>"
response.end
end if
If content="" Then
response.write "SORRY <br>"
response.write "请输入内容!<a href=""javascript:history.go(-1)"">返回重输</a>"
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("Language")=Language
rs("time")=Date()
rs.update
rs.close
response.redirect "Admin_Culture.asp"
end if
%>
<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From culture where id="&id, conn,1,1
%>

<!-- #include file="Inc/Head.asp" -->
<table width="560" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
  <tr> 
    <td class="topbg" height="25"> <div align="center"><strong>修改公司文化文章 
        <br>
        </strong></div></td>
  </tr>
  <tr> 
    <form method="post" action="Admin_Editculturenews.asp?mark=tr918">
	 <input type=hidden name=id value=<%=id%>>
      <td><div align="center"> 
          <table width="100%" border="0" cellpadding="0" cellspacing="1">
            <tr bgcolor="#E7E7E7"> 
              <td width="150" height="25" align="right" class=tdbgl><div align="center">标&nbsp;&nbsp;题：</div></td>
              <td width="613" class=tdbg><input type="text" name="title" maxlength="60" size="45" value="<%=rs("title")%>" /></td>
            </tr>
            <tr bgcolor="#E7E7E7">
              <td height="12" align="right" class=tdbgl><div align="center">语&nbsp;&nbsp;言：</div></td>
              <td class=tdbg><select name="Language" id="Language">
                <option <% if rs("Language")="1" then response.Write "selected" %> value="1">中文</option>
                <option <% if rs("Language")="0" then response.Write "selected" %> value="0">英文</option>
              </select></td> 
            </tr>
            <tr bgcolor="#E7E7E7">
              <td height="12" align="right" class=tdbgl>内&nbsp;&nbsp;容：</td>
              <td height="12" class=tdbg><input type="hidden" name="content" value="<%=Server.HTMLEncode(rs("Content"))%>" />
                <iframe id="eWebEditor1" src="Editor/ewebeditor.asp?id=content&style=orther" frameborder="0" scrolling="no" width="550" height="450"></iframe></td>
            </tr>
            <tr bgcolor="#E7E7E7">            </tr>
            <tr class=tdbg> 
              <td height="25" class="tdbgl"></td>
              <td height="25"><input name="submit" type="submit" value="确定">
&nbsp;
<input name="reset" type="reset" value="取消"></td>
            </tr>
          </table>
        </div></td>
    </form>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->