📄 book.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="config.Asp"-->
<html>
<head>
<title>查看留言-<%= SysName %>-<%= SysUrl %></title>
<!--#include file="top.asp" -->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="150" valign="top"><table width="149"  border="0" cellspacing="2" cellpadding="4">
      <tr>
        <td height="22" align="center" bgcolor="#2F94CE"><font color="#FFFFFF"><strong>人 气 排 行</strong></font></td>
      </tr>
    </table>
      <table width="95%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#176197" align="center">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%">
              <% set rs=server.CreateObject("adodb.recordset")  
		  	 rs.open "select top 13 t_id,t_tit from wzxx where t_show=true order by t_hits desc",conn,1,1  
		  	 if not rs.eof then
             while not rs.eof %>
            <tr>
              <td width="5%"><img src="../images/t.gif" width="11" height="11" /></td>
              <td width="95%" class="table" height="20"><%if len(rs(1))>10 then%>
                  <a href="read.asp?id=<%=rs(0)%>&title=<%=rs(1)%>" title="<%=rs(1)%>" target="_blank"><%=left(rs(1),9)%>..</a>
                <%else%>
                <a href="read.asp?id=<%=rs(0)%>&title=<%=rs(1)%>" title="<%=rs(1)%>" target="_blank"><%=rs(1)%></a>
                <%end if%></td>
            </tr>
              <%rs.movenext                 
                    wend
					else
					response.Write("<tr><td align='center'>数据加载中...</td></tr>")
                    end if
                    rs.close
                    set rs=nothing %>
          </table></td>
        </tr>
      </table>
      <table width="149"  border="0" cellspacing="2" cellpadding="4">
        <tr>
          <td height="22" align="center" bgcolor="#2F94CE"><font color="#FFFFFF"><strong>精 品 美 文</strong></font></td>
        </tr>
      </table>
      <table width="95%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#176197" align="center">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%">
              <% set rs=server.CreateObject("adodb.recordset")  
		 	rs.open "select top 14 mzid,mztit from mzxx order by mzhits desc",conn,1,1 
			if not rs.eof then
			while not rs.eof %>
              <tr>
                <td width="5%" height="20"><img src="../images/t.gif" /></td>
                <td width="95%" height="20" class="table"><%if len(rs(1))>10 then%>
                    <a href="mzview.asp?id=<%=rs(0)%>&amp;title=<%=rs(1)%>" title="<%=rs(1)%>" target="_blank"><%=left(rs(1),9)%>..</a>
                  <% Else %>
                  <a href="mzview.asp?id=<%=rs(0)%>&amp;title=<%=rs(1)%>" title="<%=rs(1)%>" target="_blank"><%=rs(1)%></a>
                  <% End If %></td>
              </tr>
              <%	rs.movenext 
					wend
					else
					response.Write("<tr><td align='center'>数据加载中...</td></tr>")
					end if
					rs.close
					set rs=nothing %>
          </table></td>
        </tr>
      </table></td>
    <td valign="top">
      <table width="100%"  border="0" cellspacing="2" cellpadding="4">
        <tr>
          <td width="32%" height="22" bgcolor="#2F94CE"><span style="font-weight: bold"><font color="#FFFFFF">当前位置:查看留言</font></span></td>
          <td width="68%" bgcolor="#2F94CE">&nbsp;<a href="bookadd.asp"><span style="font-weight: bold"><font color="#FFFFFF">发表留言</font></span></a></td>
        </tr>
      </table>
      <table width="99%"  border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#176297">
	  <tr>
          <td bgcolor="#FFFFFF">
			<%mypage=request("page")
				If  mypage="" or mypage<1 then
				mypage=1
				end if
				set rs=server.CreateObject("adodb.recordset")
				rs.open "select * from guestxx order by id desc",conn,1,1
				if rs.eof or rs.bof then
				response.write"数据加载中..."
				else
					rs.pagesize=5
					sum=rs.recordcount
					maxpage=cint(rs.pagecount)
					rs.absolutepage=mypage
					cs=""
					csz=""
					rec = 0
					do until rs.eof or rs.bof or rec=5%>
          <table width="100%"  border="0" cellpadding="2" cellspacing="1" bgcolor="#0099CC">
            <tr bgcolor="#ffffff">
              <td width="18%" align="center">ID</td>
              <td width="15%" align="center"><a href="<%=rs(3)%>" target="_blank">个人主页</a></td>
              <td width="25%" align="left">QQ:<%= rs(2) %></td>
              <td width="42%">留言日期： <%=rs(6)%></td>
            </tr>
            <tr bgcolor="#ffffff">
              <td width="18%" align="center"><img name="s" src="<%=rs(4)%>" width="58" height="58" alt=""><br><%=rs(1)%></td>
              <td height="38" colspan="3" valign="top" bgcolor="#ffffff">&nbsp;&nbsp;&nbsp;&nbsp;<%=rs(5)%></td>
              </tr>
          </table>
		  <hr width="95%" size="1">
		  <%rs.movenext
			rec=rec+1
			loop
			end if
			scriptname=request.servervariables("script_name")
			rs.close %>
		  </td>
        </tr><%if maxpages > 1 then%>
          <tr>
            <td bgcolor="#FFFFFF" align="center">
			<% call pagelist(sum,rec,maxpage,mypage,scriptname,cs,csz) %>
			</td>
          </tr><% End If %>
      </table>  
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

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