<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="inc/Ubbcode.asp"-->



<!-- #include file="Head.asp" -->
<script language="JavaScript"> 
<!-- 
var flag=false; 
function DrawImage(ImgD){ 
 var image=new Image(); 
 image.src=ImgD.src; 
 if(image.width>0 && image.height>0){ 
  flag=true; 
  if(image.width/image.height>= 150/180){ 
   if(image.width>150){
    ImgD.width=150; 
    ImgD.height=(image.height*150)/image.width; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
  else{ 
   if(image.height>180){
    ImgD.height=180; 
    ImgD.width=(image.width*180)/image.height; 
   }else{ 
    ImgD.width=image.width;
    ImgD.height=image.height; 
   } 
   ImgD.alt="点击查看详细信息..."; 
  } 
 }
}
//--> 
</script> 



<table width="1004" height="39" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="243" ><table width="243" height="39" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td background="imgbyl/ab1.gif" class="bai14px" style="padding-left:28px; padding-top:3px;">关于我们</td>
      </tr>
    </table></td>
    <td width="8"></td>
    <td width="29" background="imgbyl/ab2.gif" ></td>
    <td width="75" background="imgbyl/abbg.gif" class="red14px" style="padding-top:4px;">企业荣誉</td>
    <td width="451" background="imgbyl/abbg.gif" class="ab2" style="padding-top:4px;">Company Honor </td>
    <td width="198" align="center" background="imgbyl/abbg.gif" class="ab3" style="padding-top:4px;">当前位置：首 页 &gt;&gt; 企业荣誉 </td>
  </tr>
</table>
<table width="1004" height="221" border="0" align="center" cellpadding="0" cellspacing="0" style="padding-bottom:8px;">
  <tr>
    <td width="243" valign="top"><table width="243" height="79" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="79" align="center" valign="top" background="imgbyl/ab3.gif">



		  <%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select Title from Aboutus where Language='1' and Aboutusorder <100 order by Aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>

        <table width="222" border="0" cellpadding="0" cellspacing="0" style="margin-top:5px;">
          <tr>
            <td height="37" align="left" background="imgbyl/ab5.gif" style="padding-left:55px; ">
			<a href="Aboutus.asp?Title=<%=rslist("Title")%>" class="ab11"><%=rslist("Title")%></a>
	    </td>
          </tr>
        </table>
		

		
<%rslist.movenext 
loop
rslist.close
set rslist=nothing
%>
	






          </td>
      </tr>
    </table>
        <table width="243" height="13" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbyl/ab4.gif" width="243" height="14" /></td>
          </tr>
        </table>
      <table width="243" height="39" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td background="imgbyl/ab1.gif" class="bai14px" style="padding-left:28px; padding-top:3px;">在线服务</td>
          </tr>
        </table>
      <table width="243" height="79" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="79" align="center" valign="top" background="imgbyl/ab3.gif"><table width="201" height="98" border="0" cellpadding="0" cellspacing="0" style="margin-top:5px;">
                <tr>
                  <td height="37" align="left" class="copy1">

<!--#include file="qq.asp" -->	

</td>
                </tr>
            </table></td>
          </tr>
        </table>
      <table width="243" height="13" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbyl/ab4.gif" width="243" height="14" /></td>
          </tr>
      </table></td>
    <td width="8"></td>
    <td width="753" valign="top"><table width="753" height="15" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td><img src="imgbyl/ab6.gif" width="753" height="15" /></td>
      </tr>
    </table>
        <table width="753" height="153" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td valign="top" background="imgbyl/ab7.gif" class="aboutus" style="padding-left:35px; padding-top:15px; padding-right:35px; padding-bottom:15px;" ><table width="100%" height="31%" 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 valign="top"><table width="100%" border="0" cellspacing="1" cellpadding="0">
<%
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()%>                                     <%i=1 %>
                                        <tr>
 <% Do While Not rs.eof%>       

                                                
                                                <td><table width="104%" border="0" cellspacing="0" cellpadding="0">
                                                    <tr>
                                                      <td align="center">
<a href="CompHonorBig.asp?id=<%=rs("id")%>" target=_blank><img src="<%=rs("CompHonor")%>" alt="" width="190" height="150" border="0" ></a></td>
                                                    </tr>
                                                    
                                                    <tr>
                                                      <td height="45" align="center" class="gonggao"><%=ubbcode(dvHTMLEncode(rs("explain")))%></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>
                               
                                <tr>
                                  <td 
                  height=25 colspan="3" align="center">
                                      <%
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>页"
%>
                                </td>
                                </tr>
                              </table>
                                                 <%
End sub
rs.close
set rs=nothing
%>  
                          </td>
                        </tr>
                      </table></td>
          </tr>
        </table>
      <table width="753" height="15" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td><img src="imgbyl/ab8.gif"  width="753" height="15" /></td>
          </tr>
      </table></td>
  </tr>
</table>
<!--#include file="foot.asp" -->