| |
联系方式
地址：山东日照昭阳路
电话：0086-633-3969896,3969956,3969976,8568199
传真：0086-633-3969908
http://www.cnoceanwood.com
Email:info@cnoceanwood.com
|
|
|
<%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
%>
地址：山东日照昭阳路
电话：0086-633-3969896,3969956,8568199,3969976
传真：0086-633-3969908
邮箱：info@cnoceanwood.com
http://www.cnoceanwood.com
|
|
