📄 gonggao.asp

📁 本房地产网站功能强大
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp"-->
<!--#include file="fyasp_mange_check.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：185623333  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
 opendataconn
 action=changechr(request("action"))
%>
<html>
<head>
<title>后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../ht.css" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>

</head>
<body bgcolor="#d6dff7" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="../inc/top.asp" -->
<br>
<%
if session("gonggao")="1" then
Select case action
  	Case "del"
		call del
 	Case "add"
		call add
 	Case "saveadd"
		call saveadd
 	Case "edit"
		call edit
 	Case "saveedit"
		call saveedit
 	Case "tj"
		call tj
 	Case else
		call list
End Select
else
Response.Write "权限不足!"
Response.end
end if
sub list
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center>
    <tr bgcolor="#F3F3F3"> 
      <td height="30" align=left colspan="4" bgcolor="#AABFEC"> 
        <font color="#FFFFFF"><b><font color="#000000">○ 公告列表</font></b></font><script language="javascript">
function CheckAll()
  {
     for (var i=0;i<document.form1.elements.length;i++)
     {
       document.form1.elements[i].checked=document.form1.chkall.checked
     }
  }
function chk()
  {

    for (var i=0;i<document.form1.elements.length;i++)
    {
      if (document.form1.elements[i].checked) 
        {
          return 1;
        }
    }
   return 0;
  }
  function frm_submit()
  {

    if (!chk())
      {
        alert("请先选择欲删除的记录。");
        return false;
      }
    else
      {
        if (confirm('您确实要删除选中的项？此操作不可恢复。'))
         {
           document.form1.submit();
         }
        else
         {
           return false;
         }
      }
  }
</script></td>
    </tr>
  	<tr>
      <td width="37"  bgcolor="#BAC9F1" height="25" align="center"> 
        选择</td>
      <td width="58%"  bgcolor="#BAC9F1"> 
        公告内容</td>
      <td width="27%"  bgcolor="#BAC9F1" align="center"> 
        修改</td>
      <td width="10%"  bgcolor="#BAC9F1" align="center"> 
        时间</td>
    </tr><form action="?action=del" method="post" name="form1"><%
						 set rs=server.createobject("adodb.recordset")
						   sql="select * from gonggao order by dateandtime desc"
						rs.open sql,conn,1,1
						if rs.eof then
						response.write"<tr><td colspan=4>现在还没有公告</td></tr>"
						end if
						do while not rs.eof 
						%>
  	<tr>
      <td width="37"  bgcolor="#F3F3F3" height="25" align="center"> <input type="checkbox" name="id" value="<%=trim(rs("id"))%>"></td>
      <td width="58%"  bgcolor="#F3F3F3">·<%=trim(rs("content"))%></td>
      <td width="27%"  bgcolor="#F3F3F3" align="center"><a href="?action=edit&id=<%=trim(rs("id"))%>">修改</a></td>
      <td width="10%"  bgcolor="#F3F3F3" align="center"><%=trim(rs("dateandtime"))%></td>
    </tr><%
						 rs.movenext
						 loop
						 rs.close
						 set rs=nothing
						%>
  	<tr>
      <td width="37"  bgcolor="#F3F3F3" height="25" align="center"><input type="checkbox" name="chkall" value="on" onClick="CheckAll()"  class="inputblack"></td>
      <td width="96%"  bgcolor="#F3F3F3" colspan="3"> 
        <font color="#7E9FE2">选取以上全部记录</font></td>
    </tr>
	<tr>
      <td height="25" align=center bgcolor="#F3F3F3" width="37"> 
        　</td>
      <td align=left bgcolor="#F3F3F3" width="58%"><input type="submit" name="Submit" value=" 删 除 "> </td>
      <td align=center bgcolor="#F3F3F3" width="27%">
        　</td>
      <td align=center bgcolor="#F3F3F3" width="10%">
        　</td>
    </tr></form>
    <tr bgcolor="#F3F3F3"> 
      <td height="30" align=left colspan="4"> 
        　</td>
    </tr>
</table>
<%end sub
sub edit
%><table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center>
    <tr bgcolor="#F3F3F3"> 
      <td height="30" align=left colspan="2" bgcolor="#AABFEC"> 
        <font color="#FFFFFF"><b><font color="#000000">○ 修改 
          </font></b></font>
      </td>
    </tr><form method="post" action="?action=saveedit" name="form1">
  	<tr>
      <td width="6%"  bgcolor="#F3F3F3" height="25" align="center"><%set rs=server.createobject("adodb.recordset")
					id=trim(request("id"))
					sql="select * from gonggao where id="&id&""
					rs.open sql,conn,1,1
					if not rs.eof then
					content=trim(rs("content"))
					end if%>
        　标题:</td>
      <td width="93%"  bgcolor="#F3F3F3">
		<input name="ggtext" type="text" id="ggtext" value="<%=rs("ggtext")%>" size="47"></td>
    </tr>
  	<tr>
      <td width="6%"  bgcolor="#F3F3F3" height="25" valign="top" align="center"> 
        内容:</td>
      <td width="93%"  bgcolor="#F3F3F3"><textarea rows="16" name="content" cols="70"><%=bbHTMLDecode(Rs("content"))%></textarea></td>
    </tr>
  	<tr>
      <td width="6%"  bgcolor="#F3F3F3" height="25" align="center"> 
        　</td>
      <td width="93%"  bgcolor="#F3F3F3"><input type="submit" value=" 修改 " name="B1" onClick="javascript:return checklogin();">
                                            <script language=VBScript>
function checklogin()
	if form1.content.value=""  then
		msgbox "请输入公告内容！",0,"信息输入不完整！"
		form1.content.focus
		checklogin=false
		exit function
	end if

	checklogin=true
end function
</script>
                                            <input name="id" type="hidden" id="id" value="<%=trim(request("id"))%>">
</td>
    </tr>
	<tr>
      <td height="25" align=center bgcolor="#F3F3F3" width="6%"> 
        　</td>
      <td align=left bgcolor="#F3F3F3" width="93%">
        　</td>
    </tr></form>
	</table><%
end sub
sub add
%><table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center>
    <tr bgcolor="#F3F3F3"> 
      <td height="30" align=left colspan="2" bgcolor="#AABFEC"> 
        <font color="#FFFFFF"><b><font color="#000000">○ 添加公告 
          </font></b></font>
      </td>
    </tr><form name="form1" method="post" action="?action=saveadd">
  	<tr>
      <td width="27%"  bgcolor="#F3F3F3" height="25"> 
        标题:</td>
      <td width="73%"  bgcolor="#F3F3F3">
		<input name="ggtext" type="text" id="ggtext" size="45"></td>
    </tr>
  	<tr>
      <td width="27%"  bgcolor="#F3F3F3" height="25"> 
        内容</td>
      <td width="73%"  bgcolor="#F3F3F3"><textarea rows="16" name="content" cols="70"></textarea></td>
    </tr>
  	<tr>
      <td width="27%"  bgcolor="#F3F3F3" height="25"> 
        　</td>
      <td width="73%"  bgcolor="#F3F3F3"><input type="submit" value=" 添加 " name="B1" onClick="javascript:return checklogin();">
                            <script language=VBScript>
function checklogin()
	if form1.content.value=""  then
		msgbox "请输入公告内容！",0,"信息输入不完整！"
		form1.content.focus
		checklogin=false
		exit function
	end if

	checklogin=true
end function
</script>
</td>
    </tr>
	<tr>
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        　</td>
      <td align=left bgcolor="#F3F3F3" width="73%">
        　</td>
    </tr></form>
	</table><%
end sub
sub del
  ids=split(changechr(request("id")),",")
  for i=0 to ubound(ids)
    tt=ids(i)
    conn.execute"delete from gonggao where id="&tt&""
    next
  response.redirect "gonggao.asp"
end sub
sub saveedit
ggtext=changechr(request("ggtext"))
content=trim(request("content"))
content=replace(content,vbcrlf,"<br>")
content="'" & replace(content,"'","''") & "'"
id=RtnReplaceInt(request("id"),0)
ip=request.serverVariables("REMOTE_ADDR")
sql="update gonggao set ggtext='"&ggtext&"',content="&content&" where id="&id&""
conn.execute sql
response.redirect"gonggao.asp"
end sub
sub saveadd
ggtext=trim(request("ggtext"))
content=dvHTMLEncode(changechr(request("content")))
sql="insert into gonggao(ggtext,content)values('"&ggtext&"','"&content&"')"
conn.execute sql
response.redirect"gonggao.asp"
end sub
conn.close
set conn=nothing
%>
<!--#include file="end.asp" -->
</body>
</html>
⌨️ 快捷键说明

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