📄 default.asp
字号:
<%
dim sqlo
dim rso
dim filtersql
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("shopping.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Dim i
i=1
set objRS=server.createobject("adodb.recordset")
filtersql="Select * from Products Where 首页显示 = True"
objRS.open filtersql,conn,1,1
%>
<html>
<head>
<title>精品盎然</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function popwin2(id,path)
{ window.open("list.asp?id="+id+"&ppath="+path,"","height=400,width=500,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<body bgcolor="#00A36A" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center" background="images/jpar.gif">
<tr>
<td height="70" width="760" colspan="2">
<div align="left"><img src="images/annun.gif" width="380" height="70" usemap="#Map" border="0"><map name="Map"><area shape="circle" coords="129,42,17" href="shopdisplaycategories.asp"><area shape="circle" coords="245,44,17" href="shopaddtocart.asp"><area shape="circle" coords="306,44,17" href="shopend.asp"><area shape="circle" coords="364,44,17" href="shopcustomer.asp"><area shape="circle" coords="71,42,17" href="default.asp"><area shape="circle" coords="187,42,17" href="shopsearch.asp"></map></div>
</td>
<td height="70"></td>
</tr>
<tr>
<td colspan="3" height="35"></td>
</tr>
<tr valign="top" align="left">
<td width="150"> </td>
<td width="577"><% do while not (objRS.eof or err)
strCimageurl = objRS("小图片地址")%> <%if i=1 then%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="192">
<table width="192" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="EFD786" height="1"></td>
</tr>
<tr>
<td height="15" width="19"><img src="images/btop.gif" width="19" height="15"></td>
<td valign="bottom"><%=objRS("类别")%></td>
</tr>
<tr bgcolor="EFD786">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td width="19" height="92" align="center" valign="middle"><img src="images/bleft.gif" width="19" height="92"></td>
<td><a href="javascript:popwin2(<%=objRS("目录ID")%>)"><%if strCimageurl<>"" then%>
<img src="<%=objRS("小图片地址")%>" width="78" height="76" border="0" align="left">
<%else%> <img src="images/gwm.gif" width="78" height="76" border="0" align="left">
<%end if%></a>品名：<%=objRS("名称")%><br>价格：￥<%=objRS("价格")%><br><br><a href="javascript:popwin2(<%=objRS("目录ID")%>)">详细说明>>></a></td>
</tr>
</table>
</td> <%end if
if i=2 then%>
<td width="192">
<table width="192" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="EFD786" height="1"></td>
</tr>
<tr>
<td height="15" width="19"><img src="images/btop.gif" width="19" height="15"></td>
<td valign="bottom"><%=objRS("类别")%></td>
</tr>
<tr bgcolor="EFD786">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td width="19" height="92" align="center" valign="middle"><img src="images/bleft.gif" width="19" height="92"></td>
<td><a href="javascript:popwin2(<%=objRS("目录ID")%>)"><%if strCimageurl<>"" then%>
<img src="<%=objRS("小图片地址")%>" width="78" height="76" border="0" align="left">
<%else%> <img src="images/gwm.gif" width="78" height="76" border="0" align="left">
<%end if%></a>品名：<%=objRS("名称")%><br>价格：￥<%=objRS("价格")%><br><br><a href="javascript:popwin2(<%=objRS("目录ID")%>)">详细说明>>></a></td>
</tr>
</table>
</td><%end if
if i=3 then%>
<td width="192">
<table width="192" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="EFD786" height="1"></td>
</tr>
<tr>
<td height="15" width="19"><img src="images/btop.gif" width="19" height="15"></td>
<td valign="bottom"><%=objRS("类别")%></td>
</tr>
<tr bgcolor="EFD786">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td width="19" height="92" align="center" valign="middle"><img src="images/bleft.gif" width="19" height="92"></td>
<td><a href="javascript:popwin2(<%=objRS("目录ID")%>)"><%if strCimageurl<>"" then%>
<img src="<%=objRS("小图片地址")%>" width="78" height="76" border="0" align="left">
<%else%> <img src="images/gwm.gif" width="78" height="76" border="0" align="left">
<%end if%></a>品名：<%=objRS("名称")%><br>价格：￥<%=objRS("价格")%><br><br><a href="javascript:popwin2(<%=objRS("目录ID")%>)">详细说明>>></a></td>
</tr>
</table>
</td>
<td width="1" bgcolor="EFD786"></td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="EFD786"></td>
<td width="1" bgcolor="EFD786"></td>
</tr>
</table>
<br> <%end if
if i=4 then%>
<table border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="192">
<table width="192" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="EFD786" height="1"></td>
</tr>
<tr>
<td height="15" width="19"><img src="images/btop.gif" width="19" height="15"></td>
<td valign="bottom"><%=objRS("类别")%></td>
</tr>
<tr bgcolor="EFD786">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td width="19" height="92" align="center" valign="middle"><img src="images/bleft.gif" width="19" height="92"></td>
<td><a href="javascript:popwin2(<%=objRS("目录ID")%>)"><%if strCimageurl<>"" then%>
<img src="<%=objRS("小图片地址")%>" width="78" height="76" border="0" align="left">
<%else%> <img src="images/gwm.gif" width="78" height="76" border="0" align="left">
<%end if%></a>品名：<%=objRS("名称")%><br>价格：￥<%=objRS("价格")%><br><br><a href="javascript:popwin2(<%=objRS("目录ID")%>)">详细说明>>></a></td>
</tr>
</table>
</td>
<%end if
if i=5 then%>
<td width="192">
<table width="192" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="EFD786" height="1"></td>
</tr>
<tr>
<td height="15" width="19"><img src="images/btop.gif" width="19" height="15"></td>
<td valign="bottom"><%=objRS("类别")%></td>
</tr>
<tr bgcolor="EFD786">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td width="19" height="92" align="center" valign="middle"><img src="images/bleft.gif" width="19" height="92"></td>
<td><a href="javascript:popwin2(<%=objRS("目录ID")%>)"><%if strCimageurl<>"" then%>
<img src="<%=objRS("小图片地址")%>" width="78" height="76" border="0" align="left">
<%else%> <img src="images/gwm.gif" width="78" height="76" border="0" align="left">
<%end if%></a>品名：<%=objRS("名称")%><br>价格：￥<%=objRS("价格")%><br><br><a href="javascript:popwin2(<%=objRS("目录ID")%>)">详细说明>>></a></td>
</tr>
</table>
</td>
<%end if
if i=6 then%>
<td width="192">
<table width="192" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="EFD786" height="1"></td>
</tr>
<tr>
<td height="15" width="19"><img src="images/btop.gif" width="19" height="15"></td>
<td valign="bottom"><%=objRS("类别")%></td>
</tr>
<tr bgcolor="EFD786">
<td colspan="2" height="1"></td>
</tr>
<tr>
<td width="19" height="92" align="center" valign="middle"><img src="images/bleft.gif" width="19" height="92"></td>
<td><a href="javascript:popwin2(<%=objRS("目录ID")%>)"><%if strCimageurl<>"" then%>
<img src="<%=objRS("小图片地址")%>" width="78" height="76" border="0" align="left">
<%else%> <img src="images/gwm.gif" width="78" height="76" border="0" align="left">
<%end if%></a>品名：<%=objRS("名称")%><br>价格：￥<%=objRS("价格")%><br><br><a href="javascript:popwin2(<%=objRS("目录ID")%>)">详细说明>>></a></td>
</tr>
</table>
</td>
<td width="1" bgcolor="EFD786"></td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="EFD786"></td>
<td width="1" bgcolor="EFD786"></td>
</tr>
</table>
</td>
<td width="50"> </td>
</tr>
<tr valign="top">
<td colspan="3">
<table width="777" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="180" valign="top">
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" height="80"> </td>
</tr>
<tr>
<td align="center" valign="bottom" width="90">
<p> </p>
<p> </p>
<p>拾雨原创 </p>
<p>壁纸飘送 </p>
<p><a href="../fwpd/fwpd.htm">服务飘带</a> </p>
<p><a href="../sscr/sscr.htm">时尚超然</a> </p>
</td>
<td valign="top" width="90">
<p> <br>
<a href="../index1.asp">回首飘然</a> </p>
<p><a href="../fydn/fydn.asp">风云电脑</a> </p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -