en_articleshow.asp

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

<!--#include file="Inc/En_syscode.asp"-->
<%
'=================================
'
'冠龙网络科技有限公司
'网址：http://www.glgk.com/
'电话：[phone]
'Q Q     53180986
'copyright(c)2006 GUANLONG
'
'=================================
%>
<!--#include file="Inc/En_Top.asp"-->
<%
ShowSmallClassType=ShowSmallClassType_Article
dim ArticleID
ArticleID=trim(request("ArticleID"))
if ArticleId="" then
	response.Redirect("En_Product.asp")
end if

sql="select * from Product where ArticleID=" & ArticleID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	response.write"<SCRIPT language=JavaScript>alert('Can find this product！');" 'Can find this product 找不到此产品
  response.write"javascript:history.go(-1)</SCRIPT>"
else	
	rs("Hits")=rs("Hits")+1
	rs.update
	if rs("hits")>=HitsOfHot then
		rs("Hot")=True
		rs.update
	end if
	BigClassName=rs("BigClassName")
	SmallClassName=rs("SmallClassName")
%>
<!-- #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_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_01.gif" width="450" height="30"></TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
		<TR> 
			<TD height=1 background="img/naBialym.gif"><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD>
				<TABLE width="98%" border=0 align="right" cellPadding=0 cellSpacing=0>
					<TR> 
						<TD width="459" height=25
><%
response.write "|&nbsp;<a href='En_Product.asp?EnBigClassName=" & rs("EnBigClassName") & "'>" & rs("EnBigClassName") & "</a>&nbsp;&gt;&gt;&nbsp;"
if rs("EnSmallClassName") & ""<>"" then
response.write "<a href='En_Product.asp?EnBigClassName=" & rs("EnBigClassName")&"&EnSmallClassName=" & rs("EnSmallClassName") & "'>" & rs("EnSmallClassName") & "</a>&nbsp;&gt;&gt;&nbsp;"
end if
response.write rs("EnTitle")
%> </TD>
						<TD width="96" height=25 valign="bottom"
><a href='javascript:eshop(<%=rs("Product_Id")%>)'><img border=0 src=Img/En_addtocart.gif width=95 height=17></a>&nbsp;</TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
		<TR> 
			<TD height=1 background="img/naBialym.gif"><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD height=1><br>&nbsp;&nbsp;&nbsp;&nbsp;<%call ShowArticleContent()%> </TD>
		</TR>
		<TR> 
			<TD height=1 background="img/naBialym.gif"><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD>
				<TABLE width="98%" border=0 align="right" cellPadding=0 cellSpacing=0>
					<TR> 
						<TD width="459" height=25
>Click count：<%=rs("Hits")%>&nbsp; Input time：<%= FormatDateTime(rs("UpdateTime"),2) %>&nbsp;【<a href='javascript:window.print()'>Print Page</a
>】&nbsp;【<a href='javascript:history.back()'>Return</a>】</TD>
						<TD width="96" height=25 valign="bottom"
><a href='javascript:eshop(<%=rs("Product_Id")%>)'><img border=0 src=Img/En_addtocart.gif width=95 height=17></a>&nbsp;</TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
		<TR> 
			<TD height=1 background="img/naBialym.gif"><IMG height=1 src="img/1x1_pix.gif" width=10></TD>
		</TR>
		<TR> 
			<TD height=1>&nbsp; </TD>
		</TR>
		<TR> 
			<TD height=1>&nbsp; </TD>
		</TR>
	</TABLE>
</TD>

</TR>
</TABLE>
<!-- #include file="Inc/En_Foot.asp" -->
</BODY></HTML>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>