闲置物品免费交易的平台

				
				
				   
				     				endtime=timer()
				response.Write "　购物首页 | 关于我们 | 商城动态 | 业务联系 | 版权声明 | 付款方式 | 留言/建议/投诉 | 技术论坛"
				response.Write "　公司地址："&dizhi&"　邮政编码："&youbian&""
				response.Write "　客服邮箱："&webemail&"　客服电话："&dianhua&"　"
				response.write trim(rs("gongzuoshijian"))
				response.Write "　页面执行时间："&FormatNumber((endtime-startime)*1000,3)&" 毫秒"
				response.Write "　程序核心：拍卖系统　版权所有 © 2005-2008 "©right
				
				rs.close
				set rs=nothing%> 
				    				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")					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
				%>