www.gusucode.com > 绿色环保工作企业网站源码程序 > CompVisualize.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=index_container> <div id="index_left"> <div id="left"> <div id="left_title">成功案例</div> <div id="left_content"> <DIV id=elem-FrontProductCategory_slideTree-001 name="商品分类"><LINK href="imgbyy/css2.css" type=text/css rel=stylesheet> <DIV class=FrontProductCategory_slideTree-default id=FrontProductCategory_slideTree-001> <DIV class=left_bottom> <DIV class=right_bottom> <DIV class=left_top> <DIV class=right_top> <UL id=treemenu1> <% 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")%></a></LI> <%rslist.movenext loop rslist.close set rslist=nothing %> </UL> <table width="100" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="10"></td> </tr> </table> </DIV> </DIV></DIV></DIV></DIV> </DIV> </div> <div id="left_btm"></div> </div> <table width="100" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="6"></td> </tr> </table> <!--#include file="searchinc.asp"--> <div id="index_contact"> <div id="index_contact1"></div> <div id="index_contact2"> <div id="elem-FrontSpecify_show-001" name="联系我们说明页"> <link href="about_files/css3.css" type="text/css" rel="stylesheet" /> <div class="FrontSpecify_show-default" id="FrontSpecify_show-001"> <div class="content"> <div class="style1"><!--#include file="qq.asp" --></div> </div> </div> </div> </div> </div> </div> <DIV id=index_right><!--<div id="right_title">成功案例</div> --> <DIV id=right_content> <DIV ><LINK href="about_files/FrontCommonContent_showDetailByList.css" type=text/css rel=stylesheet> <DIV class=FrontCommonContent_showDetailByList-default id=> <DIV class=content> <DIV id=right_title>案例展示</DIV> <DIV class=text> <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 CompVisualize 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><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="153" align="middle" bgcolor="#ffffff" valign="center"> <a href="CompVisualizeBig.asp?id=<%=rs("id")%>" target="_blank"> <img src="<%=rs("CompVisualize")%>" alt="" width="190" height="142" 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='CompVisualize.asp?&page="+cstr(1)+"'> 首页 </a>" Response.write "<a href='CompVisualize.asp?page="+Cstr(currentpage-1)+"'> 上一页 </a>" Else Response.write " 上一页 " End if If currentpage < Rs.PageCount Then Response.write "<a href='CompVisualize.asp?page="+Cstr(currentPage+1)+"'> 下一页 </a>" Response.write "<a href='CompVisualize.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='CompVisualize.asp?page="&i&"&id="&id&"' selected>"&i&"</option>" else response.write"<option value='CompVisualize.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></DIV></DIV> <DIV class=clear></DIV></DIV> <DIV class=clear></DIV> </DIV></DIV> <DIV class=clear></DIV> <!-- #include file="Foot.asp" -->