netbook.asp

ASP网站源程序

                                                                                              <td width="21%" height="18" bgcolor="#eeeeee"><img src="Style/<%=Root%>/arrow.gif" width="16" height="13"><strong>留言列表</strong></td>
                                                                                              <td width="79%" bgcolor="#eeeeee"><%Response.write "<strong><font color='#000000'>-> 全部-</font>"
Response.write "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条留言</font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong>&nbsp;"
If currentpage > 1 Then
response.write "<strong><a href='NetBook.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='NetBook.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if
If currentpage < Rs.PageCount Then
Response.write "<strong><a href='NetBook.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='NetBook.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong>&nbsp;&nbsp;"
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong>&nbsp;&nbsp;"
End if
%>
                                                                                              </td>
                                                                                            </tr>
                                                                                            <tr>
                                                                                              <td height="1" colspan="2" bgcolor="#999999"></td>
                                                                                            </tr>
                                                                                          </table>
                                                                                          <%
If rs.eof and rs.bof then
  response.write ""
  response.end
End if
%>
                                                                                          <br>
                                                                                          <table width="90%" height="18" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#666666">
                                                                                            <tr bgcolor="#99CCFF" class="top_m_txt01">
                                                                                              <td width="56%" height="25" align="center" bgcolor="#CCCCCC"><p align="center"><font color="#000000"><b>留言主题</b></font></p></td>
                                                                                              <td width="22%" height="21" align="center" bgcolor="#CCCCCC"><font color="#000000"><b>时间</b></font></td>
                                                                                              <td width="22%" height="21" align="center" bgcolor="#CCCCCC"><font color="#000000"><b>回复</b></font></td>
                                                                                            </tr>
                                                                                            <%
if not rs.eof then
i=0
do while not rs.eof
%>
                                                                                            <tr bgcolor="#99CCFF" class="top_m_txt01">
                                                                                              <td height="22" bgcolor="#FFFFFF"><%if rs("name")="管理员"then%>
                                                                        『管理员公告』
                                                                          <%end if%>
                                                                          <a href="javascript:winopen('NetBookRe.asp?id=<%=rs("id")%>&amp;name=<%=rs("name")%>')"> <%=rs("title")%></a></td>
                                                                                              <td height="1" bgcolor="#FFFFFF" align="center">&nbsp; <%=rs("time")%></td>
                                                                                              <td height="1" bgcolor="#FFFFFF" align="center">&nbsp;
                                                                                                  <%If rs("rebook")<>"" Then%>
                                                                                                  <a href="javascript:winopen('NetBookRe.asp?id=<%=rs("id")%>&amp;name=<%=rs("name")%>')">回复</a>
                                                                                                  <%else%>
                                                                        无
                                                                        <%End If%>
&nbsp;</td>
                                                                                            </tr>
                                                                                            <%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
                                                                                            <%end sub%>
                                                                                          </table>
                                                                                          <br>
                                                                                          <br>
                                                                                      </TD>
                                                                                    </TR>
                                                                                </table></td>
                                                                              </tr>
                                                                          </table></td>
                                                                        </tr>
                                                                    </table></td>
                                                                </tr>
                                                            </table></td>
                                                          </tr>
                                                      </table></td>
                                                    </tr>
                                                </table></td>
                                              </tr>
                                          </table></td>
                                        </tr>
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td width="20" background="Style/<%=Root%>/gsjs_right_bg01.gif"></td>
                            </tr>
                            <tr>
                              <td background="Style/<%=Root%>/gsjs_bg01.gif"></td>
                              <td valign="bottom" background="Style/<%=Root%>/gsjs_right_bg01.gif"><img src="Style/<%=Root%>/gsjs_img04.gif" width="20" height="148"></td>
                            </tr>
                            <tr>
                              <td colspan="3"><img src="Style/<%=Root%>/gsjs_img02.gif" width="540" height="18"></td>
                            </tr>
                        </table></td>
                      </tr>
                    </table></td>
                    <td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><img src="Style/<%=Root%>/cont_img02.gif" width="580" height="17"></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
        <td width="33" valign="top" background="Style/<%=Root%>/cont_right_bg01.gif"><img src="Style/<%=Root%>/cont_right_img01.gif" width="33" height="431"></td>
      </tr>
      <tr>
        <td valign="top"><img src="Style/<%=Root%>/cont_di_img01.gif" width="30" height="29"></td>
        <td align="center" valign="middle" background="Style/<%=Root%>/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="57"><img src="Style/<%=Root%>/yqlj_img01.gif" width="57" height="15"></td>
                  <td width="247"><MARQUEE
            align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()">
                    <% call ShowAnnounce(5) %>
                  </MARQUEE></td>
                </tr>
            </table></td>
            <td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
          </tr>
        </table></td>
        <td valign="top"><img src="Style/<%=Root%>/cont_di_img02.gif" width="33" height="29"></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="Inc/foot.asp"-->