WEB(ASP,PHP,...)

Development Platform:
HTML/CSS

My_shop.asp：Code Content
							<!--#include file="ku_top.asp"-->
<%
sjid=request.querystring("guxing")
set rssj=server.CreateObject("adodb.recordset")
sqlsj="select * from shangjia where id="&sjid&""
rssj.open sqlsj,conn,1,1
if rssj.eof then
response.redirect"Shangjia.asp"
end if
function title()
sjid=request.querystring("guxing")
set rssjt=server.CreateObject("adodb.recordset")
sqlsjt="select * from shangjia where id="&sjid&""
rssjt.open sqlsjt,conn,1,1
%>
<%=rssjt("name")%>
<%
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>商家：<%=title%></b></div> </td>
				</tr>
				<tr>
					<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
			
				<div align="center">
					<table cellpadding="0" cellspacing="1" width="732" height="170" bgcolor="#F6F6F6">
						<tr>
							<td height="170" bgcolor="#FFFFFF" width="165"><p align="center"><img border="0" src="<%=rssj("logo")%>" width="143" height="153"></td>
							<td height="170" bgcolor="#FFFFFF" width="564">
													<div align="center">
							<table border="0" width="99%" id="table3" cellpadding="3" cellspacing="1"  bgcolor="#EFEFEF">
								<tr>
									<td width="84" height="32" bgcolor="#FFFFFF">
									<p align="center"><b>店铺名称</b>：</td>
									<td height="32" bgcolor="#FFFFFF"><b>
									<font color="#6699FF"><%=rssj("name")%></font></b></td>
								</tr>
								<tr>
									<td width="84" height="95" bgcolor="#FFFFFF">
									<p align="center"><b>店铺简介</b>：</td>
									<td height="95" bgcolor="#FFFFFF"><%=changechr(cstr(rssj("beizhu")))%></td>
								</tr>
								<tr>
									<td width="84" bgcolor="#FFFFFF">
									<p align="center"><b>联系方式</b>：</td>
									<td bgcolor="#FFFFFF"><font color="#6699FF">电话：</font><%=rssj("tel")%> 
									<font color="#6699FF">联系人：</font><%=rssj("username")%><br>
									<font color="#6699FF">地址：</font><%=rssj("address")%></td>
								</tr>
							</table>
						</div>
							</td>
						</tr>
					</table>
					<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
					<table cellpadding="0" cellspacing="1" width="99%" bgcolor="#F6F6F6">
						<!-- MSTableType="layout" -->
						<tr>
							<td height="135" bgcolor="#FFFFFF" valign="top">
							<div align=center>
<table width="720" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<table width="720" border="0" align="center" cellpadding="3" cellspacing="1" height="175" >
<tr>
<%
	set rs=server.createobject("adodb.recordset")
	sql="select * from gu_pro where did="&sjid&""	
	sql=sql&" order by addtime desc"
	rs.open sql,conn,1,1
	
	dim a
	Set a=New PageList
	listLimit=6
	'模拟分页一页显示分页数
	pageLists=5
	'设置分页参数
If rs.BOF or rs.EOF Then 
%>
</tr>
<tr bgcolor="#C6E3F4">
  <td height="24"  align="center" bgcolor="#FFFFFF"><b><font color="#0066FF">此商家还没添加产品！</font></b></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="124" width="114" style="border: 1px solid #CECFCE">
<p align="center">
<a href="Gu_showpro.asp?guxing=<%=rs("id")%>">
<img border="0" src="<%=rs("pic")%>" width="108" height="114"></a>
</td>
<td width="529" valign="top">
<div align="left">
	<table border="0" width="190" height="111" cellpadding="0" cellspacing="0">
		<tr>
			<td height="36" width="51"><b>名称</b>：</td>
			<td height="36" width="139"><a href="Gu_showpro.asp?guxing=<%=rs("id")%>"> 
			<font color="#FF0000"> <%=Trim(rs("name"))%></font></a></td>
		</tr>
		<tr>
			<td height="32" width="51"><b>时间</b>：</td>
			<td height="32" width="139"> <%=DateTimeFormat(rs("addtime"),4)%></td>
		</tr>
		<tr>
			<td height="33" width="51"><b>价格</b>：</td>
			<td height="33" width="139"> <font color="#800000"> <%=rs("price")%></font> 元</td>
		</tr>
	</table>
</div>
</td>
<% if x mod 2 =0 then%> 
</tr>
	<tr>
		<td height="9" 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">   
	<p align="center"><%=a.PageInfo%></td>
  </tr>
  <tr>
    <td colspan="2"></td>
  </tr>
 </form>
</table>
</div>
<%
rs.close
set rs=nohing
%>
							</td>
						</tr>
					</table>
				</div>
			
				<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_gg.asp"-->
			</td>
		</tr>
	</table>
</div>
<!--#include file="Ku_foot.asp"-->

						