manage.asp

中华软件联盟--留言系统1.0 演示地址：http://bbs.on-line.cn/UploadFile/2004115213938136.html 下载地址：http://bbs.on-line.

                <tbody>
                  <tr>
                    <td width="100%" background="../images/line_3.gif" height=1></td>
                  </tr>
                </tbody>
            </table></td>
          </tr>
        </tbody>
      </table></td>
    <td valign=top style="border-left:1px #000000 dotted">　
      <table cellspacing=0 cellpadding=0 width=596 border=0>
        <tbody> 
        <tr> 
          <td valign=top> 
            <table cellspacing=0 cellpadding=0 width="96%" align=center border=0>
              <tbody> 
              <tr> 
                <td valign="top">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td width="500"> <br>
                        <% 
	set rs=server.createobject("adodb.recordset") 
	sql="select * from book order by id desc" 
	rs.open sql,conn,1,1 

	rs.pagesize=8 
	totalPut=rs.recordcount '记录总数 
	totalPage=rs.pagecount  '得到总页数
	MaxPerPage=rs.pagesize  '设置每页数
		
	currentpage=request("page")
	if isempty(currentpage) or cint(currentpage)<1 or cint(currentpage)>totalPage then
		currentpage=1
	end if

	if rs.eof and rs.bof then 
		response.write "<font color=#FF0000>暂时还没有任何留言！</font>"
	else
		rs.absolutepage=currentpage	'将指针移至指定页的第一条记录
		loopno=MaxPerPage
	i=0
	do while not rs.eof and loopno>0
%>
                        <table width="98%" border="1" cellspacing="0" cellpadding="0" align="center" bordercolordark="#FFFFFF" bordercolorlight="#666666" style="word-break:break-all;font-family: Arial, Helvetica, sans-serif;">
                          <tr>
                            <td width="100" align="center" bgcolor="#F5F5F5" rowspan="3" >第<font color="#FF0000"><%=((totalPut)-(MaxPerPage)*(currentpage-1))-i%></font>条留言<br>
                                  <img src="../<%=rs("face")%>"><br>
                                  <%=rs("name")%></td>
                            <td height="25" valign="middle">
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="49%"><img src="../images/post.gif" width="24" height="24" align="absmiddle"> 访客留言 </td>
                                  <td width="51%"><div align="right">
                                    <%if rs("homepage")<>"" then%>
                                    <a href="<%=rs("homepage")%>" target="_blank"><img src="../images/home.gif" width="16" height="16" border="0" align="absmiddle" alt="主页:[ <%=rs("homepage")%> ]"></a>
                                        <%else%>          
                                        <a href="#"><img src="../images/home-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="主页"></a>          
                                        <%end if%>          
              |          
              <%if rs("email")<>"" then%>
              <a href="mailto:<%=rs("email")%>" target="_blank"><img src="../images/email.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件:[ <%=rs("email")%> ]"></a>          
              <%else%>          
              <a href="#"><img src="../images/email-gray.gif" width="18" height="18" border="0" align="absmiddle" alt="电子邮件"></a>          
              <%end if%>          
              |          
              <%if rs("oicq")<>"" then%>
              <a href="#"><img src="../images/qq.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码:[ <%=rs("oicq")%> ]"></a>          
              <%else%>          
              <a href="#"><img src="../images/qq-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="QQ号码"></a>          
              <%end if%>          
              |          
              <%if rs("ip")<>"" then%>
              <a href="#"><img src="../images/ip.gif" width="16" height="16" border="0" align="absmiddle" alt="来自：[ <%=rs("ip")%> ]"></a>          
              <%else%>          
              <a href="#"><img src="../images/ip-gray.gif" width="16" height="16" border="0" align="absmiddle" alt="来自："></a>          
              <%end if%>          
&nbsp; </div></td>          
                                </tr>
                            </table></td>
                          </tr>
                          <tr>
                            <td height="45"><img src="../<%=rs("txthead")%>" align="absmiddle" > <%=rs("Memo")%> </td>
                          </tr>
                          <tr>
                            <td valign="middle" height="20">
                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="47%"> &nbsp;&nbsp;<img src="../images/admin.gif" width="18" height="18" border="0" align="absmiddle"><a href="javascript:cdel('<%=rs("id")%>','<%=currentpage%>')"> （删除）</A>&nbsp;&nbsp;<img src="../images/date.gif" width="18" height="18" alt="回复留言" border="0" align="absmiddle"><A href="reply.asp?userid=<%=rs("id")%>&cpage=<%=currentpage%>">（回复）</a></td> 
                                  <td width="53%">
                                    <div align="right">发表时间：          
                                        <% =rs("time") %>
&nbsp; </div></td>          
                                </tr>
                            </table></td>
                          </tr>
                          <% if rs("anser")<>"" then%>
                          <tr>
                            <td width="100" align="center" bgcolor="#F5F5F5" >斑竹回复：</td>
                            <td><img src="../<%=rs("adminhead")%>" align="absmiddle" > <%=rs("anser")%></td>
                          </tr>
                          <%end if%>
                        </table>
                        <br>
                        <%
		rs.movenext
		loopno=loopno-1
		i=i+1
		loop
		end if
		rs.close
		set rs=Nothing
%>
                        <table border="1" width="540" cellspacing="0" cellpadding="0"  align="center" bgcolor="#F5F5F5"  bordercolordark="#FFFFFF" bordercolorlight="#666666">
                          <tr> 
						  <form name="form1" method="post" action="default.asp">
                            <td>&nbsp;&nbsp;共 <%=cstr(totalPut)%> 条留言 当前第 <%=cstr(currentpage)&"/"&cstr(totalPage)%>           
                              页 每页 <%=MaxPerPage%> 条           
                              <%
							if cint(currentpage)>1 then%>
                              [ <a href='default.asp?page=<%=currentpage-1%>' class="tt1">上一页</a>           
                              ]           
                              <%
							end if
							if cint(currentpage)<cint(totalPage) then
							%>
                              [ <a href='default.asp?page=<%=currentpage+1%>' class="tt1">下一页</a>           
                              ]           
                              <%end if%>
                              跳到第          
                              <input type="text" name="page" size="4" class="button1">
                              页           
                              <input type="image" img src="../images/go.gif" width="25" height="19" align="absmiddle"> 
                            </td>
							</form>
                          </tr>
                        </table>
                      <p>&nbsp;</p></td>
                    </tr>
                  </table>
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        </tbody> 
      </table>
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <tr> 
          <td bgcolor=#9ac7cf height=1></td>
        </tr>
        </tbody> 
      </table>
    </td>
  </tr>
  </tbody> 
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align=middle bgcolor=#FFFFFF height=30>
      <!--webbot bot="HTMLMarkup" startspan --><script language=javascript src="../foot.js"></script></center><!--webbot
      bot="HTMLMarkup" endspan -->
    </td>
  </tr>
</table>
</body>  
</html>
<%
Else
	response.redirect "default.asp"
End if
%>