📄 manage_all.asp

📁 基于ASP的SQL小区物业管理系统课程设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/rightnav.asp"-->
<!--#include file="sub/fenye.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理系统</title>
<script language="JavaScript" src="sub/tip.js"></script>
<script language="javascript"> 
function checkForm() 
{ 
if(document.fback.backcont.value==""){
alert('请填写回复内容!');
return false;
}
var strChar = document.getElementById('backcont').value; 
var charCount = strChar.length; 
if (charCount>120) {
alert('字符个数不能高于120!') 
return false
} 
alert ('回复成功')
} 

function del() {
    var isok=true;
	isok=confirm("确定要删除吗？")
	return isok;
 }
</script> 
<link href="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
</head>

<body>
<!--#include file="sub/mheader.asp"-->
<div id="abody">
 <div id="lbody">
 <div class="zh1">
 <%
   set rs=server.CreateObject("ADODB.RecordSet")
   sql="select * from tbmessage"
   rs.open sql,conn,1,3
   dim m,readed,cur_page,url
   url="manage_all.asp?"
   m=rs.recordcount
   readed=1
   rs.pagesize=10
%>
<% call page %>
 <h5>全部用户留言:</h5>
   <table class="browser">
     <tr>
	   <th width="56" class="b1">留言编号</th>
	   <th width="54">用户</th>
	   <th width="193">主题</th>
	   <th width="70">日期</th>
	   <th width="50">删除</th>
	   <th width="70" class="b2">回复状态</th>
	 </tr>
<% 
   do while (readed<=rs.pagesize) and (not rs.eof) 
   dim strdate,strmonth,aid
   aid=rs(0)
   strdate=rs(4)
   strmonth=split(strdate," ")
%>
	 <tr>
	    <td class="b1"><%= aid %></td>
		<td><%= rs(1) %></td>
		<td class="tileft"><a href="#" onmousemove='showalt("<%= rs(3) %>")' onmouseout='hidealt()'><%= rs(2) %></a></td>
		<!--<td class="tileft"><a href="#" class="tip"><%'= rs(2) %><span class="popbox"><font color="#FF0000">内容：</font><%'= rs(3) %></span></a></td>-->
		<td><%= strmonth(0) %></td>
		<td><a href="del.asp?id=<%= rs(0) %>&tname=tbmessage" onClick="return del()">删除</a></td>
		<td class="b2">
	<%
		if rs(5)=0 then
		Response.Write "<a href='manage_all.asp?id="&aid&"&page="&cur_page&"'>回复</a>"
		else
		Response.Write "<a id='backm' href='manage_all.asp?backid="&aid&"&page="&cur_page&"'>已回复</a>"
		end if
	%>
		</td>
	 </tr>
<%
    rs.movenext
	readed=readed+1
	loop
%>
   </table>
   <% call fenye() %>
<% 
   rs.close
   set rs=nothing
%>

   <div id="back">
<% 
   dim bid,bcont,backid
   bid=Request.QueryString("id")
   backid=Request.QueryString("backid")
   if bid="" and  backid="" then 
   Response.Write("")
   else
         if bid="" then
		 bid=backid
		 end if
   set rs=server.CreateObject("ADODB.RecordSet")
   sql="select * from tbmessage where id="&bid
   rs.open sql,conn,1,1
%>
	 <form id="fback" name="fback" method="post" action="back_do.asp" onSubmit="return checkForm();">
	     <div class="f1"><span class="fcolor">留言ID：</span><%= bid %>
	       <input name="bid" type="hidden" value="<%= bid %>" size="4" />
         </div>
		 <div class="f2"><span class="fcolor">留言主题：</span><%= rs(2) %></div>
		 <div class="f2"><span class="fcolor">留言内容：</span><%= rs(3) %></div>
		  <% 
		      if backid="" then    '判断是否已回复
			  Response.Write "<div class='f3'>"
		      Response.Write "<textarea name='backcont' rows='5' id='backcont' ></textarea>"
		      Response.Write "<span class='fzhusi'> ***字数不得多于120个！***</span>"
			  Response.Write "</div>"
			  Response.Write "<div class='f4'>"
			  Response.Write "<input class='submit' type='submit' name='Submit' value='回复' />&nbsp;&nbsp;&nbsp;"
			  Response.Write "<input name='reset' type='reset' id='reset' value='重置' />"
			  Response.Write "</div>"
			  else
		      set rs1=server.CreateObject("ADODB.RecordSet")
              sql="select * from backm where id="&backid
              rs1.open sql,conn,1,1
		      Response.Write "<div class='f3'>"
		      Response.Write "<textarea name='backcont' rows='5' id='backcont' >"&rs1(3)&"</textarea>"
		      Response.Write "<span class='fzhusi'> ***字数不得多于120个！***</span>"
			  Response.Write "</div>"
			  Response.Write "<div class='f4'>"
			  Response.Write "<input class='submit' type='submit' name='Submit' value='修改' />&nbsp;&nbsp;&nbsp;"
			  Response.Write "</div>"
			  rs1.close
			  set rs1=nothing
			  end if
			%>
     </form>
<% 
     rs.close
	 set rs=nothing
%>
	 <% end if %>
    </div>
 </div>
 </div>
<!-- 右边-->
  <div id="rbody">
   <% call rightnav() %>
  </div>
</div>
<!--#include file="sub/cbottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

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