谁能告诉我这段源码中的时间在哪儿?时间应该是2005-6-22告诉我怎么把它改成2005-8-13 谢谢!源码如下:<!--#include file=" p"--><%mode = LCASE(Request("mode"))gif = Request("gif")SET rs = Server.CreateObject("ADODB.Recordset")Rs.Open "Select * From counters" ,conn,1,3if Request.Cookies("IsFirst")=fail thenLASTIP = RS("LASTIP")NEWIP = rvervariables("REMOTE_ADDR")IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("BMONTH") = RS("MONTH") RS("MONTH") = 1 RS("TODAY") = 1 RS.UpdateELSE IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN RS("DATE") = DATE() RS("YESTERDAY") = RS("TODAY") RS("TODAY") = 1 RS.Update END IFresponse.Cookies("IsFirst")=trueEND IFRS("LASTIP")=NEWIPRS("TOTAL") = RS("TOTAL") + 1RS("TODAY") = RS("TODAY") + 1RS("MONTH") = RS("MONTH") + 1RS.UpdateSession("UserID")=RS("TOTAL")end ift=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))k=0i=1y=0Do While application("zxip"&i)<>"" if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then application("zxsj"&i)=t y=1 end if if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then k=k+1 else if k>0 then application.lock application("zxip"&i-k)=application("zxip"&i) application("zxsj"&i-k)=application("zxsj"&i) application.unlock end if end if if k>0 then application.lock application("zxip"&i)="" application.unlock end if i=i+1loopif y=0 then application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") application("zxsj"&i)=telse i=i-1end ifonline=iN = NowD1 = rs("inputdate") ' 开始统计日期(月/日/年)D2 = DateValue(N)D3 = DateDiff("d", D1, D2)response.write "document.write('<a title="" ※ <b>来 访 IP 统 计</b> ※ 开始统计时间："&D1&""response.write " 全部访问量："GCounter( RS("TOTAL") )response.write " 本月访问量："GCounter( RS("MONTH") )response.write " 上月访问量："GCounter( RS("BMONTH") )response.write " 今日访问量："GCounter( RS("TODAY") )response.write " 昨日访问量："GCounter( RS("YESTERDAY") )N = NowD2 = DateValue(N)D1 = rs("inputdate") ' 开始统计日期(月/日/年)response.write " 共运行了："GCounter( DateDiff("d", D1, D2) )response.write " 天"D3 = DateDiff("d", D1, D2)response.write " 平均每天："GCounter( RS("TOTAL")\D3 )response.write " 个"rs.Closeresponse.write " 当前在线："GCounter(online)+0response.write " 人"" style=""cursor:hand;"">在线统计</a>');"Function GCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" & Mid(S, i, 1) & "" Next response.write GEnd Function%>
