% rsv = Request.ServerVariables("REMOTE_ADDR") years=year(date()) months=month(date()) set rs=server.CreateObject("ADODB.Recordset") rs.open "select hits from riqi",conn,0,1 hits=rs(0) rs.close months2=array(31,28,31,30,31,30,31,31,30,31,30,31) if (years mod 4)=0 then months2(1)=29 dates=years & "-" & months & "-" & "1" start=weekday(cdate(dates)) k=1 l=months2(months-1) %>
|
|
|
佛山电视台 版权所有 电话/传真:0757-3381218 Email:webmaster@fstv.com.cn 佛山网站公安备案编号:200301A0001 |