⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_editaffiche.asp

📁 生成html的ASP企业站点,可以进行二次开发的
💻 ASP
字号:
<%@ LANGUAGE = VBScript %>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<TITLE>企业信息列表</TITLE>
<link rel="stylesheet" href="Images/Admin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Version.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%if Request.QueryString("mark")="southidc" then
id=request("id")
Title=request("Title")
Content=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 LiangJingCMS_affiche where id="&id
rs.open sql,conn,1,3

rs("Title")=Title
rs("Content")=Content
rs.update
rs.close
response.redirect "Admin_AddAffiche.asp"
end if
%>
<%
id=request.querystring("id")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From LiangJingCMS_affiche where id="&id, conn,3,3
%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br> <strong><br>
      </strong> <br> <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
        <tr>
          <th>网站公告:修改网站公告</th>
        </tr>
        <tr>
          <td height="24" align="center" nowrap="nowrap"  class="forumrow"><a href="Admin_AddAffiche.asp" onclick='changeAdminFlag(&quot;添加管理员&quot;)'>管理网站公告</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="Admin_editAffiche.asp?id=45" onclick='changeAdminFlag(&quot;网站管理员&quot;)'>修改中文公告</a><font color="#0000FF">&nbsp;|&nbsp;</font><a href="Admin_editAffiche.asp?id=48" onclick='changeAdminFlag(&quot;修改管理员密码&quot;)'>修改英文公告</a></td>
        </tr>
      </table>
      <br />
      <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
        <form method="post" action="Admin_editAffiche.asp?mark=southidc">
		  <input type=hidden name=id value=<%=id%>>
          <tr>
            <th height="22" colspan="2">【
                <%If Result = "Add" then%>
              添加
              <%ElseIf Result = "Modify" then%>
              修改
              <%End If%>
              管理员】</th>
          </tr>
          <tr>
            <td width="20%" align="right" class="forumRow">公告标题:</td>
            <td width="80%" class="forumRowHighlight"><input name="Title" type="text" id="Title" value="<%=rs("Title")%>" size="45" maxlength="100" />
                <font color="red">*</font>3-10个字符</td>
          </tr>

          <tr>
            <td align="right" class="forumRow">公告内容:</td>
            <td class="forumRowHighlight"><textarea rows="8" name="Content" cols="60"><%=rs("Content")%></textarea></td>
          </tr>
          <tr>
            <td align="right" class="forumRow"></td>
            <td class="forumRowHighlight"><input name="submit" type="submit" value="确定" /></td>
          </tr>
        </form>
      </table>
      <p>&nbsp;</p>
      </td>
  </tr>
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -