⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 compvisualize.asp

📁 架設ROSE私服必備之物 ROSE數據庫
💻 ASP
字号:
<!--#include file="conn.asp" --><HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>企业形象</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Language content=zh-CN>
<META content=all name=robots>
<META content=LJCMS name=Copyright>
<META 
content=
name=description>
<META 
content="" 
name=keywords><LINK 
href="../images/css.css" 
type=text/css rel=stylesheet>
<SCRIPT language=javascript>
function opencat(cat,img){
	if(cat.style.display=="none"){
	cat.style.display="";
	img.src="img/class2.gif";
	}	else {
	cat.style.display="none"; 
	img.src="img/class1.gif";
	}
}
</Script>
<SCRIPT language=JavaScript 
src="../images/Prototype.js"></SCRIPT>

<META content="MSHTML 6.00.6000.16441" name=GENERATOR></HEAD>
<BODY><!--  顶部开始  -->
<DIV id=BigTop>
<DIV id=TopLeft></DIV>
<DIV id=TopCenter>
<DIV id=Logo><IMG height=84 
src="../images/Logo.jpg" 
width=238 border=0> </DIV>
<DIV id=BigMenu>
<UL class=AllUl>
 <LI class=MenuLi1><SPAN class=S_Spanlink>⊙<A href="<%=EnterpriseMail%>" > WEBMAIL </A>⊙<A onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=SiteUrl%>');" href="#" > INDEX </A>⊙<A onClick="window.external.addFavorite('<%=SiteUrl%>','<%=SiteName%>');return false;" href="../Contact.asp" target="mainFrame" > Favorite </A> <a href="Contact.asp"></a>  ⊙  <a href="../HTML/INDEX.HTML">中文版</a></LI>
	
<form name="Search_form" id="Search_form" class="AllForm" action="search.asp" target="_blank" method="get">
				<li class="MenuLi1"><span class="S_Span"><input type="text" name="KeyWords" id="KeyWords" class="Input" style="width:200px;" /></span><span class="S_SeType"><input type="hidden" name="SeTypeTxt" id="SeTypeTxt" value="" /><input type="button" name="Setype" id="Setype" value="Setype" class="S_Typebutton" onClick="Dis_HiddenDiv();" /></span><span class="S_ImgSpan"><img src="../images/enssBount.jpg" width="57" height="20" border="0" align="absbottom" onClick="Fun_Se_Form();" /></span></li>
		</form></LI>

				
				
  <LI class=MenuLi2><div class="menu"><ul>
  <!--#include file="inc/menu.asp" -->


</ul></div></LI>
</UL></DIV></DIV>
<DIV id=TopRight></DIV></DIV><!--  顶部结束  --><!--  主体部分开始  -->
<DIV id=BodyDiv><!--  主体左边部分  -->
<DIV id=BodyLeft><!--  用户登陆  -->
<DIV class=BigLoginDiv>
<DIV class=Login_Type_Div><SPAN class=Lo_Web_User_2 id=Lo_Web_User 
></SPAN></DIV>
<DIV><iframe src="../enlogin.asp"  style=" width:100%; height:100px" frameborder="0"></iframe></DIV>

</DIV><!--  用户登陆结束  --><!--  快速通道 -->
<DIV class="DivBorder Fs_Kstd">
<DIV class=Fs_Kstd_Top><SPAN class=Fs_Text>Company Visualize>></SPAN></DIV>
<DIV class=Fs_Kstd_Bottom>
<UL class=AllUl>
<li class=Fs_KstdLi>·<a href=CompHonor.asp target=_blank>Company Honor</b></a></li><li class=Fs_KstdLi>·<a href=CompVisualize.asp target=_blank>Company Visualize</b></a></li>
  
</UL></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!--  快速通道结束 --><!--  产品中心 -->
<!--  产品中心结束 -->
<!--  代理中心 -->
<!--  代理中心结束 -->
<!--  解决方案 -->
<!--  解决方案结束 -->
<!--  合作联盟 -->
<!--  合作联盟结束 -->
</DIV>
<!-- 主体左边部分结束  --><!-- 主体中间部分 -->
<!-- 产品介绍结束 --><!-- 购买流程 -->
<DIV class="DivBorder OrderDiv1">
<DIV class=News_Top1><SPAN class=News_Dot><IMG height=9 
src="../images/Ddot.jpg" 
width=9 border=0></SPAN><SPAN class=News_Text1>Company Visualize</SPAN></DIV>

<DIV class=Fs_All_Bottom1><%
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%>  <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_right" height="32">&nbsp;&nbsp;&nbsp;<img src="../Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;Company Visualize</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>&nbsp;</TD>
                                                <TD width="150" height="180" align=middle bgColor=#ffffff vAlign=center><a 
                        href=../EnCompVisualizeBig.asp?id=<%=rs("id")%> target=_blank><img src="../<%=rs("CompHonor")%>" alt="" width="150" height="180" border="0"></a></TD>
                                                <TD background=../Img/bg_04.gif 
                      width=10>&nbsp;</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"><%=rs("enexplain")%></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 "Total&nbsp;" & Cstr(Rs.RecordCount) & "&nbsp;Visualize&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "No." & Cstr(CurrentPage) &  "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
response.write "<a href='EnCompVisualize.asp?&page="+cstr(1)+"'>&nbsp;Home&nbsp;</a>"
Response.write "<a href='EnCompVisualize.asp?page="+Cstr(currentpage-1)+"'>&nbsp;Prev Page&nbsp;</a>"
Else
Response.write "&nbsp;Prev Page&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='EnCompVisualize.asp?page="+Cstr(currentPage+1)+"'>&nbsp;Next Page&nbsp;</a>"
Response.write "<a href='EnCompVisualize.asp?page="+Cstr(Rs.PageCount)+"'>&nbsp;Last Page&nbsp;</a>"
Else
Response.write ""
Response.write "&nbsp;Next Page&nbsp;"
End if
Response.write "Go"
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='EnCompVisualize.asp?page="&i&"&id="&id&"' selected>"&i&"</option>"
       else
          response.write"<option value='EnCompVisualize.asp?page="&i&"&id="&id&"'>"&i&"</option>"
       end if
    next
response.write"</select>Page"
%>
                  </div></TD>
            </TR>
            </table>			
<%

rs.close
set rs=nothing
%> 	
<DIV class=Fs_C_Center></DIV>
</DIV></DIV><!-- 购买流程结束 --><!-- 客户案例 -->
<!-- 客户案例结束 -->
</DIV>
<!-- 主体中间部分结束 --><!-- 右边部分开始  -->
<!-- 右边部分结束  -->
</DIV></div>
<!--  主体部分结束  --><!--  版权部分开始  -->
<!--#include file="inc/foot.asp" --><!--  版权部分结束  -->
<SCRIPT language=javascript 
src="../images/js.js" 
type=text/javascript></SCRIPT>
</BODY></HTML>


	

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -