initialization.asp

这是一个ASP+VBScript+Access开发的网上家园源程序

<!--#include file="connect.asp"-->
<%
	set rs=server.createobject("adodb.recordset")
	sql="select * from information"
	rs.open sql,objCnn,1,3
    rs.movefirst 
	
	do while not rs.eof

	MonthDate=trim(rs("MonthDate")) 
	if datediff("M",MonthDate,date)>=1 then
	SQL="update information set MonthDate=Date(), MCount=0 where id ="&rs("ID")
    objCnn.execute sql
	end if
	
    rs.movenext 
	loop
	rs.close
%>