index.asp

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

<%@ LANGUAGE=VBScript CodePage=936%>
<%option explicit%>
<%Response.Buffer=True%>
<!--#include file="Include/En_System.asp"-->
<!--#include file="../Inc/ubbcode.asp"-->
<!--#include file="../Inc/eshopcode.asp"-->
<!--#include file="Include/En_SysProduct.asp"-->
<!--#include file="Include/En_SysCoSaJo.asp"-->
<!--#include file="Include/En_StrLeft.asp"-->
<%
'=========================================================
'
' 产品名称：良精软件 公司(企业)网站管理系统（简称：liangjing.net）
' 版权所有：liangjing.net
' 程序制作：liangjing开发团队
' Copyright 2004-2005 liangjing.net - All Rights Reserved.
'
'========================================================
%>
<%  
dim rsCou,sqltext,mylogin
set rsCou = Server.CreateObject("ADODB.Recordset")

if Session("mylogin")<>"1" then
	sqltext="update Bs_SysData set querycount=querycount+1 where code='5062942'"
	conn.execute(sqltext)
	
	rsCou.Open "webcount",conn,3,3
	rsCou.AddNew
	rsCou("ipaddress")=Request.ServerVariables("Remote_HOST")
	rsCou("logindate")=now()
	rsCou.Update
	rsCou.Close
			
	mylogin=Session("mylogin")
	Session("mylogin")="1"
else
	mylogin=Session("mylogin")	
end if
%>

<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function
%>
<!--#include file="Include/En_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_Index() %>
			</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>
News Product
&nbsp;</SPAN></TD>
				<TD class='HomeMC_Pt_TD5'><a href="En_Product.asp" title="More product exhibition ..."><IMG  src='../img/1x1_pix.gif' width=52 height=23 border=0></a></TD>
			</TR>
		</TABLE>
	</TD>
</TR>
<TR>
	<TD> 
		<table width="100%" border="0" cellspacing="1" cellpadding="0" class=main_tdbg>
			<tr>
<TD><% call ProductZY() %></TD>
			</tr>
		</table>
	</TD>
</TR>
<!-- 产品展示END -->
<TR><TD height=8><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
<!-- 公司介绍 -->
<TR>
	<TD>
		<TABLE cellSpacing=0 cellPadding=0 class='HomeMC_Pt2_Title'>
			<TR>
<TD width=29><IMG src="../Skin/Img/arrow3.gif" width=29 height=11 border=0></TD>
<TD style="padding-top:2px" align=left><SPAN class=Glow>Company introduction</SPAN></TD>
<TD width=35 align=right style="padding-top:4px"><a href="En_CoProfile.asp?Action=Profile" title="More company introductions ..."><IMG src="../Skin/Img/more.gif" width=27 height=9 border=0></a>&nbsp;</TD>
			</TR>
		</TABLE>
	</TD>
</TR>
<TR><TD height=1><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>
<TR> 
	<TD>
		<table width="100%" border="0" cellspacing="5" cellpadding="0" class=main_tdbg>
			<tr> 
				<td style="line-height: 150%">　　<%=CSJ_Profile%></td>
			</tr>
		</table>
	</TD>
</TR>
<!-- 公司介绍 END -->
<TR><TD height=6><IMG src='../img/1x1_pix.gif' width=3 height=1></TD></TR>

</TABLE> 
</TD>
</TR>

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

<%
'--------产品展示--------
Sub ProductZY()
dim rs_ProductZY,sql_ProductZY,row_count,strLb,strli
set rs_ProductZY=server.createobject("adodb.recordset")
sql_ProductZY="select top 8 * from Bs_Product where Passed=True And EnElite=True order by UpdateTime desc"
rs_ProductZY.open sql_ProductZY,conn,1,1
	Response.Write "<table width=100% border=0 cellspacing=2 cellpadding=0><TR><TR><TD></TD></TR>"

	row_count=1
	 Response.Write "<TR align=""center"">"
	 Do While Not rs_ProductZY.EOF
		strli=""
		strli=strli & " ● &nbsp;&nbsp;Name："& rs_ProductZY("EnTitle") &" "&chr(13)
		strli=strli & " ● &nbsp;&nbsp;Spec："& rs_ProductZY("EnSpec") &" "&chr(13)
		strli=strli & " ● &nbsp;&nbsp;Size："& rs_ProductZY("Size") &" "
			strLb=""
			strLb=strLb & "<TD>"
			strLb=strLb & "<table width=130 border=0 cellpadding=0 cellspacing=0>"
			strLb=strLb & "<TR><TD height=3></TD></TR>"

			strLb=strLb & "<tr>"
			strLb=strLb & "<td width='98%'><div align=center>"
			strLb=strLb & "<a href='En_ProductShow.asp?ArticleID="& rs_ProductZY("articleid") &"' title='" & strli &"'>"
			strLb=strLb & "<img border=0 src='"& rs_ProductZY("DefaultPicUrl") &"' width=100 height=100></a>"
			strLb=strLb & "</div></td>"
			strLb=strLb & "</tr>"

			strLb=strLb & "<TR><TD height=3></TD></TR>"
	'		strLb=strLb & "<tr><td width=98% align=center>产品名称</td></tr>"
			strLb=strLb & "<tr>"
			strLb=strLb & "<td height=20 bgcolor=#EFFFDE><div align=center>"
			strLb=strLb & "<a href='En_ProductShow.asp?ArticleID="& rs_ProductZY("articleid") &"' title='"& strli &"'>"& gotTopic(rs_ProductZY("EnTitle"),18) &"</a>"
			strLb=strLb & "</div></td>"
			strLb=strLb & "</tr>"

			strLb=strLb & "<tr>"
			strLb=strLb & "<td height=3 bgcolor=#D5FBB6><IMG height=1 src='../img/1x1_pix.gif' width=1></td>"
			strLb=strLb & "</tr>"
			strLb=strLb & "</table></TD>"
			Response.Write strLb

		if row_count mod 4 <>0 then
		end if
		if row_count mod 4 =0 then
		Response.Write "</TR><TR>"
		end if

		rs_ProductZY.MoveNext
	row_count=row_count+1
	Loop

rs_ProductZY.close
 Response.Write "</TR><TR><TD></TD></TR></Table>"
set rs_rs_ProductZY=nothing
END Sub
%>