copyright.asp

php 语言写的c2c商城网站程序

<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<td width="180" height="110" class="table-you" align="center"><img src="images/logo.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>
<table width="577" height="98" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="494" rowspan="2"><%dim endtime
endtime=timer()
response.Write "　<a href=index.asp>购物首页</a> | <a href=about.asp?action=about target=_blank>关于我们</a> | <a href=zhuanti.asp target=_blank>商城动态</a> | <a href=about.asp?action=lxwm target=_blank>业务联系</a> | <a href=help.asp?action=shiyongfalv target=_blank>版权声明</a> | <a href=gbook.asp target=_blank>留言/建议/投诉</a> | <a href=reg_shang.asp target=_blank>申请开店</a><br>"
response.Write "　公司地址："&dizhi&"　邮政编码："&youbian&"<br>"
response.Write "　客服邮箱：<a href=mailto:"&webemail&">"&webemail&"</a>　客服电话："&dianhua&"<br>　"
response.write trim(rs("gongzuoshijian"))
response.Write "<br>"

response.Write "　版权所有 &copy; 2004 "&copyright
response.Write "　 页面执行时间："&FormatNumber((endtime-startime)*1000,3)&" 毫秒"
rs.close
set rs=nothing%></td>
    <td width="83"><div align="center"><img src="images/biaoshi.gif" width="40" height="48"></div></td>
  </tr>
  <tr>
    <td><div align="center"><img src="images/galogo.gif" width="30" height="40"></div></td>
  </tr>
</table></td>
</tr>
</table>