www.gusucode.com > 绿色环保工作企业网站源码程序 > CompHonor.asp
<!--#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> <DIV id=nei-main> <DIV id=left-a> <DIV class=gundong id=left-main> <UL> <LI> 了解我们 <UL> <% 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 %> <LI><a href="Aboutus.asp?Title=<%=rslist("Title")%>"><%=rslist("Title")%></LI> <%rslist.movenext loop rslist.close set rslist=nothing %> </UL> </UL> </DIV></DIV> <DIV id=kong></DIV> <DIV id=nei-center> <DIV id=nei-center-title> <DIV id=nei-center-title-big>企业荣誉</DIV> <DIV id=nei-center-title-small><A href="index.asp">首页</A> >> 企业荣誉</DIV></DIV> <DIV id=nei-center-bg> <DIV id=nei-news><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 height="206" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><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="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="140" height="143" align="middle" bgcolor="#ffffff" valign="center"> <a href="CompHonorBig.asp?id=<%=rs("id")%>" target="_blank"> <img src="<%=rs("CompHonor")%>" alt="" width="150" height="105" border="0"></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=25 colspan="3" align="center"> <% Response.write "全部" Response.write "共" & Cstr(Rs.RecordCount) & "条荣誉 " Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "<a href='CompHonor.asp?&page="+cstr(1)+"'> 首页 </a>" Response.write "<a href='CompHonor.asp?page="+Cstr(currentpage-1)+"'> 上一页 </a>" Else Response.write " 上一页 " End if If currentpage < Rs.PageCount Then Response.write "<a href='CompHonor.asp?page="+Cstr(currentPage+1)+"'> 下一页 </a>" Response.write "<a href='CompHonor.asp?page="+Cstr(Rs.PageCount)+"'> 尾页 </a>" Else Response.write "" Response.write " 下一页 " 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></DIV> </DIV> <DIV id=nei-center-end></DIV></DIV></DIV> <DIV id=link></DIV> <!--#include file="foot.asp" -->