📄 shop_info.asp
字号:
<!--#include file="top.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?user_id=<%=request.QueryString("user_id")%>&page_no="+ page.value;
}
//-->
</SCRIPT>
<%
'****************************************************
' 多多校园 Power by ddtaobao.com
' Email:ddmaster@126.com OICQ:136465584
' Web: http://www.ddtaobao.com 作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
Dim StrSql,Rs,user_id,user_name,shop_phone,shop_hits,user_qq,shop_img,shop_address,shop_name,user_realname,zu,user_date,shop_content,shop_annouce,star
user_id=SafeRequest(Request.QueryString("user_id"))
StrSql="Select * From [dd_user] where user_id="&request("user_id")&""
Set Rs=Server.CreateObject("adodb.recordset")
Rs.OPen StrSql,conn,1,1
shop_phone=rs("shop_phone")
shop_img=rs("shop_img")
user_qq=rs("user_qq")
user_name=rs("user_name")
shop_address=rs("shop_address")
shop_name=rs("shop_name")
shop_content=rs("shop_content")
shop_annouce=rs("shop_annouce")
user_realname=rs("user_realname")
star=rs("star")
zu=rs("zu")
shop_hits=rs("shop_hits")
user_id=rs("user_id")
user_date=rs("user_date")
Rs.Close
Rs.open strsql,conn,1,3
rs("shop_hits")=rs("shop_hits")+1
rs.update
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=user_realname%>的个人网络店铺</title>
</head>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height="20">
<TBODY>
<TR>
<TD class=th>
<img border="0" src="images/news.gif" width="15" height="15"></TD>
<TD class=th>欢迎光临 <font color="#FF0000"><%=shop_name%></font> 经营范围：<font color="#FF0000"><%=GetShopZu(zu)%></font></TD>
<TD class=th align="right">
该店铺已被访问
<font color="#FF0000"><%=shop_hits%>
</font> 次
<a href="Tous.asp?ID=<%=user_ID%>">投诉此店铺</a></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=778 align=center
border=0>
<TBODY>
<TR>
<TD align=right>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 >
<TBODY>
<TR>
<TD align=middle width=178>
<div align="center">
<table border="0" width="133" cellspacing="0" cellpadding="0" height="133">
<tr>
<td align="center">
<IMG src="<%=shop_img%>" alt=商店标志 border=0 width=100 height=100 style="border: 1px solid #000000; "></td>
</tr>
</table>
</div>
</TD>
<TD width=320>
<TABLE cellPadding=2 width=316 border=0 >
<TBODY>
<TR>
<TD vAlign=top align=right width="61"><STRONG>店铺掌柜:</STRONG></TD>
<TD vAlign=top><a href=userinfo.asp?user_id=<%=user_id%> target=_blank><font class="font"><%=user_realname%></font></a> <a target="_blank" title="给我发消息" href="L_user.asp?pname=<%=user_name%>">
<img border="0" src="images/mail.gif" width="45" height="18"></a></TD></TR>
<TR>
<TD vAlign=top align=right width="61"><STRONG>店铺星级:</STRONG></TD>
<TD vAlign=top><%=top1(star)%></TD></TR>
<TR>
<TR>
<TD vAlign=top align=right width="61"><b>联系OICQ</b><STRONG>:</STRONG></TD>
<TD vAlign=top><a target=blank href=http://wpa.qq.com/msgrd?V=5&Uin=<%=user_qq%>&Site=多多校园店铺&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=user_qq%>:16 alt="点击这里给我发消息"></a></TD></TR>
<TR>
<TD vAlign=top align=right width="61"><STRONG>联系电话:</STRONG></TD>
<TD vAlign=top><%=shop_phone%></TD></TR>
<TR>
<TD vAlign=top align=right width="61"><STRONG>创店时间:</STRONG><BR></TD>
<TD vAlign=top><%=user_date%></TD></TR>
<TR>
<TD vAlign=top align=right
height=18 width="61"><STRONG>店主地址:</STRONG></TD>
<TD vAlign=top><%=shop_address%></TD></TR></TBODY></TABLE></TD>
<TD >
<div align="center">
<TABLE cellPadding=2
width="98%" border=1 height="100">
<TBODY>
<TR>
<TD vAlign=top
height=127 bgcolor="#FFFFFF"><STRONG>店铺公告：</STRONG> <marquee onmouseover="this.stop()" onmouseout="this.start()" scrollamount="1" scrolldelay="85" direction="up"
behavior="scroll" height="103"><font color="ff6600"><%=shop_annouce%></font></marquee></TD></TR></TBODY></TABLE></div>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD width=778 class=line></td></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<tr>
<td valign="top" align=center width="778"><% Call ddtaobao_AD(3) %>
</td>
</tr>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TBODY>
<TR>
<TD width=778>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=182>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=180 cellSpacing=1
cellPadding=1 width="182" border=0 >
<TBODY>
<TR >
<TD class=right_title_bs06 align=center><B>本 店 简 介</B></TD></TR>
<TR >
<TD
align=left valign="top">
<div align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><%=shop_content%></td>
</tr>
</table>
</div>
</TD></TR></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=3
width="182" border=0 >
<TBODY>
<TR >
<TD class=right_title_bs06 align=center><B>店 内 新 闻</B></TD></TR>
<TR >
<TD>
<TABLE height=220 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR >
<TD valign="top"><%
Dim tim1,tim2
set tim2=server.CreateObject("adodb.recordset")
tim1="select top 8 * from [dd_new] where user_id="&request("user_id")&" order by id desc"
tim2.open tim1,conn,1,1
IF not tim2.eof and not tim2.bof then
do while not tim2.eof
%>
<a href=shopnewsinfor.asp?ID=<%=tim2("ID")%> target=_blank><%=tim2("name")%></a><br>
<%
tim2.movenext
loop
end if
%></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=3
width="182" border=0 >
<TBODY>
<TR >
<TD class=right_title_bs06 align=center><B>友 情 链 接</B></TD></TR>
<TR >
<TD valign="top">
<TABLE cellSpacing=0 cellPadding=0
width="100%" align=center>
<TBODY>
<TR >
<TD align=left><%
Dim tim3,tim4
set tim4=server.CreateObject("adodb.recordset")
tim3="select top 8 * from [dd_links] where user_id="&request("user_id")&" order by id desc"
tim4.open tim3,conn,1,1
IF not tim4.eof and not tim4.bof then
do while not tim4.eof
%>
<a href=<%=tim4("url")%> target=_blank><%=tim4("name")%></a><br>
<%
tim4.movenext
loop
end if
%></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD class=line> </td>
<TD vAlign=top>
<TABLE cellSpacing=1 cellPadding=2
width="100%" border=0 id="table1" >
<TBODY>
<TR >
<TD class=main_title_bsf align=center><B>本店最新商品</b></TD></TR>
<TR >
<TD align="center" vAlign=top>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from dd_goods where user_id="&request("user_id")&" order by goods_id desc"
rs.open sql,conn,1,3
conn.execute("update dd_user set shop_hits=shop_hits+1 where user_id="&request("user_id")&"")
%>
<TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
<TBODY>
<TR>
<TD align="center" bgcolor="#FFFFFF">
<table cellSpacing=1 cellPadding=0 width="100%" border=0 id="table4">
<tr align="center">
<td width="20%" height="21"><font class="font">商品图片</font></td>
<td height="21"><font class="font">商品名称</font></td>
<td width="12%" height="21"><font class="font">商品价格</font></td>
<td width="12%" height="21"><font class="font">商品数量</font></td>
<td width="22%" height="21"><font class="font">上架时间</font></td>
</tr>
<%
IF Not Rs.Eof And Not Rs.Bof Then
Dim page_size
Dim page_no
Dim page_total
page_size=8
IF Request.QueryString("page_no")=Empty Then
page_no=1
Else
page_no=Cint(request.QueryString("page_no"))
End IF
Session("page_no")=page_no
Rs.pagesize=page_size
page_total=Rs.pagecount
Rs.absolutepage=page_no
Dim I
I=page_size
Do while Not Rs.Eof And I>0
I=I-1
%>
<tr align="center">
<td>
<a href=<%=rs("goods_pic")%> target=_blank><IMG src="<%=rs("goods_pic")%>" border=0 width=50 height=50 style="border: 1px solid #000000; " alt=点击放大></a></td>
<td><a href="goods_info.asp?goods_id=<%=rs("goods_id")%>" target="_blank" title=点击查看详情><%=rs("goods_name")%></a></td>
<td><%=rs("goods_price")%>元</td>
<td><%=rs("goods_amount")%>个</td>
<td><%=rs("goods_date")%></td>
</tr> <tr align="center">
<td colspan="5">
<hr class=font size="0"></td>
</tr>
<%
Rs.MoveNext
Loop
End IF
%>
</table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
<tr>
<td><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?user_id=<%=user_id%>">第一页</a>]
<%if int(page_no)>1 then%>
[<a href="?user_id=<%=user_id%>&page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
<%elseif int(page_no)<=1 then%>
[<a href="?user_id=<%=user_id%>&page_no=1">前一页</a>]
<%end if%>
<%if int(page_no)<int(page_total) then%>
[<a href="?user_id=<%=user_id%>&page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
<%elseif int(page_no)>=int(page_total) then%>
[<a href="?user_id=<%=user_id%>&page_no=<%=cstr(int(page_total))%>">后一页</a>]
<%end if%>
[<a href="?user_id=<%=user_id%>&page_no=<%=page_total%>">最后一页</a>] 转到
<input name="page" type="text" class="input2" value="<%=page_no%>" size="5">
页
<input type="button" name="Submit" class=input value="转到" onclick="GoPage()"></div></td>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</TD></TR>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></TR></TBODY></TABLE>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -