en_index.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="Inc/En_syscode.asp" -->
<!--#include file="Inc/En_TOP.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<%
'=================================
'
'冠龙网络科技有限公司
'网址：http://www.glgk.com/
'电话：[phone]
'Q Q     53180986
'copyright(c)2006 GUANLONG
'
'=================================
%>
<%  
set rsCou = Server.CreateObject("ADODB.Recordset")

if Session("mylogin")<>"1" then
	sqltext="update syswork set querycount=querycount+1 where code='101'"
	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="Inc/En_Head.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
<TR> 
<TD width=196 vAlign=top bgcolor="#FFFFFF"> 
	<table width="92%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
		<tr>
			<td valign="top">

<!-- 会员登陆 -->
<!-- #include file="L_login.asp" -->
<!-- 資訊公告欄 -->
<!-- #include file="En_L_Bulletin.asp" -->
<!-- 产品列表 -->
<!-- #include file="En_L_product.asp" -->

			</td>
		</tr>
	</table> 
</TD>

<TD width=1 background=img/kropki_pion_naBialym.gif><IMG height=2 src="img/1x1_pix.gif" width=1></TD>
<TD vAlign=top> 
	<TABLE width="90%" border=0 align="right" cellPadding=0 cellSpacing=0>
<!-- 广告栏 -->
<!-- #include file="L_adcolumn.asp" -->

<!-- 公司介绍 -->
<TR> 
	<TD>
		<TABLE cellSpacing=0 cellPadding=0 width="555" border=0>
			<TR> 
				<TD height="25"><img src="Img/enpt/pt_11.gif" width="450" height="30"></TD>
			</TR>
		</TABLE>
	</TD>
</TR>
<TR> 
	<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
</TR>
<TR> 
	<TD>
		<table width="95%" border="0" cellspacing="0" cellpadding="0">
			<tr> 
				<td>&nbsp;</td>
			</tr>
			<tr> 
				<td style="line-height: 150%"><%=EnProfile%></td>
			</tr>
			<tr> 
				<td>&nbsp;</td>
			</tr>
		</table>
	</TD>
</TR>
<TR> 
	<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
</TR>

<!-- 产品展示 -->
<TR>
	<TD height=1>
		<TABLE cellSpacing=0 cellPadding=0 width="555" border=0>
			<TR>
				<TD height="25"><img src="Img/enpt/pt_04.gif" width="450" height="30"></TD>
			</TR>
		</TABLE>
	</TD>
</TR>
<TR>
	<TD background=img/naBialym.gif height=1><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
</TR>
<TR>
	<TD height=1> 
<%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top 8 * from Product where Passed=True And Elite=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
<br> 
		<table width="100%" border="0" cellspacing="1" cellpadding="0">
			<tr>
				<td> </td>
			</tr>
<%row_count=1 %>
			<tr align="center">
<% Do While Not rs_Product.EOF%>
				<td> 
					<table width="100%" height="105" border="0" cellpadding="0" cellspacing="2">
						<tr>
							<td width="38%" rowspan="3"><div align="center"><a href="En_ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><img border=0 src=<%=rs_Product("DefaultPicUrl")%> width=96 height=96></a></div></td>
							<td width="24%">Name：</td>
							<td width="38%"><a href="En_ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><%=rs_Product("EnTitle")%></a></td>
						</tr>
						<tr>
							<td>Spec：</td>
							<td><%=rs_Product("EnSpec")%></td>
						</tr>
						<tr>
							<td>Info：</td>
							<td><a href="En_ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><img src=Img/En_arrow_7.gif border=0></a></td>
						</tr>
					</table>
				</td>
<%if row_count mod 2 <>0 then%>
<%end if%>
<% if row_count mod 2 =0 then%>
			</tr>
			<tr>
<%end if%>
<%
rs_Product.MoveNext
row_count=row_count+1
Loop
rs_Product.close
%>
			</tr>
			<tr>
				<td> </td>
			</tr>
		</table>
	</TD>
</TR>


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

</TABLE>
<!-- #include file="Inc/En_Foot.asp" -->
</BODY></HTML>