📄 shophead.asp

📁 .　缓存处理技术
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="sysconfig.asp"-->
<%

Dim SId,ShopStatus
sid=CheckStr(Trim(Rst("shopid")))
if Not IsNum(Sid) then
   response.write "<script language='javascript'>alert('对不起，没有找到此店铺或者还未通过审核');this.location.href='../index.asp';</script>"
   response.end
end if

Dim RsShop
set rsshop=server.createobject("ADODB.recordset")
rsshop.open "select * from shops where shopcheck=1 and shopid="& sid,conn,1,1
if rsshop.Eof then
   response.write "<script language='javascript'>alert('对不起，没有找到此店铺或者店铺未通过审核，请返回！');this.location.href='../index.asp';</script>"
   response.end
else
   if DateDiff("s",rsshop("shopclosetime"),now())>0 then
      sql="update shops set shopstatus=0 where shopid="& sid
      conn.execute(sql)
   end if
   sql="update shops set shopclick=shopclick+1 where shopid="& sid
   conn.execute(sql)
   ShopStatus=RsShop("ShopStatus")
end if


dim rsshopmaster
set rsshopmaster=server.createobject("adodb.recordset")
sql="select regid,regusername,degrade,credit,regstate,regcity,userqq,BBR_UserQQSkins,BBR_UserQQMsg,regemail,regtel from users where regid="& rsshop("shopownerid")
rsshopmaster.open sql,conn,1,1
if rsshopmaster.eof then
   response.write "<script language='javascript'>alert('对不起，没有找到此用户！');this.location.href='../index.asp';</script>"
   response.end
end if


    Dim UserLoginStatus
    if Request.Cookies(Super_User)("UName")="" then
       UserLoginStatus="来宾|||[ <a href=""../login.asp"">登录</a> | <a href=""../Reg.asp"">注册</a> ]"
    else
       UserLoginStatus=Request.Cookies(Super_User)("UName") & "|||[ <a href=""../Login.asp"">重新登录</a> | <a href=""../logout.asp"">退出</a> ]"
    end if
    UserLoginStatus=Split(UserLoginStatus,"|||")

    Dim DispCurTime

    Dim TempTime,TempTime_H,TempTime_M,TempTime_S
    TempTime=Now()
    TempTime_H=Hour(TempTime)
    TempTime_M=Minute(TempTime)
    TempTime_S=Second(TempTime)
    if TempTime_H<10 then TempTime_H="0" & TempTime_H
    if TempTime_M<10 then TempTime_M="0" & TempTime_M
    if TempTime_S<10 then TempTime_S="0" & TempTime_S
    DispCurTime=Year(TempTime) &"年"& Month(TempTime) &"月"& Day(TempTime) &"日 "
    DispCurTime=DispCurTime&TempTime_H &":"& TempTime_M &":"& TempTime_S
%>
<html>
<head>
<title><%=rsshop("shopname")%>---<%=SYS_WEBNAME%>用户店铺</title>
<meta http-equiv="Content-Type" content="text/html">
<link rel="stylesheet" type="text/css" href="<%=Skins_Folder%>/<%=Skins_Css%>">
</head>
<body topmargin="0" leftmargin="0" Rightmargin="0">

<table border="0" cellpadding="0" cellspacing="0" width=<%=Sys_BodyCenterWidth%> align="center">
<form name=searchform method=post action="Search_Auction.asp?shopid=<%=sid%>">
  <tr height=80>
   <td width=268 align=Left><img src="../Images/BBRLogo.gif" border="0" alt="<%=SYS_WEBNAME%>"></td>
   <td align=center>
    <table cellpadding=0 cellspacing=1 width=96% align=center border=0>
       <tr>
	<td width=100% height=38 colspan=5 align=Right>
	<a href="../index.asp" Style="color: #666666">返回首页</a> &nbsp;
	<a href="../Search_Shop.asp" Style="color: #666666">用户店铺</a> &nbsp;
	<a href="../Search.asp" Style="color: #666666">搜索中心</a> &nbsp;
	<a href="../BBRHome.asp" Style="color: #666666">个人面板</a> &nbsp;
	</td>
       </tr>
       <tr>
	<td width=100 align=center>
     	<table cellpadding=0 cellspacing=1 width=88 align=left border=0 class=menutdbg_1>
         <tr height=25>
	  <td width=3 align=center></td>
	  <td align=center class=td><a href="index.asp?ShopID=<%=SID%>">店铺首页</a></td>
         </tr>
        </table>
	</td>
	<td width=100 align=center>
     	<table cellpadding=0 cellspacing=1 width=88 align=left border=0 class=menutdbg_1>
         <tr height=25>
	  <td width=3 align=center></td>
	  <td align=center class=td><a href="Search.asp?ShopID=<%=SID%>">搜索商品</a></td>
         </tr>
        </table>
	</td>
	<td width=100 align=center>
     	<table cellpadding=0 cellspacing=1 width=88 align=left border=0 class=menutdbg_1>
         <tr height=25>
	  <td width=3 align=center></td>
	  <td align=center class=td><a href="ShopIntroduce.asp?ShopID=<%=SID%>">店铺简介</a></td>
         </tr>
        </table>
	</td>
	<td width=100 align=center>
     	<table cellpadding=0 cellspacing=1 width=88 align=left border=0 class=menutdbg_1>
         <tr height=25>
	  <td width=3 align=center></td>
	  <td align=center class=td><a href="Credit.asp?ShopID=<%=SID%>">诚信与安全</a></td>
         </tr>
        </table>
	</td>
	<td width=100 align=center>
     	<table cellpadding=0 cellspacing=1 width=88 align=left border=0 class=menutdbg_1>
         <tr height=25>
	  <td width=3 align=center></td>
	  <td align=center class=td><a href="Help.asp?ShopID=<%=SID%>">帮助</a></td>
         </tr>
        </table>
	</td>
       </tr>
    </table>
  </tr>
</form>
</table>

      <TABLE cellSpacing=0 cellPadding=0 width=<%=Sys_BodyCenterWidth%> align=center border=0>
  	<TR>
	  <td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
	</TR>
  	<TR>
	  <td colspan=3 width=100% height=23 align=left background="<%=SKins_Folder%>/GrayBg.gif">
	  <table cellpadding=0 cellspacing=0 width=99% align=center border=0>
	   <tr>
	    <td width=50% align=left> 欢迎你：<Span Class=Fontcolor_2><%=UserLoginStatus(0) &"</Span>&nbsp;"& UserLoginStatus(1)%> </td>
	    <td width=50% align=right>现在时间：<%=DispCurtime%></td>
           </tr>
          </table>
	  </td>
	</TR>
  	<TR height=1>
	  <td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
	</TR>
      </Table>
<%
if ShopStatus=0 then
%>
<!-- 广告位置 -->
<TABLE cellSpacing=0 cellPadding=0 width=<%=Sys_BodyCenterWidth%> align=center border=0>
  <TR>
   <td width=100% height=2 align=center> </td>
  </TR>
  <TR>
   <td width=100% valign=top class=td><script src="../js/Ad_Cnbbr_8.js" type="text/javascript"></script></td>
  </TR>
  <TR>
   <td width=100% height=2 align=center> </td>
  </TR>
</TABLE>
<%
ENd if


Function DispShopLeft()
  DispShopClass
  Response.Write"<br>"& Vbcrlf
  if ShopStatus>0 or Sys_ShopVip=0 then DispShopLinks
  Response.Write"<br>"& Vbcrlf
  if ShopStatus=0 or Sys_ShopVip=0 then DispShopAd
End Function

Function DispShopNews()

  With Response
	.Write"<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=MainMenu_Right>"& Vbcrlf
	.Write"<tr>"& Vbcrlf
	.Write"  <td class=td valign=top>"& Vbcrlf
	.Write"    <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">"& Vbcrlf
	.Write"     <tr height=26>"& Vbcrlf
	.Write"      <td width=6 class=MainMenu_left></td>"& Vbcrlf
	.Write"      <td align=left class=MainMenu_Right>&nbsp;<b>本店新闻</b></td>"& Vbcrlf
	.Write"     </tr>"& Vbcrlf
	.Write"    </table>"& Vbcrlf

	.Write"    <table width=""98%"" align=""Center"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""80"">"& Vbcrlf
	.Write"     <tr>"& Vbcrlf
	.Write"      <td height=188>"& Vbcrlf

dim rsnew
set rsnew=server.createobject("adodb.recordset")
sql="select * from news where newsauthor="& rsshopmaster("regid")
rsnew.open sql,conn,1,1
if rsnew.eof then
response.write"<center>还没有新闻</center>"
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -