📄 manage.asp

📁 不用注册也可以发言
💻 ASP
字号:
<!--#include file="dbpath/dbpath.asp"-->
<%response.expires=0
if request.cookies("loginok")="" then
  response.redirect "login.asp"
end if

%>
<html>
<head>
<title>.::vIva的留言本::.</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>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#BAB198">
<table width="450" border="0" cellspacing="0" cellpadding="0" align="center" class="border3">
  <tr> 
    <td width="500"><span > </span> 
      <table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#DDDDDD" height="16">
        <tr> 
          <td width="200" class="font3">
            <div align="center" class="efont"> ...::: vIva's Guestbook :::...</div>
          </td>
          <td width="20" class="font3"  ><font color="#CCCCCC"><a href="guestbook.asp"><img src="images/write.gif" width="18" height="14" border="0"></a> 
            </font></td>
          <td width="50" class="font3"  > 
            <div align="center"><font color="#CCCCCC"><a href="guestbook.asp">签写留言</a> 
              </font></div>
          </td>
          <td width="25" class="font3"   > 
            <div align="center"><font color="#0000FF"><b><font color="#FF6600"><a href="guest.asp"><img src="images/gbook.gif" width="18" height="18" border="0"></a></font></b></font> 
            </div>
          </td>
          <td width="50" class="font3"   > 
            <div align="right"><a href="guest.asp">查看留言</a></div>
          </td>
        </tr>
      </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="450" border="0" cellspacing="0" cellpadding="0" bgcolor="#DDDDDD" align="center">
          <tr> 
            <td class="border2"> 
              <table width="450" border="0" cellspacing="0" cellpadding="0" align="center">
                <tr> 
                  <td width="75" align="center" class="font3"><font class="EFONT">No.<%=k%></font></td>
                  <td rowspan="3"  width="25" class="font" ><img 
    src="<%=rs("txthead")%>" > </td>
                  <td rowspan="3" class="font"><%=rs("Memo")%></td>
                </tr>
                <tr> 
                  <td width="75" align="center" class="font3" height="17"><img 
    src="<%=rs("face")%>"></td>
                </tr>
                <tr> 
                  <td width="75" align="center" height="15" class="font"><%=rs("name")%></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td> 
              <table width="450" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#d7d7d7" >
                <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" valign="bottom" > 
                    <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 + -