bjxfoot.asp

来自「asp的网上卖东西的..看看还可以的吧」· ASP 代码 · 共 64 行

<br>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
  <TBODY>
    <TR>
      <TD  align=left vAlign=top class=b><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0"  bordercolor="#CCCCCC">
  <td width="250"  rowspan="2"  align="center"><img src="images/top/logo.gif"> </td>
      <%set rs=server.CreateObject("adodb.recordset")
rs.open "select gongzuoshijian from BJX_config",conn,1,1
%>
      <%								
function todays()
dim tmprs
tmprs=conn.execute("Select Count(bookID) from BJX_goods Where year(adddate)=year(date()) and month(adddate)=month(date()) and day(adddate)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
      <%
if session("over")="" then
    jsqtoday=1
    if application("dntime")<=cint(hour(time())) then
	conn.execute("update BJX_Dept set jsqtoday=jsqtoday+1")
	tmprs=conn.execute("Select jsqtoday from BJX_Dept")
	jsqtoday=tmprs(0)
    else
	conn.execute("update BJX_Dept set jsqtoday=1")
	tmprs=conn.execute("Select jsqtoday from BJX_Dept")
	jsqtoday=tmprs(0)
    end if
    application("dntime")=cint(hour(time()))
    set tmprs=nothing
    
	conn.execute("update BJX_Dept set jsq=jsq+1")
	tmprs=conn.execute("Select jsq from BJX_Dept")
	jsq=tmprs(0)
    set tmprs=nothing
    
    session("over")=true
else
    jsqtoday=1
	tmprs=conn.execute("Select jsqtoday from BJX_Dept")
	jsqtoday=tmprs(0)
	
	tmprs=conn.execute("Select jsq from BJX_Dept")
	jsq=tmprs(0)
    set tmprs=nothing
end if
%>
      <td><%dim endtime
endtime=timer()
response.Write "　<a href=index.asp>购物首页</a> | <a href=about.asp?action=about >关于我们</a> | <a href=http://www.gzshopping.com >bjxshop</a> | <a href=about.asp?action=lxwm >业务联系</a> | <a href=help.asp?action=shiyongfalv >版权声明</a> | <a href=help.asp?action=fukuan >付款方式</a> | <a href=BJXbook.asp >留言/建议/投诉</a>"
%>
      </td>
  </tr><tr>
    <td valign="top">
	<%=bjxcopyright%></td>
  </tr>
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="shopkefu.asp"-->