bs_news.asp

详细说明在文件 程序说明： ☆ 中英文双语版 ☆ 后台在同一页内同时管理添加修改资料内的中英文内容 ☆ 网站的左边栏使用了模块,可以自由的增加&删除 ☆ 可以不用修改代码,

<%@ LANGUAGE=VBScript CodePage=936%>
<%option explicit%>
<%Response.Buffer=True%>
<!--#include file="Include/Bs_System.asp"-->
<!--#include file="../Inc/ubbcode.asp"-->
<!--#include file="Include/Bs_SysNews.asp"-->
<!--#include file="Include/Bs_StrLeft.asp"-->
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - All Rights Reserved. 
'
'========================================================
%>
<%
'请勿改动下面这二行代码
MaxPerPage=NewsMaxPerPage_Default
%>
<!--#include file="Include/Bs_Head.asp" -->
<TABLE cellPadding=0 cellSpacing=0 class='Middle_Title'>
<TR> 
<TD vAlign=top class='M_Left_Td'> 
	<table cellpadding="0" cellspacing="0" align="center" class='M_Left_Title'>
		<tr>
			<td valign="top">
<% Call Left_News() %>
			</td>
		</tr>
	</table> 
</TD>

<TD class='M_Jgx_TD'><IMG src='../img/1x1_pix.gif' width=1 height=2></TD>
<TD vAlign=top> 
	<TABLE cellPadding=0 cellSpacing=0 align='center' class='M_Center_Title'>
<% Call Style_Adcolumn() '广告栏 %>

<!-- 新闻 -->
		<TR>
			<TD>
				<TABLE cellSpacing=0 cellPadding=0 class='MC_Pt_Title'>
					<TR>
						<TD class='MC_Pt_TD1'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
						<TD class='MC_Pt_TD2'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
						<TD class='MC_Pt_TD3'><SPAN class=Glow>
<%
if Action="Co" then
	Response.write "公司新闻"
elseif Action="Ye" then
	Response.write "业内资讯"
elseif Action="Pr" then
	Response.write "产品动态"
end if
%>
&nbsp;</SPAN></TD>
						<TD class='MC_Pt_TD4'><div align="right">
<%
if Action="Co" then
	call ShowNewsCoTotal()
elseif Action="Ye" then
	call ShowNewsYeTotal()
elseif Action="Pr" then
	call ShowNewsPrTotal()
end if
%>
&nbsp;</div></TD>
						<TD class='MC_Pt_TD5'><IMG src='../img/1x1_pix.gif' width=3 height=1></TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
		<TR> 
			<TD>
				<TABLE cellSpacing=0 cellPadding=0 class='MC_NewsNr_Title'>
					<tr> 
						<td valign=top>
<%
if Action="Co" then
	call ShowNewsCo(30)
elseif Action="Ye" then
	call ShowNewsYe(30)
elseif Action="Pr" then
	call ShowNewsPr(30)
end if
%>
						</td>
					</tr>
				</table>
			</TD>
		</TR>
<!-- 新闻 END -->
		<TR> 
			<TD> 
				<TABLE cellSpacing=0 cellPadding=0 class='MC_bottom_title'>
					<tr> 
						<td>
<%
strFileName="Bs_News.asp?Action="& Action &"&"
	if totalput>0 then
	call ShowNewsPage(strFileName,totalput,MaxPerPage,false,true,"条新闻")
	end if
%>
						</td>
					</tr>
					<tr><td class='MC_bottom_Td2'></td></tr>
				</table>
			</TD>
		</TR>
		<TR><TD height=10><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
	</TABLE>
</TD>

</TR>
</TABLE>
<!--#include file="Include/Bs_Foot.asp" -->