gbook.asp

信息管理系统 管理页面:admin/index.asp 用户和密码都是admin

<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<script>
function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
</script>
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="../1.CSS">
<div align="center">
  <center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#808000" width="86%" cellpadding="0">
  <tr>
    <td width="100%" height="23" colspan="5" bgcolor="#FFBB55"> 
    <p align="center"><b><font size="3">留 言 管 理</font></b></td>
  </tr>
  <tr>
    <td width="100%" height="23" colspan="5"> <b> <a href="?ijob=3">
    <font size="2">列出所有留言</font></a><font size="2"> <a href="?ijob=1">列出投诉留言</a>
    <a href="?ijob=2">列出普通留言</a> </font> <a href="?ijob=4">
    <font size="2">没有回复的留言</font></a></b></td>
  </tr>
<%
dim rs,sql,k,ijob
ijob=trim(request("ijob"))
set rs=server.createobject("adodb.recordset")
Select Case ijob
Case "1"
sql = "select * from gbook where lx=1 order by id desc"
Case "2"
sql = "select * from gbook where lx=0 order by id desc"
Case "4"
sql = "select * from gbook where hf=0 order by id desc"
Case Else
sql = "select * from gbook order by id desc"
End Select
rs.open sql,conn,1,1
if rs.eof then
response.write "还没有留言内容！"
response.end
end if
%>
  <tr>
    <td width="4%" height="23" bgcolor="#FFCC80">编号</td>
    <td width="73%" height="23" bgcolor="#FFCC80">内容</td>
    <td width="6%" height="23" align="center" bgcolor="#FFCC80">　</td>
    <td width="6%" height="23" align="center" bgcolor="#FFCC80">　</td>
    <td width="11%" height="23" align="center" bgcolor="#FFCC80">是否回复</td>
  </tr>
  <%
  
  k=1
  do while not rs.eof
  %>
  <tr>
    <td width="4%" height="23" bgcolor="#FFF9EE">
    <p align="center"><%=k%></td>
    <td width="73%" height="23" bgcolor="#FFF9EE"><%=rs("gbook1")%><br>〈<font color="#999999"><%=rs("username")%></font>&nbsp;<font color="#999999"><%=rs("fbsj")%></font>〉</td>
    <td width="6%" height="23" align="center" bgcolor="#FFF9EE"><a href="#" ONCLICK="window.open('gbookedit.asp?id=<%=rs("id")%>&chk=2','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=300,height=150,left=300,top=100')">
    <font color="#FF0000">修改</font></a></td>
    <td width="6%" height="23" align="center" bgcolor="#FFF9EE"><a href="#" ONCLICK="window.open('gbookdel.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=300,height=150,left=300,top=100')">
    <font color="#FF0000">删除</font></a></td>
    <td width="11%" height="23" align="center" bgcolor="#FFF9EE"><%if rs("hf")=1 then%><span id="followImg<%=k%>" style="CURSOR: hand" onclick="loadThreadFollow(<%=k%>,5)">查看回复</span><%else%><a href="#" ONCLICK="window.open('gbookhf.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=200,height=150,left=300,top=100')"><font color="#FF0000">回复留言</font></a><%end if%></td>
  </tr>
  <tr style="display:none" id="follow<%=k%>">
    <td width="100%" height="23" colspan="5">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
      <tr>
        <td width="4%">　</td>
        <td width="76%"><font color="#FF6600"><%=rs("gbook2")%></font> 〈<%=rs("hfsj")%>〉[<a href="#" ONCLICK="window.open('gbookhf.asp?id=<%=rs("id")%>&chk=2','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=200,height=150,left=300,top=100')">修改</a>]</td>
        <td width="4%">　</td>
        <td width="16%">　</td>
      </tr>
    </table>
    </td>
  </tr>
   <%
   rs.movenext
   k=k+1
   loop
   rs.close
   set rs=nothing
   closedb
   %>
</table></center>
</div>