honor.asp

ASP网站源程序

<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from honor order by id desc"
rs.open sqltext,conn,1,1

dim MaPerPage
MaPerPage=9
dim text,checkpage
text="0123456789"
Rs.PageSize=MaPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
 If NOT IsEmpty(request("page")) Then
   CurrentPage=Cint(request("page"))
   If CurrentPage < 1 Then CurrentPage = 1
   If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
 Else
   CurrentPage= 1
 End If
  If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
 CurrentPage=1
End if

call list

'显示帖子的子程序
Sub list()%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="30" valign="top" background="Style/<%=Root%>/cont_left_bg01.gif"><img src="Style/<%=Root%>/cont_left_img01.gif" width="30" height="431"></td>
        <td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><img src="Style/<%=Root%>/left_qyry.gif" width="200" height="67"></td>
                  </tr>
                  <tr>
                    <td align="center" valign="top" background="Style/<%=Root%>/left_bg01.gif"><table width="75%" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td height="20"><div align="center"><a href="Honor.asp" class="top_m_txt01">企 业 荣 誉</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=Style/<%=Root%>/naSzarym.gif><IMG height=1 src="Style/<%=Root%>/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                      <tr>
                        <td height="20"><div align="center"><a href="Img.asp" class="top_m_txt01">企 业 形 象</a></div></td>
                      </tr>
                      <TR>
                        <TD 
                            height=1 colspan="2" 
                            background=Style/<%=Root%>/naSzarym.gif><IMG height=1 src="Style/<%=Root%>/1x1_pix.gif" 
                              width=10></TD>
                      </TR>
                    </table></td>
                  </tr>
                  <tr>
                    <td><img src="Style/<%=Root%>/left_img01.gif" width="200" height="20"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="200" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="63" valign="bottom"><img src="Style/<%=Root%>/left_tc_tit.gif" width="200" height="51"></td>
                  </tr>
                  <tr>
                    <td height="182" align="center" background="Style/<%=Root%>/left_bg02.gif"><table width="80%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td align="center"><% call ShowVote() %></td>
                      </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td><img src="Style/<%=Root%>/left_img02.gif" width="200" height="8"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="70" align="left" valign="bottom"><a href="Contact.asp"><img src="Style/<%=Root%>/xsrx_img.gif" width="185" height="51" border="0"></a></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
            <td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="Style/<%=Root%>/cont_img01.gif" width="580" height="17"></td>
              </tr>
              <tr>
                <td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="9" background="Style/<%=Root%>/cont_tbl01_bg01.gif"></td>
                    <td align="center" valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="45" align="left" valign="top"><img src="Style/<%=Root%>/qyry.gif" width="298" height="36"></td>
                        </tr>
                      <tr>
                        <td valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td colspan="3"><img src="Style/<%=Root%>/gsjs_img01.gif" width="540" height="19"></td>
                            </tr>
                          <tr>
                            <td width="22" valign="top" background="Style/<%=Root%>/gsjs_left_bg01.gif"><img src="Style/<%=Root%>/gsjs_img03.gif" width="22" height="149"></td>
                            <td width="498" rowspan="2" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr>
                                <td height="179" valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
                                    <tr>
                                      <td height="206" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                            <%i=1 %>
                                            <TR>
                                              <TD><table width="100%" border="0" cellspacing="1" cellpadding="0">
                                                  <%i=1 %>
                                                  <TR>
                                                    <% Do While Not rs.EOF%>
                                                    <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                                        <tr>
                                                          <td><div align="center">
                                                              <TABLE border=0 cellPadding=0 cellSpacing=5>
                                                                <TBODY>