WEB(ASP,PHP,...)

Development Platform:
HTML/CSS

Gu_pro.asp：Code Content
							<!--#include file="ku_top.asp"-->
<%
function title()
title="商家产品"
end function
%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
		<tr>
			<td height="454" width="740" valign="top">
			<div align="center">
			<table cellpadding="0" cellspacing="0" width="740" height="452">
				<tr>
					<td height="36" background="Ku_img/News/news_001.JPG"><div id="dazi">
							<p align="left">
							<b><font color="#0066FF">
							&nbsp;&nbsp; </font>商家产品</b></div> </td>
				</tr>
				<tr>
					<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
<div align=center>
  <script   language="JavaScript1.2">   
  function   makevisible(cur,which){   
  if   (which==0)   
  cur.filters.alpha.opacity=100   
  else   
  cur.filters.alpha.opacity=20   
  }   
  </script> 
<table width="730" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" >
<tr>
<%
	set rs=server.createobject("adodb.recordset")
	sql="select * from gu_pro "
	
	sql=sql&" order by addtime desc"
	rs.open sql,conn,1,1
	
	dim a
	Set a=New PageList
	listLimit=8
	'模拟分页一页显示分页数
	pageLists=5
	'设置分页参数
If rs.BOF or rs.EOF Then 
%>
</tr>
<tr bgcolor="#C6E3F4">
  <td height="24"  align="center" bgcolor="#FFFFFF">此类暂无产品或者没有此分类！</td>
  </tr>
<%
else
dim x
x=1
'分页循环开始
totalList=rs.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rs.pagesize=listLimit
page = request("page")
If page="" Then
	page=1
End If
rs.absolutepage = page
%>
<tr>
<%for i=1 to rs.pagesize%>
<td height="100" width="130" style="border: 1px solid #CECFCE">
<p align="center">
<a href="Gu_showpro.asp?guxing=<%=rs("id")%>">
<img border="0" src="<%if rs("pic")<>"" then%><%=rs("pic")%><%else%>ku_Img/nopic.jpg<%end if%>" width="128" height="128" style="filter:alpha(opacity=20)"   onMouseOver="makevisible(this,0)"   onMouseOut="makevisible(this,1)"></a>
</td>
<td width="583">
<div align="left">
	<table border="0" width="211" height="116" cellpadding="0" cellspacing="0">
		<tr>
			<td height="30" width="52" valign="top"><b>名称</b>：</td>
			<td height="30" width="159" valign="top"><a href="Gu_showpro.asp?guxing=<%=rs("id")%>"> 
			<b><font color="#FF0000"><%=Trim(rs("name"))%></font></b></a></td>
		</tr>
		<tr>
			<td height="30" width="52"><b>时间</b>：</td>
			<td height="30" width="159"><%=DateTimeFormat(rs("addtime"),4)%></td>
		</tr>
		<tr>
			<td height="28" width="52"><b>价格</b>：</td>
			<td height="28" width="159">￥<%=rs("price")%></td>
		</tr>
		<tr>
			<td height="28" width="52"><b>商家</b>：</td>
<%
cid=rs("did")
set kurs=server.createobject("adodb.recordset")
    csql="select * from shangjia where id="&cid
    kurs.open csql,conn,1,3
%>
			<td height="28" width="159"> <b>
			<a href="My_shop.asp?guxing=<%=kurs("id")%>"><font color="#FF6600"><%=kurs("Name")%></font></a></b></td>
		</tr>
	</table>
</div>
</td>
<% if x mod 2 =0 then%> 
</tr>
	<tr>
		<td height="5" width="640" colspan="2"></td>
	</tr>
<tr align="center" width="320">
<%
end if
x=x+1
rs.movenext
if rs.eof then exit for
next
end if
%>
</tr>
</table></td>
  </tr>
  <tr>
    <td colspan="2">   → <%=a.PageInfo%></td>
  </tr>
  <tr>
    <td colspan="2"></td>
  </tr>
 </form>
</table>
</div>
<%
rs.close
set rs=nohing
%>			
					</td>
				</tr>
			
				<tr>
					<td height="4">
					<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
				</tr>
			</table>
			</div>
			</td>
			<td height="454" width="8">　</td>
			<td height="454" width="232" valign="top">
			<!--#include file="Ku_type/Index_login.asp"-->
			<!--#include file="Ku_type/sj_kind.asp"-->
			</td>
		</tr>
	</table>
</div>
<!--#include file="Ku_foot.asp"-->

						