📄 manage.asp

📁 关于ASP制作的个性留言板,需要的朋友进来看看,不会失望的哦
💻 ASP
字号:
<!--#include file="DBPATH/Dbpath.asp"-->
<%response.expires=0
if request.cookies("loginok")="" then
  response.redirect "login.asp"
end if

%>
<html>
<head>
<title>.:: GUESTBOOK::.</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript1.2">
<!--
function confirm_delete(){
	if (confirm("你确定真的要这么做吗？")){
		return true;
	}
	return false;
}
//-->
</script>
<%
   dim MaxPerPage
   dim sql 
   dim rs
   dim gstBookID
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
%>
<link rel="stylesheet" type="text/css" href="css/style.css">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->

function MM_popupMsg(msg) { //v1.0
  alert(msg);
}
//-->
</script>
<style type="text/css">
<!--
body,td,th {
	color: #000000;
}
body {
	background-image: url(12.gif);
}
.style1 {color: #cc0033}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0">
<table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td><img src="IMAGES/top.jpg" width="550" height="185"></td>
  </tr>
  <tr> 
    <td><table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="25" valign="top"><div align="right"></div></td>
        </tr>
        <tr> 
          <td> 
            </span></td>
        </tr>
        <tr> 
          <td><table width="455" border="0" align="center" cellpadding="0" cellspacing="0" class="border2" >
              </table>    
      <span > 
      <% 
set rs=server.createobject("adodb.recordset") 
sql="select * from book order by id desc" 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then %>
      </span> 
      <div align="center" ><font color="#CC0000">还 没 有 任 何 留 言</font> 
        <% else 
   rs.pagesize=8 
   totalPut=rs.recordcount '记录总数 
   totalPage=rs.pagecount 
   MaxPerPage=rs.pagesize 
      if currentpage<1 then 
          currentpage=1 
      end if 
      if currentpage>totalPage then 
          currentpage=totalPage 
      end if 
   if currentPage=1 then 
      showpages 
      showContent 
      showpages 
    else 
         if (currentPage-1)*MaxPerPage<totalPut then 
         rs.move  (currentPage-1)*MaxPerPage 
         dim bookmark 
         bookmark=rs.bookmark '移动到开始显示的记录位置 
         showpages 
         showContent 
         showpages 
       end if 
   end if 
      rs.close 
end if 
set rs=nothing   
conn.close 
set conn=nothing     
 
sub showContent 
    dim i 
    dim k 
    k=(totalPut-MaxPerPage*(currentPage-1))+1 
    i=0 
%>
        <% 
       do while not (rs.eof or err) 
         k=k-1 
%>
        <table width="455" border="0" align="center" cellpadding="0" cellspacing="0" >
              
            </table></td>
        </tr>
        <tr> 
          <td><span > 
            
          </td>
        </tr>
        <tr> 
          <td> </td>
        </tr>
        <tr> 
          <td height="10">&nbsp;</td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td>       
<table width="455" border="0" align="center" cellpadding="0" cellspacing="0" background="bg.gif">           
          <tr>               
            <td class="border2">               
              <table width="450" border="0" cellspacing="0" cellpadding="0" align="center">              
                     <tr> 
                <td width="40" rowspan="2"> <img               
    src="<%=rs("face")%>"></td>
                <td width="415" height="10"><font color="#000000" size="1"> No.<%=k%></font></td>              
                              
                </tr>              
                <tr>     
                  <td width="415" height="15"><b><font color="#cc0033"><%=rs("name")%></font></b>&nbsp;</td>
              </tr>
              <tr> 
                <td colspan="2"><%=rs("Memo")%>              
</table>              
            </td>              
          </tr>              
          <tr>               
            <td>               
              <table width="455" border="0" cellspacing="0" cellpadding="0" align="center" >    
<tr>               
                  <td width="75" class="titel" >               
                    <div align="center" class="EFONT"><a title="主页:[ <%=rs("homepage")%> ]" href="<%=rs("homepage")%>" target="_blank">Homepage</a></div>
                  </td>
                  <td width="40" class="titel" > 
                    <div align="center" class="EFONT"><a  title="E-mail:[ <%=rs("email")%> ]" href="mailto:<%=rs("email")%>">Email</a></div>
                  </td>
                  <td width="40" class="titel" > 
                    <div align="center" class="EFONT" ><a title="QQ号码:[ <%=rs("oicq")%> ]" href="javascript:;" onClick="MM_popupMsg('QQ号码：[ <%=rs("oicq")%> ]')">OICQ</a></div>
                  </td>
                  <td class="font" align="right" > 
                    <div align="center" class="EFONT"><%Response.Write "<A HREF=reply.asp?userid=" & cstr(rs("id")) & "&cpage=" & cstr(currentpage) & ">Reply</A>
⌨️ 快捷键说明

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