📄 shop_info.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Inc/SafeRequest.asp"-->
<!--#include file="inc/shopstar.asp"-->
<!--#include file="inc/GetShopZu.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?user_id=<%=request.QueryString("user_id")%>&page_no="+ page.value;
}
//-->
</SCRIPT>
<%
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 [user_info] 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>
<LINK href="style.css" type=text/css rel=stylesheet>
</head>
<body>
<TABLE width="760" class=page border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height="20">
<TBODY>
<TR>
<TD align=middle width=25 background="img/bg.gif" height="25">
<img border="0" src="images/news.gif" width="15" height="15"></TD>
<TD background="img/bg.gif" height="25">欢迎光临 <font color="#FF0000"><%=shop_name%></font> 经营范围：<font color="#FF0000"><%=GetShopZu(zu)%></font></TD>
<TD align="right" background="img/bg.gif" height="25">
该店铺已被访问
<font color="#FF0000"><%=shop_hits%> </font> 次
<a href="Tous.asp?user_ID=<%=user_ID%>">投诉此店铺</a></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=760 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 color="#008000"><%=user_realname%></font></a> <a target="_blank" title="给我发消息" href="L_user.asp?pname=<%=user_name%>">
<img border="0" src="img/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><%=user_qq%> <a target=blank href=http://wpa.qq.com/msgrd?V=5&Uin=<%=user_qq%>&Site=jjyy店铺&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=user_qq%>:5 alt="点击这里给我发消息" width="61" height="15"></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=760 align=center border=0>
<TBODY>
<TR>
<TD width=760 height=2 bgcolor="#dfdfdf"></td></TR></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR>
<TD width=760>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width=200>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=180 cellSpacing=1
cellPadding=1 width="100%" border=0 >
<TBODY>
<TR >
<TD align=middle height="23" bgcolor="#EFEFEF"><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="100%" border=0 >
<TBODY>
<TR >
<TD align=middle bgcolor="#EFEFEF" height="24"><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 [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="100%" border=0 >
<TBODY>
<TR >
<TD align=middle bgcolor="#EFEFEF"><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 [link] 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=shoplinkinfor.asp?ID=<%=tim4("ID")%> 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 vAlign=top width=2 bgcolor="#dfdfdf"> </td>
<TD vAlign=top>
<TABLE cellSpacing=1 cellPadding=2
width="100%" border=0 id="table1" >
<TBODY>
<TR >
<TD align=middle bgcolor="#EFEFEF"><B>本店最新商品</b></TD></TR>
<TR >
<TD align="center" vAlign=top>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from goods_info where user_id="&request("user_id")&""
rs.open sql,conn,1,3
conn.execute("update user_info set shop_hits=shop_hits+1 where user_id="&request("user_id")&"")
%>
<TABLE cellSpacing=1 cellPadding=0 width="550" border=0 bgcolor="#dfdfdf" id="table3">
<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 color="#008000">商品图片</font></td>
<td height="21"><font color="#008000">商品名称</font></td>
<td width="12%" height="21"><font color="#008000">商品价格</font></td>
<td width="12%" height="21"><font color="#008000">商品数量</font></td>
<td width="12%" height="21"><font color="#008000">有效期</font></td>
<td width="22%" height="21"><font color="#008000">上架时间</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_long")%>天</td>
<td><%=rs("goods_date")%></td>
</tr> <tr align="center">
<td colspan="6">
<hr color="#C0C0C0" 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"-->
</TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
<%
conn.Close
Set conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -