📄 index_mb.asp

📁 破解版的企业网站源码！！绝对好用适合各种企业应用其中包包含产品展示企业介绍等等内容可供二次开发
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
  <LI class=CouLi4><A class="font3" href="Product_<%=rs_Product("id")%>.html" 
  target=_blank><%=cutstr(rs_Product("title"),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>公司简介</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab2><A class=todaytabscon_ent
  target=_blank>企业新闻</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab3><A class=todaytabscon_sport
  target=_blank>业内咨讯</A><SPAN class=pipe></SPAN> 
  </LI>
  <LI class=tab4><A class=todaytabscon_finance 
  target=_blank>产品动态</A><SPAN class=pipe></SPAN> 
</LI>
  <LI class=tab5><A class=todaytabscon_win
  target=_blank>其他新闻</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='企业简介'"
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 news where BigClassName='企业新闻' 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='业内资讯' 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='产品动态' 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='其他新闻' 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>网站公告 >></SPAN></DIV>
<DIV class=NewsDiv_Dis>

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

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>在线调查 >></SPAN></DIV>
<DIV class=Cou_Div_Dis>
	<%
	sqlVote="select top 1 * from Vote where IsSelected=True"
	Set rsVote= Server.CreateObject("ADODB.Recordset")
	rsVote.open sqlVote,conn,1,1
	if rsVote.bof and rsVote.eof then 
		response.Write "&nbsp;没有任何调查"
	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();' class='button_toupiao'></a>"
        response.write "<a href='../Vote.asp?Action=Show' target='_blank' class='button_chakan'></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>友情连接>></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 class="DivBorder FL_Div">
<DIV class=NewsDiv_Top><SPAN class=Fs_Text>联系方式>></SPAN></DIV>
<DIV class=FL_Dis>
<UL class=AllUl>
 <%

 '数据库文件位置


set connQQ=server.createobject("ADODB.CONNECTION")
connQQ.open "DBQ="+server.mappath("qq/QQ.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'此文件不需要作任何修改
Set rssetupQQ=connQQ.execute("select * from QQsetup") 
qqonline=rssetupQQ("qqonline")
adm_qq= rssetupQQ("adm_qq")
adm_qq_name= rssetupQQ("adm_qq_name")
whereqq=rssetupQQ("whereqq")
kefuskin=rssetupQQ("kefuskin")
qqskin=rssetupQQ("qqskin")
qqmsg_on=rssetupQQ("qqmsg_on")
qqmsg_off=rssetupQQ("qqmsg_off")
msn= rssetupQQ("msn")
msn_name= rssetupQQ("msn_name")
set rssetupQQ=Nothing
if adm_qq<>"" and qqonline=1 then
adm_qq=replace(adm_qq,"，",",")
if isnull(adm_qq_name) or adm_qq_name="" then adm_qq_name=adm_qq
adm_qq_name=replace(adm_qq_name,"，",",")
QQ_NAME=split(adm_qq_name,",")
QQ=split(adm_qq,",")
for N=0 to UBound(QQ)
MyQQ=MyQQ+QQ(N)+":"
next
%>
       <script language="javascript">
var online= new Array();
if (!document.layers)
document.write()
</script>

<%
for N=0 to UBound(QQ)
%>
<script>
if (online[<%=n%>]==0)
document.write("<LI class=Fs_KstdLi><a class='c'target=blank href='tencent://message/?uin=<%=QQ(n)%>&amp;Site=良精多风格2006商业版&Menu=no'><img alt='<p align=left><%=qqmsg_off%>'src=../images/qq/QQoff<%=qqskin%>.gif border=0 align=middle></a></td><td><a class='c'target=blank href='tencent://message/?uin=<%=QQ(n)%>&Site=良精多风格2006商业版&Menu=no'alt='<p align=left><%=qqmsg_off%>'>&nbsp;<%=QQ_name(n)%></a></li>");
else
document.write("<LI class=Fs_KstdLi><a class='b'target=blank href='tencent://message/?uin=<%=QQ(n)%>&Site=良精多风格2006商业版&Menu=no'><img alt='<p align=left><%=qqmsg_on%>'src=../images/qq/QQon<%=qqskin%>.gif border=0 align=middle></a></td><td><a class='b'target=blank href='tencent://message/?uin=<%=QQ(n)%>&Site=良精多风格2006商业版&Menu=no'alt='<p align=left><%=qqmsg_on%>'>&nbsp;<%=QQ_name(n)%></a></li>");
</script >
<%next%>
<LI class=Fs_KstdLi><a target=blank href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>"><img border="0" SRC="../images/msn.gif" alt="<%=msn_name%>"></a></td><td><a target=blank href="msnim:chat?contact=<%=msn%>&Site=<%=msn_name%>">&nbsp;<%=msn_name%></a></li>




<%

end If
Set connQQ=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="">联系我们</A> | <A class=Top 
  href="">用户案例</A> | <A class=Top 
  href="" target=_blank>帮助中心</A> | <A class=Top 
  href="">汇款方式</A> | <A class=Top 
  href="">相关法律</A> | <A class=Top 
  href="">加盟良精</A> </LI>
  <LI class=CopyLi>
    <div align="center">&copy; 2002-2007 LiangJing.net 良精科技版权所有 <a href="http://www.miibeian.gov.cn/">京ICP备05060022</a></div>
    <p align="center">联系方式: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 "栏目正在建设中……"
else
	i=1
	do while not rsbig.eof
%>  <LI class=Fs_KstdLi>·<A 
  href="List_<%=rsbig("BigclassID")%>_1.html" 
  target=_blank><%=rsbig("BigClassName")%></A></LI>
	
<%
	rsbig.movenext
	i=i+1
	loop
	rsbig.close
    set rsbig=nothing
end if
%>

<%
end Sub %>
<%Function cutStr(str,strlen) 
Dim re 

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
💿 文件大小 3865 K
👤 上传用户 lanyiting1
📂 所属分类 *行业应用
🏷️ 相关标签

#破解版 #企业网站 #企业应用 #二次开发
⌨️ 快捷键说明

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