<TABLE class="xmtable" border=0 align="center" cellPadding=0 cellSpacing=12 bgcolor="#FFFFFF">
  <tr> 
    <td  height="450" valign="top" Class="tdbg_left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="10"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><% call ShowUserLogin() %>
              </td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="5"></td>
      </tr>
    </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="34" class="title_left" style="text-indent:36px; line-height:34px;">公司荣誉</td>
        </tr>
        <tr>
          <td height="20"><div align="center"><a href="CompHonor.asp">公司荣誉</a></div></td>
        </tr>
        <TR>
          <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
        </TR>
        <tr>
          <td height="20"><div align="center"><a href="CompVisualize.asp">公司形象</a></div></td>
        </tr>
        <TR>
          <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
        </TR>
      </table>
      </td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <td width="670" valign="top" bgcolor="#FFFFFF"><table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td><% If IsFlash6="Yes" Then %>
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=width6%>" height="<%=High6%>">
              <param name="movie" value="<%=BannerUrl6%>">
              <param name="quality" value="high">
              <param name="wmode" value="transparent">
              <embed src="<%=BannerUrl6%>" width="<%=width6%>" height="<%=High6%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
            </object>
            <% Else %>
            <img src="<%=BannerUrl6%>" width="<%=width6%>" height="<%=High6%>">
            <% end If%>
        </td>
      </tr>
    </table>
	<br />
	<table width="670" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="179" valign="top"><%
set rs=server.createobject("adodb.recordset")
sql="select * from CompHonor order by id desc"
rs.open sql,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 Class=border 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">
                    <TR>
            <TD class="title_b"></TD>
            <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" 
                                border=0>
                <TBODY>
                  <TR>
                    <TD width=98 class="title_c" style="text-align:center;">公司荣誉</TD>
                    <TD width="555" class="title_right">　</TD>
                  </TR>
                </TBODY>
            </TABLE></TD>
          </TR>
                  </table>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <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>
                                            <TR>
                                              <TD align=middle width=135><TABLE align=center border=0 cellPadding=0 cellSpacing=0>
                                                  <TBODY>
                                                    <TR>
                                                      <TD height=10><IMG height=10 
                        src="Img/bg_0ltop.gif" width=10></TD>
                                                      <TD background=Img/bg_01.gif height=10></TD>
                                                      <TD height=10><IMG height=10 
                        src="Img/bg_0rtop.gif" width=10></TD>
                                                    </TR>
                                                    <TR>
                                                      <TD background=Img/bg_03.gif 
                      width=10>　</TD>
                                                      <TD width="150" height="180" align=middle bgColor=#ffffff vAlign=center><a 
                        href=CompHonorBig.asp?id=<%=rs("id")%> target=_blank><img src="<%=rs("CompHonor")%>" alt="" width="150" height="180" border="0" onload="javascript:DrawImage(this);"></a></TD>
                                                      <TD background=Img/bg_04.gif 
                      width=10>　</TD>
                                                    </TR>
                                                    <TR>
                                                      <TD height=10><IMG height=10 
                        src="Img/bg_0lbottom.gif" width=10></TD>
                                                      <TD background=Img/bg_02.gif height=10></TD>
                                                      <TD height=10><IMG height=10 
                        src="Img/bg_0rbottom.gif" 
                    width=10></TD>
                                                    </TR>
                                                  </TBODY>
                                              </TABLE></TD>
                                            </TR>
                                          </TBODY>
                                        </TABLE>
                                    </div></td>
                                  </tr>
                                  <tr>
                                    <td height="10"></td>
                                  </tr>
                                  <tr>
                                    <td><div align="center"><%=ubbcode(dvHTMLEncode(rs("explain")))%></div></td>
                                  </tr>
                                  <tr>
                                    <td height="10"></td>
                                  </tr>
                              </table></td>
                              <% if i mod 3 =0 then%>
                            </TR>
                            <tr>
                              <%end if%>
                              <%
i=i+1 
if i >= 10 then exit do 
rs.MoveNext 
loop
%>
                            </tr>
                        </table></TD>
                      </tr>
                  </table></td>
              </tr>
              <TR>
                <TD 
                  height=1 colspan="3" background=img/naBialym.gif><IMG height=1 src="img/1x1_pix.gif" 
              width=10></TD>
              </TR>
              <TR>
                <TD 
                  height=25 colspan="3" bgcolor="#D8D8D8"><div align="right">
                    <%
Response.write "全部"
Response.write "共" & Cstr(Rs.RecordCount) & "条荣誉&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "第" & Cstr(CurrentPage) &  "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
response.write "<a href='CompHonor.asp?&page="+cstr(1)+"'>&nbsp;首页&nbsp;</a>"
Response.write "<a href='CompHonor.asp?page="+Cstr(currentpage-1)+"'>&nbsp;上一页&nbsp;</a>"
Else
Response.write "&nbsp;上一页&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='CompHonor.asp?page="+Cstr(currentPage+1)+"'>&nbsp;下一页&nbsp;</a>"
Response.write "<a href='CompHonor.asp?page="+Cstr(Rs.PageCount)+"'>&nbsp;尾页&nbsp;</a>"
Else
Response.write ""
Response.write "&nbsp;下一页&nbsp;"
End if
Response.write "转到第"
response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
    for i = 1 to Rs.PageCount
       if i = currentpage then 
          response.write"<option value='CompHonor.asp?page="&i&"&id="&id&"' selected>"&i&"</option>"
       else
          response.write"<option value='CompHonor.asp?page="&i&"&id="&id&"'>"&i&"</option>"
       end if
    next
response.write"</select>页"
%>
                </div></TD>
              </TR>
            </table>
          <%
End sub
rs.close
set rs=nothing
%>
        </td>
      </tr>
    </table></td>
    <TD width=1 background=images/MainLine.gif></TD>    
    <TD width="79" > </TD>
  </tr>
</table>
