copyright.asp

来自「酷购网上商城~~ 完整的asp源代码.通过少许的改动就可以让你拥有自己的商城~~」· ASP 代码 · 共 128 行

<%
sql="select QQ,weblogo from shop_config"
set tmprs=conn.execute(sql)
if not tmprs.eof and not tmprs.bof then
	tmpStr=tmprs("qq")
	weblogo=tmprs("weblogo")
	tmpStr=replace(tmpStr,","," ")
end if
tmprs.close
%>
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0">
<td width="208" height="80" class="table-you" align="center"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center"><img src="<%=weblogo%>" width="160" height="60"></td>
  </tr>
</table>
</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 width="552"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20"><%								
function dingdan()
dim tmprs
tmprs=conn.execute("Select Count(actionid) from shop_action Where year(actiondate)=year(date()) and month(actiondate)=month(date()) and day(actiondate)=day(date())")
dingdan=tmprs(0)
set tmprs=nothing
if isnull(dingdan) then dingdan=0
end function

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
%>
      　今日新增订单数：<font color=red><%=dingdan()%></font> 
      - 今日新加商品数：<font color=red><%=todays()%></font> 
      - 今日访问：<font color=red><%=jsqtoday%></font> 
      - 访问总数：<font color=red><%=jsq%></font> </td>
  </tr>
</table>
<%dim endtime
endtime=timer()
response.Write "　公司地址："&dizhi&"　邮政编码："&youbian&"<br>"
response.Write "　<img src='image/mail.gif' align='absmiddle'><a href=mailto:"&webemail&">"&webemail&"</a>　<img src='image/tel.gif' align='absmiddle'> TEL："&dianhua&""
response.Write "　<img src='image/qq.gif' align='absmiddle'> QQ:"&tmpStr&"<br>"
response.Write "　酷购商城版权所有 未经许可 严禁抄袭 &copy; 2005 "&copyright
response.Write "　<script language='javascript' src='count/count.asp'></script>"
rs.close
set rs=nothing%>
</td>
</tr>
</table><!--#include file="kefu.asp"-->