index.asp

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

<!--#include file="Inc/syscode.asp" -->
<!--#include file="Inc/TOP.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<%
'=================================
'  冠龙网络科技有限公司
'  网址：http://www.glgk.com
'  电话 :[phone]
'  信箱：[e-mail]
'  QQ：53180986
'
'=================================
%>
<%  
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/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_Bulletin.asp" -->
<!-- 会员登陆 -->
<!-- #include file="L_login.asp" -->
<!-- 产品列表 -->
<!-- #include file="L_product.asp" -->
<!-- 站内调查 -->
<!-- #include file="L_vote.asp" -->
<!-- 友情连接 -->
<!-- #include file="L_fellow.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" background="img/cnpt/bg.gif">&nbsp; &nbsp;  <span style="font-weight: bold">公 司 简 介</span></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%">　　<%=Profile%></td>
			</tr>
			<tr> 
				<td>&nbsp;</td>
			</tr>
		</table>	</TD>
</TR>
<TR>
  <TD height="26" background="img/cnpt/bg.gif">&nbsp;&nbsp;&nbsp; <span style="font-weight: bold">推 荐 产 品</span></TD>
</TR>
<TR>
  <TD><table width="99%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td></td>
    </tr>
    <tr>
      <td ><%
set rs_Product=server.createobject("adodb.recordset")
sqltext="select * from Product where Passed=True And Elite=True order by UpdateTime desc"
rs_Product.open sqltext,conn,1,1
%>
          <br />
          <marquee width="530" scrollamount="4" onmouseover="this.stop()" onmouseout="this.start()">
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr align="center">
              <% Do While Not rs_Product.EOF%>
              <td ><table width="130" height="130" border="0" cellpadding="0" cellspacing="1">
                  <tr>
                    <td><div align="center"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><img src="<%=rs_Product("DefaultPicUrl")%>" width="120" height="120" border="0" /></a></div></td>
                  </tr>
                  <tr>
                    <td align="center"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><%=rs_Product("Spec")%></a></td>
                  </tr>
              </table></td>
              <%
rs_Product.MoveNext
Loop
rs_Product.close
%>
            </tr>
          </table>
            </marquee>      </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" background="img/cnpt/bg.gif">&nbsp;&nbsp;&nbsp;<span style="font-weight: bold"> 最 新 产 品</span></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="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><img src=<%=rs_Product("DefaultPicUrl")%> border=0></a></div></td>
							<td width="24%">产品名称：</td>
							<td width="38%"><a href="ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>"><%=rs_Product("Title")%></a></td>
						</tr>
						<tr>
							<td>产品规格：</td>
							<td><%=rs_Product("Spec")%></td>
						</tr>
						<tr>
							<td>产品信息：</td>
							<td><a href=ArticleShow.asp?ArticleID=<%=rs_Product("articleid")%>><img src=Img/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/Foot.asp" -->
<script language="javascript" type="text/javascript" src="jqqonline/qq.asp"></script>
</BODY></HTML>