📄 enindex_mb.asp

📁 破解版的企业网站源码！！绝对好用适合各种企业应用其中包包含产品展示企业介绍等等内容可供二次开发
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
					</div>
					<DIV class=FL_Dis3>
<UL class=AllUl3>
 
  <LI class=CouLi3><A class="font" href="Product_<%=rs_Product("id")%>.html" 
  target=_blank><%=cutstr(rs_Product("entitle"),30)%></A> </LI></UL></DIV>
				</div>
				<%rs_Product.close
set rs_Product=nothing%>
				<div class="Fs_C_Center"></div>
				<%set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 1 * from Product where Passed=True and Newproduct=true and id not in( select top 3 id from Product where Passed=True and Newproduct=true order by id desc) order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1%>
<DIV class=Fs_C_Right>
<DIV class=Cms_Top>
<DIV class=Cms_img><A href="Product_<%=rs_Product("id")%>.html" 
  target=_blank><img src="../<%=rs_Product("DefaultPicUrl")%>" width="110" height="100" border="0" /></A></DIV>
<DIV class=Cms_Txt>
<DIV class=proDiv_Dis>

 <div class=Cms_PRO><%=cutstr(rs_Product("entui"),88)%></div>
</DIV></DIV></DIV>
<DIV class=FL_Dis4>
<UL class=AllUl4>
 
  <LI class=CouLi4><A class="font3" href="Product_<%=rs_Product("id")%>.html" 
  target=_blank><%=cutstr(rs_Product("entitle"),30)%></A> </LI></UL></DIV></DIV></DIV><%rs_Product.close
set rs_Product=nothing%>		</div></DIV><!-- 购买流程结束 --><!-- 客户案例 -->
<!-- 客户案例结束 -->
<DIV class="OrderDiv">
<DIV class="conhd tabs addtab" style="POSITION: relative">
<UL id=todaytabs>
  <LI class="first open"><SPAN class=pipe></SPAN></LI>
  <LI class=tab1><A class=todaytabscon_focus
  target=_blank>AboutUs</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab2><A class=todaytabscon_ent
  target=_blank>Co.News</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab3><A class=todaytabscon_sport
  target=_blank>Ye News</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab4><A class=todaytabscon_finance 
  target=_blank>Pr.News</A><SPAN class=pipe></SPAN> 
</LI>
  <LI class=tab5><A class=todaytabscon_win
  target=_blank>OtherNews</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=last></LI>
</UL></DIV>
<DIV class=mb id=todaytabscon>
<DIV class=bel>
<DIV class=mbcon>
<DIV class=dpp1><%Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='About us'"
rs.open sql,conn,1,3%>

                <%=rs("content")%>

             <%rs.close
rs=nothing%>   </DIV>
</DIV>

</DIV>
</DIV><!--focus -->
<DIV id=todaytabscon_focus style="DISPLAY: none"></DIV>
<SCRIPT>
document.getElementById("todaytabscon_focus").innerHTML = document.getElementById("todaytabscon").innerHTML
</SCRIPT>
<!--//focus --><!--others1 -->
<DIV id=todaytabscon_ent style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon>
 

               
          
<DIV class=x></DIV>
<UL class=ul3>
 <% rs.open "select top 20 * from ennews where BigClassName='Company news' order by AddDate desc ",conn,1,1
					  i=-1
					 do while not rs.eof
				
					  %>
  <LI><A href="News_<%=rs("id") %>.html" 
  target=_blank><%=left(rs("title"),15)%></A> </LI>
   <%
		rs.MoveNext
	i=i+1
	Loop

rs.close%>
</UL></DIV>

<DIV class=mbm><A href="NsList_1_1.html" target=_blank 
name=hpspirit/top1/finance/more/>&gt;&gt;更多</A></DIV></DIV></DIV><!--//others1 --><!--others2 -->
<DIV id=todaytabscon_sport style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon>

<DIV class=x></DIV>
<UL class=ul3>
  <% rs.open "select top 20 * from news where BigClassName='Ye news' order by AddDate desc ",conn,1,1
					  i=-1
					 do while not rs.eof
				
					  %>
  <LI><A href="News_<%=rs("id") %>.html" 
  target=_blank><%=left(rs("title"),15)%></A> </LI>
   <%
		rs.MoveNext
	i=i+1
	Loop

rs.close%></UL></DIV>

<DIV class=mbm><A href="NsList_2_1.html" target=_blank 
name=hpspirit/top1/sports/more/>&gt;&gt;更多</A></DIV></DIV></DIV><!--//others2 --><!--others3 -->
<DIV id=todaytabscon_finance style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon>
<DIV class=x></DIV>
<UL class=ul3>
   <% rs.open "select top 20 * from news where BigClassName='Product News' order by AddDate desc ",conn,1,1
					  i=-1
					 do while not rs.eof
				
					  %>
  <LI><A href="News_<%=rs("id") %>.html" 
  target=_blank><%=left(rs("title"),15)%></A> </LI>
   <%
		rs.MoveNext
	i=i+1
	Loop

rs.close%></UL></DIV>

<DIV class=mbm><A href="NsList_4_1.html" target=_blank 
name=hpspirit/top1/ent/more/>&gt;&gt;更多</A></DIV></DIV></DIV><!--//others3 --><!--others4 -->
<DIV id=todaytabscon_win style="DISPLAY: none">
<DIV class=bel>
<DIV class=mbcon>

<DIV class=x></DIV>
<UL class=ul3>
   <% rs.open "select top 20 * from news where BigClassName='Other news' order by AddDate desc ",conn,1,1
					  i=-1
					 do while not rs.eof
				
					  %>
  <LI><A href="News_<%=rs("id") %>.html" 
  target=_blank><%=left(rs("title"),15)%></A> </LI>
   <%
		rs.MoveNext
	i=i+1
	Loop

rs.close%></UL></DIV>

<DIV class=mbm><A href="NsList_5_1.html" target=_blank 
name=hpspirit/top1/win/more/>&gt;&gt;更多</A></DIV></DIV></DIV><!--//others4 -->
<DIV class=mbbft></DIV>
</DIV>
<SCRIPT>
init_tab_con("todaytabs","todaytabscon","todaytabscon_focus",true);
</SCRIPT>

<DIV class=bk></DIV>
<SCRIPT>
init_today_tabs();

</SCRIPT>



 
</DIV>
<!-- 主体中间部分结束 --><!-- 右边部分开始  -->
<DIV id=BodyRight><!-- 新闻快递开始 -->
<DIV class=Fs_NewsDiv>
<DIV class=NewsDiv_Top><SPAN class=Fs_Text>Notice >></SPAN></DIV>
<DIV class=NewsDiv_Dis>

 <%sqlAnnounce="select * from affiche where ID=48"

Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1%><div class=Cms_gg><%=rsAnnounce("content")%></div>
 <%rsAnnounce=nothing
rsAnnounce.close%></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!-- 新闻快递结束 --><!-- 服务与支持开始 -->
<DIV class="Cou_Div DivBorder">
<DIV class=NewsDiv_Top><SPAN class=Fs_Text>Survey >></SPAN></DIV>
<DIV class=Cou_Div_Dis>
	<%
	sqlVote="select * from Vote where id=8"
	Set rsVote= Server.CreateObject("ADODB.Recordset")
	rsVote.open sqlVote,conn,1,1
	if rsVote.bof and rsVote.eof then 
		response.Write "&nbsp;No data"
	else
		response.write "<form name='VoteForm' method='post' action='../vote.asp' target='_blank'><td>"
		response.write rsVote("Title") & "<br><br>"
		if rsVote("VoteType")="Single" then
			for i=1 to 8
				if trim(rsVote("Select" & i) & "")="" then exit for
				response.Write "<input type='radio' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
			next
		else
			for i=1 to 8
				if trim(rsVote("Select" & i) & "")="" then exit for
				response.Write "<input type='checkbox' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
			next
		end if
		response.write "<br><input name='VoteType' type='hidden'value='" & rsVote("VoteType") & "'>"
		response.write "<input name='Action' type='hidden' value='Vote'>"
		response.write "<input name='ID' type='hidden' value='" & rsVote("ID") & "'>"
		response.write "<a href='javascript:VoteForm.submit();'><img src='../images/entou.gif' width='60' height='26' border='0'></a>&nbsp;&nbsp;"
        response.write "<a href='../Vote.asp?Action=Show' target='_blank'><img src='../images/encha.gif' width='60' height='26' border='0'></a>"
		response.write "</td></form>"
	end if
	rsVote.close
	set rsVote=nothing%></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!-- 服务与支持结束 --><!-- 友情连接开始 -->
<DIV class="DivBorder FL_Div">
<DIV class=NewsDiv_Top><SPAN class=Fs_Text>Links>></SPAN></DIV>
<DIV class=FL_Dis>
<UL class=AllUl>
 <%set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 6 * from FriendLinks where linktype=2 and ISOK=true order by id desc"
rs_Product.open sqltext,conn,1,1
do while not rs_product.eof%>
  <LI class=CouLi onMouseMove="overColor(this,'CouLi_1')" 
  style="BORDER-TOP-STYLE: none; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none" 
  onmouseout="outColor(this,'CouLi')">·<A href="<%=rs_Product("siteurl")%>" 
  target=_blank><%=rs_Product("sitename")%></A> </LI><%rs_Product.movenext
  loop
  rs_Product.close
set rs_Product=nothing%></UL></DIV><DIV class=Fs_Kstd_Bo><SPAN class=Fs_Dot></SPAN><SPAN class=Fs_Textt></SPAN></DIV></DIV><!--友情连接结束 --></DIV><!-- 右边部分结束  --></DIV><!--  主体部分结束  --><!--  版权部分开始  -->
<DIV id=CopyDiv>
<DIV id=Copy_Center>
<UL class=AllUl>
  <LI class=CopyLi><A class=Top 
  href="">Contact</A> | <A class=Top 
  href="">Cases</A> | <A class=Top 
  href="" target=_blank>Help</A> | <A class=Top 
  href="">Pay</A> | <A class=Top 
  href="">Law</A> | <A class=Top 
  href="">About Us</A> </LI>
  <LI class=CopyLi>
    <div align="center">&copy; 2002-2007 LiangJing.net Copyright liangjing.net <a href="http://www.miibeian.gov.cn/">京ICP备05060022</a></div>
    <p align="center">Contact:Tel:010-81991660 010-68680414 010-68654827 QQ:65961930 QQ:620866 MSN:asp3721@hotmail.com   </LI>
</UL></DIV></DIV><DIV id=CopyDiv1>
</DIV><!--  版权部分结束  -->
<SCRIPT language=javascript 
src="../images/js.js" 
type=text/javascript></SCRIPT>
</BODY></HTML>

<%Sub ShowSmallClass_Tree()
%>


<%
dim i
set rsbig = server.CreateObject ("adodb.recordset")
		sql="select * from BigClass"
		rsbig.open sql,conn,1,1
if rsbig.eof and rsbig.bof then
	Response.Write "No data……"
else
	i=1
	do while not rsbig.eof
%>  <LI class=Fs_KstdLi>·<A 
  href="List_<%=rsbig("BigclassID")%>_1.html" 
  target=_blank><%=rsbig("enBigClassName")%></A></LI>
	
<%
	rsbig.movenext
	i=i+1
	loop
	rsbig.close
    set rsbig=nothing
end if
%>

<%
end Sub %>
<%Function cutStr(str,strlen) 
Dim re 
Set re=new RegExp 
re.IgnoreCase =True 
re.Global=True 
re.Pattern="<(.[^>]*)>" 
str=re.Replace(str,"") 
set re=Nothing 
Dim l,t,c,i 
l=Len(str) 
t=0 
For i=1 to l 
c=Abs(Asc(Mid(str,i,1))) 
If c>255 Then 
t=t+2 
Else 
t=t+1 
End If 
If t>=strlen Then 
cutStr=left(str,i)&"..." 
Exit For 
Else 
cutStr=str 
End If 
Next 
cutStr=Replace(cutStr,chr(10),"") 
cutStr=Replace(cutStr,chr(13),"") 
End Function%>
上一页 12
⌨️ 快捷键说明

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