<%
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select today,yestoday,allcount,sj1,shuaxin,ys from [Lebi_count]"
Rs.open Sql,Conn,1,3
if rs(3)=date() and rs(4)=0 then
		rs(0)=rs(0)+1
		rs(2)=rs(2)+1
Elseif rs(3)=date() and request.cookies(cookiesname)("IPAddress")="" and rs(4)=1 then
		rs(0)=rs(0)+1
		rs(2)=rs(2)+1
		response.cookies(cookiesname)("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
		'Response.Cookies(cookiesname)("Time").expires=date+1
Elseif  rs(3)<>date() then
		rs(1)=rs(0)
		rs(0)=1
		rs(2)=rs(2)+1
		rs(3)=date()
		response.cookies(cookiesname)("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
		'Response.Cookies(cookiesname)("Time").expires=date+1
End if
rs.update
js_today = rs(0)
js_yeday = rs(1)
js_Alday = rs(2)
Js_Ys = rs(5)
rs.close:set rs=Nothing
If Js_Ys=1 Then
		Html_count = replace(Lebi_word(70),"[Alday]",js_alday)
ElseIf Js_Ys=2 Then
		Html_count = replace(replace(replace(Lebi_word(69),"[today]",js_today),"[yeday]",js_yeday),"[Alday]",js_alday)
End If
Response.Write("document.write('"& Html_count &"');")
%>