📄 usershop.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="inc/info.asp" -->
<!--#include file="inc/const.asp" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'FileName: usershop.asp
'Version:2.0
'UpdateTime: 2004-10-6 16:57:10
'Script Written by www.aspease.com
'=========================================================
if fval(websetting(0))=0 then
response.write webstopread
response.end
end if
if not foundmaster then
if fval(webSetting(7))=1 and ubound(OpenTime)=1 then
if IsNumeric(OpenTime(0)) and IsNumeric(OpenTime(1)) then
if Hour(Now)<fval(OpenTime(0)) or Hour(Now)>fval(OpenTime(1)) then
response.write easeopenstrstart & "<B>"&OpenTime(0)&"</B>-<B>"&OpenTime(1)&"</B>"& easeopenstrend
response.end
end if
end if
end if
end if
shopID=FVal(fstr(rst("shopid")))
sql="select * from shops,users where shopownerid=regid and shopID="&sqlval(shopID)
set rs=conn.execute(sql)
if rs.eof then
response.Write(" <script language=javascript>{alert( '"&easeerrpage&"');location.href='shop.asp';}</script>")
rs.close
response.End()
else
shopowner=rs("regusername")
shopownerid=rs("regid")
shopname=rs("shopname")
shoplogo=rs("shoplogo")
shopnotice=rs("shopnotice")
shopdescription=rs("shopdescription")
shopdeliver=rs("shopdeliver")
shopopendate=rs("shopopenDate")
rs.close
end if
sql2="select * from shopshelf where shopshelf_owner="&sqlval(shopownerid)
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
set rstj1=server.createobject("adodb.recordset")
sqltj1="select * from tuijian,auctions where tj_aucid=auc_id and tj_shopownerid="&sqlval(shopownerid)
rstj1.open sqltj1,conn,1,1
if rstj1.recordcount>0 then
if rstj1.recordcount<=3 then
idrnd=1
else
randomize
idrnd=int(rstj1.recordcount*rnd+1)
if idrnd >=rstj1.recordcount-2 then idrnd=rstj1.recordcount-3
end if
end if
response.Write("<HTML><HEAD><TITLE>" & server.htmlencode(shopname) & "--")
pvaction=FVal(rst("action"))
if pvaction<>0 then
set rstt=conn.execute("select shopshelf_name from shopshelf where shopshelf_id="&sqlval(pvaction))
response.Write server.htmlencode(rstt("shopshelf_name"))
else
Response.Write(easemenu0)
end if
Response.Write("</TITLE> ")
response.Write("<META http-equiv=Content-Type content=""text/html; charset=" & webcharset &""">")
response.Write("<META name=""keywords"" content=""" & webkeywords & """>")
response.Write("<META name=""description"" content=""" & webdescription & """>")
response.Write("<BASE onmouseover=""window.status='" & easestatus & "';return true"">")
%><!-- #include file="inc/aspeasestyle.asp" --><%
response.Write("</HEAD><BODY topmargin=""3"" leftmargin=""3""><a name=""top""></a>")
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.Write("<tr><td width=""234"" rowspan=""3"" valign=""middle"" align=""left""><a href=""" & Request.ServerVariables("PATH_INFO") & "?shopid=" & FVal(shopid) & """>")
response.Write("<img src=""")
if trim(shoplogo)<>"" then
response.Write(shoplogo)
else
response.Write("images/logo.gif")
end if
response.Write(""" width=""234"" height=""60"" border=""0""></a></td></tr>")
response.Write("<tr><td width=""526"" align=""right"" valign=""bottom"">")
response.Write(" <table width=""100%"" border=""0"" align=""right"">")
response.Write(" <tr><td width=""28%"" align=""right""></td>")
response.Write(" <td width=""72%"" align=""right""> <a href=""" & weburl & """>")
response.Write("<font color=""#FF0000"">" & easemenu0 & "</font>")
response.Write("</a> <a href=""s1.asp"">" & easemenu1)
response.Write("</a> <a href=""shop.asp"">" & easemenu2)
response.Write("</a> <a href=""reg.asp"">" & easemenu3)
response.Write("</a> ")
if user<>"" then
response.Write(" <a href=""logout.asp"">" & easemenulougou & "</a>")
else
response.Write(" <a href=""login.asp?path=" & server.urlencode(Request.ServerVariables("PATH_INFO")) &""">" & easemenu4 & "</a>")
end if
response.Write("<a href="""" class=""main3""> " & easemenu5)
if user="" then response.write easeguest else response.write user end if
response.Write("</a></td></tr>")
response.Write(" </table>")
response.Write("</td></tr>")
response.Write("<tr><td valign=""bottom"" align=""left"" style=""padding-left:10px""> ")
response.Write(" <table height=""15"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""464"" background=""images/navbar.gif"">")
response.Write(" <tr align=""center"" class=b1> ")
response.Write(" <td height=""24"" width=""92""><a href=""browse.asp"">" & easemenubuy & "</a></td>")
response.Write(" <td height=""24"" width=""92""><a href=""sell.asp"">" & easemenusell & "</a></td>")
response.Write(" <td height=""24"" width=""92""><a href=""my.asp"">" & easemenumy & "</a></td>")
response.Write(" <td height=""24"" width=""92""><a href=""bbs"">" & easemenubbs & "</a></td>")
response.Write(" <td height=""24"" width=""94""><a href=""help.asp"">" & easemenuhelp & "</a></td>")
response.Write(" </tr> ")
response.Write(" </table> ")
response.Write(" </td>")
response.Write(" </tr>")
response.Write("</table> ")
response.Write("<hr noShade color=""#CCCCCC"" height=1 size=1 width=""760"" align=""center"">")
response.Write("<table width=""760"" align=""center""><tr><td><marquee behavior=""alternate"" direction=""left"" onMouseMove=""this.stop()"" onMouseOut=""this.start()"">")
response.Write(easetopmovenews)
response.Write("</marquee></td></tr></table>")
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.Write("<tr> ")
response.Write("<td width=""5"" valign=""top"" id=""bg11""></td>")
response.Write("<td width=""191"" align=""center"" valign=""middle"" bgcolor=""#FFD727"" id=""bg11"" height=""25""><b><a href=""")
response.Write(Request.ServerVariables("PATH_INFO"))
response.Write("?shopid=")
response.Write( shopid )
response.Write(""">")
response.Write( server.HTMLEncode(shopname) )
response.Write("</a></b></td>")
response.Write("<td width=""6"" valign=""top"" id=""bg11""><img src=""images/corner_2.gif"" width=""4"" height=""4""></td>")
response.Write("<td width=""562"" align=""right"">"&easeusershopowner&"：")
response.Write(shopowner )
response.Write(" ")
response.Write(ugrade(fval(shopownerid)))
response.Write(easeusershopstarttime)
response.Write( sqldate(shopopenDate) )
response.Write(" <a href=""care_shop.asp?ownerid=")
response.Write(FVal(shopownerid))
response.Write(""" target=""_blank"">"&easeviewitemgz2&"</a></td>")
response.Write("</tr>")
response.Write("<tr> ")
response.Write("<td height=""2"" colspan=""4"" id=""bg11"" width=""762""></td>")
response.Write("</tr>")
response.Write("</table>")
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
response.Write(" <tr valign=""top""> ")
response.Write(" <td colspan=""2""> ")
response.Write(" <table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" class=border1b>")
response.Write(" <tr class=tdbg1> ")
response.Write(" <th width=""33%"">"&easeshopnewsstr&"</th>")
response.Write(" <th width=""33%"">"&easeshopdescstr&"</th>")
response.Write(" <th width=""34%"">"&easeshopdeliverstr&"</th>")
response.Write(" </tr>")
response.Write(" <tr class=tdbg2>")
response.Write(" <td width=""33%"">")
response.Write(printout(shopnotice) )
response.Write("</td>")
response.Write(" <td width=""33%"">")
response.Write(printout(shopdescription) )
response.Write("</td>")
response.Write(" <td width=""34%"">")
response.Write(printout(shopdeliver) )
response.Write("</td>")
response.Write(" </tr>")
response.Write(" </table>")
response.Write(" </td>")
response.Write(" </tr>")
response.Write("</table>")
response.Write("<table width=""760"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=""center"" class=border1b>")
response.Write(" <tr>")
i=0
if rstj1.recordcount>0 then
rstj1.move idrnd
do while not rstj1.eof
response.Write("<td width=""25%"" id=bg12><table><tr> ")
response.Write(" <td width=""76"" height=""71"" align=""center"" valign=""middle"" bgcolor=""#FFFFFF""><img src=""")
response.Write( rstj1("auc_ImageURL") )
response.Write(""" width=""71"" height=""50""></td>")
response.Write(" <td width=""326"" valign=""top"" bgcolor=""#FFFFFF""><a href=""viewitem.asp?aucid=")
response.Write( FVal(rstj1("auc_id")) )
response.Write(""" target=""_blank"">")
response.Write( rstj1("auc_itemtitle") )
response.Write("</a><br>")
response.Write(" ")
response.Write( rstj1("tj_title") )
response.Write("<br>"&easecurrentbid&"：")
response.Write( FVal(rstj1("auc_currentbid")) )
response.Write(" "&easegoodsleftnum&"：")
response.Write( FVal(rstj1("auc_numleft")) )
response.Write(" <a href=""viewitem.asp?aucid=")
response.Write( FVal(rstj1("auc_id")) )
response.Write("#chujia"" target=""_blank"">购买</a> </td></tr></table></td>")
rstj1.movenext
i=i+1
if i=3 or rstj1.eof then exit do
loop
end if
response.Write(" </tr>")
response.Write("</table>")
response.Write("<table width=""760"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=border1y>")
response.Write(" <form name=""form2"" method=""post"" action=""search.asp"" onsubmit=""return isok(this)"">")
response.Write("<tr class=tdbg1> ")
response.Write("<td width=""130"" height=""20"" align=center>"&easeusershopsort&"</td>")
response.Write("<td width=""645"" align=""right"">"&easeusershopsearch)
response.Write("<input name=""name1"" type=""text"">")
response.Write("<input type=""hidden"" name=""ownerid"" value=""")
response.Write( FVal(shopownerid) )
response.Write(""">")
response.Write("<input type=""submit"" name=""submit"" value=""")
response.Write(searchbtn4)
response.Write(""">")
response.Write("</td>")
response.Write("</tr>")
response.Write("</form>")
response.Write("<tr class=tdbg2> ")
response.Write("<td align=""center"">")
response.Write("<a href=""usershop.asp?shopid=")
response.Write(FVal(shopid))
response.Write("&action=all"">"&easeallgoods&"</a>")
response.Write("</td>")
response.Write("<td style=""padding-left:10px"">")
i=0
while not rs2.eof
i=i+1
response.Write("<a href=""usershop.asp?shopid=")
response.Write(FVal(shopid))
response.Write("&action=")
response.Write( FVal(rs2("shopshelf_id")) )
response.Write(""">")
response.Write( rs2("shopshelf_name") )
response.Write("</a> ")
if i mod easeusershopshowcatnumrow=0 then response.write("<br>")
rs2.movenext
wend
response.Write("</td>")
response.Write("</tr>")
response.Write("</table>")
if pvaction<>0 then
sqls ="select * from upshelf,auctions where up_aucid=auc_id and auc_numleft >0 and auc_ended='N'"
sqls=sqls&" and up_shelfid="&sqlval(pvaction)
sqls=sqls&" and up_shelfowner="&sqlval(shopownerid)&" order by auc_closedate desc"
else
sqls = "select * from auctions where auc_itemOwner="&fval(shopownerid)& " order by auc_closedate desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sqls,conn,1,1
totalcs=rs.recordcount
response.Write showallitems(20)
response.write fpage("usershop.asp",pvaction&"&shopid="&shopid,"","","")
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: byhucn@126.com,lzz9812@163.com
'=========================================================
'
'FileName: usershop.asp
'Version:2.0
'UpdateTime: 2004-10-6 16:57:10
'Script Written by www.aspease.com
'=========================================================%>
<script language="javascript">
<!--
function isok(theform)
{
if (theform.name1.value=="")
{
alert("<%=insearchbox%>！");
theform.name1.focus();
return (false);
}
return (true);
}
-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -