copyright.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

<TABLE width=778 border=0 align=center cellPadding=0 cellSpacing=0 background="images/content.gif">
  <TBODY>
    <TR>
      <TD class=b width=10>　</TD>
      <TD width=761 align=left vAlign=top class=b><table width="100%" align="center" border="0" cellspacing="0" cellpadding="0"  bordercolor="#CCCCCC">
  <td width="180" height="110"  align="center" bgcolor="#FFFFFF"><img src="images/slogo.gif"> </td>
      <%set rs=server.CreateObject("adodb.recordset")
rs.open "select gongzuoshijian from shop_config",conn,1,1
%>
      <%								
function todays()
dim tmprs
tmprs=conn.execute("Select Count(bookID) from shop_books 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 dept set jsqtoday=jsqtoday+1")
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
    else
	conn.execute("update dept set jsqtoday=1")
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
    end if
    application("dntime")=cint(hour(time()))
    set tmprs=nothing
    
	conn.execute("update dept set jsq=jsq+1")
	tmprs=conn.execute("Select jsq from dept")
	jsq=tmprs(0)
    set tmprs=nothing
    
    session("over")=true
else
    jsqtoday=1
	tmprs=conn.execute("Select jsqtoday from dept")
	jsqtoday=tmprs(0)
	
	tmprs=conn.execute("Select jsq from dept")
	jsq=tmprs(0)
    set tmprs=nothing
end if
%>
      <td bgcolor="#EDF0DB"><%dim endtime
endtime=timer()
response.Write "　<a href=index.asp>购物首页</a> | <a href=pay.asp>在线支付</a> |  <a href=about.asp?action=about >关于我们</a> |  <a href=about.asp?action=lxwm >业务联系</a> | <a href=help.asp?action=shiyongfalv >版权声明</a> | <a href=help.asp?action=fukuan >付款方式</a> | <a href=gbook.asp >留言建议</a> | <a href=help.asp >在线帮助</a> <br>"
response.Write "　公司地址："&dizhi&"　邮政编码："&youbian&"<br>"
response.Write "　客服邮箱：<a href=mailto:"&webemail&">"&webemail&"</a>　客服电话："&dianhua&"<br>　"
response.write trim(rs("gongzuoshijian"))
response.Write "　Powered by:<a href=http://www.bobo-tech.com>BOBO-Tech 博搏科技</a> <br>　版权所有、肆意抄袭、模仿必究 &copy; 2006 "&copyright
response.Write "　页面执行时间："&FormatNumber((endtime-startime)*1000,3)&"  <a href=admin/login.asp target=_blank>毫秒</a>"
rs.close
set rs=nothing%></td>
  </tr>
      </table></TD>
      <TD class=b width=10></TD>
    </TR>
  </TBODY>
</TABLE>