看看以前的同事写的代码

<div id="content">
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 direction=up width=1 height=1 delay="1">
<div class="content-top"><img src="images/content-top.jpg" width="938" height="4" /></div>
<div class="content-zhong">
<div class="con-left">
<p class="font">About us</p>
<p class="neirong"><%=left(rs4("eabout"),600)%>...</p>
<p class="font">Products Categories</p>
<div style="margin-top:10px; padding-left:20px;">
<% set rs=server.CreateObject("adodb.recordset")
sql="select * from product where audit=1 order by id desc"
rs.open sql,conn,1,3%>
<%
do while not rs.eof
%>
<p style="width:106px; float:left; padding:5px; line-height:34px; height:130px; background:url(images/cp-bg.jpg) no-repeat;">
<span><a href="products.asp?sort_id=<%=rs("sort_id")%>"><img src="../pic/<%=rs("pic")%>" width="96" height="88" border="0"/></a></span><br />
<a style="color:#000;" href="products.asp?sort_id=<%=rs("sort_id")%>"><%=rs("ecpmc")%></a></p>
<%
rs.movenext
loop
rs.close
%>
</div>

</div>
<div class="con-right">

</div>

<div class="content-buttom"><img src="images/content-buttom.jpg" width="938" height="4" /></div>
</div>

</body>
</html>

older

2013-07-06 15:29:47 +08:00

@xdeng




<%
language = "cn"

productsPartID = request("ProductsPartID")
dim strSql , strWhere, strTitle
strSql = " SELECT Productsid,pics,pic,ProductsText,ProductsName,ProductsPartID FROM RF_Products WHERE DisplayLevel > 0 AND productsName <> '' "

if productsPartID <> "" then ' 类别ID是否为空
ProductsPartID = clng(productsPartID)
StrSqlPart="select ProductsPartName from RF_ProductsPart where ProductsPartID= " & ProductsPartID
Set rsPart=conn.execute(StrSqlPart)
strTitle = rsPart("ProductsPartName")
else
ProductsPartID = 0
strTitle = "产品展示"
end if
if request("q") <> "" then '搜索关键字不空
strWhere=" AND ProductsName like '%"&request("q")&"%' OR ProductsText like '%"&request("q")&"%'"
end if
if ProductsPartID <> 0 then strWhere = strWhere &" AND ProductsPartID ="&ProductsPartID
strSql = strSql & strWhere & " order by DisplayLevel DESC , ProductsName ASC"
'Response.Write(strSql)

if sm ="" then
sm=0
else
sm=sm-1
end if

%>
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title><%=strTitle%>--<%=WebTitle%></title>
<META name="description" content="<%=Description%>">
<meta name="keywords" content="<%=Keywords%>">
<link rel="stylesheet" type="text/css" href="css/_main.css"/>

<script type="text/javascript" src="js/subMenu.js"></script>
</head>

<body>

<div class="wrap">
<div class="side">
<ul class="sideMenu">
<%=productClassNavBig (language,productsPartID) %>
</ul>
</div>
<div class="content">
<div class="content-head"><a href="index.asp">首页</a><span>>></span><a href="productIndex.asp">产品中心</a><span>>></span><%=strTitle%></div>

<ul class="productList">
<%
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接

mypage.getsql=strSql
mypage.pagesize=15 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset

for i=1 to mypage.pagesize '接下来的操作就和操作一个普通Recordset对象一样操作
if not rs.eof then '这个标记是为了防止最后一页的溢出
response.write"<li><a href=""ProductShow.asp?ProductsPartID="&rs("ProductsPartID")&"&sm="&sm+1&"&ProductsID="&rs("Productsid")&""" target=""_blank"" ><img src=""pics/"&rs("pics")&""" alt="""&rs("ProductsName")&""" /></a><dl><dt><a href=""ProductShow.asp?ProductsPartID="&rs("ProductsPartID")&"&sm="&sm&"&ProductsID="&rs("Productsid")&""" target=""_blank"" >"&rs("ProductsName")&"</a></dt></dl></li>"& chr(10)

rs.movenext
else
exit for
end if
next
%>
</ul>
<div class="cb pl20">
<%
mypage.showpage()
%>
</div>

</div>
</div>

</body>
</html>