<%
Sub one_year
	Dim ismember,showuser,adduser,getmember,Rs
	ismember=0
'	set rs=dvbbs.execute("select userid,username,joinDate,usersex from [Dv_user] where DateDiff(Year, joinDate, getdate())>0 order by userid")	'商业版用户请把本句前的注释去掉，并注释掉下一句
	set rs=dvbbs.execute("select userid,username,joinDate,usersex from [Dv_user] where DateDiff('yyyy', joinDate, now())>0 order by userid")
	do while not rs.eof
	If month(rs(2))=month(now()) and day(rs(2))=day(now()) then
		ismember=ismember+1
			If rs(3)="1" then
  			getmember="<font color=blue>"&rs(1)&"</font>"
		Else
			getmember="<font color=red>"&rs(1)&"</font>"
  		End if
	showuser=showuser & "<a href=dispuser.asp?id="&rs(0)&" title="""&DateDiff("yyyy", rs(2), now())&"周年注册纪念日，祝您快乐！"">"&getmember&"</a>　"
	end if
	rs.movenext
	loop
	rs.close
	set rs=nothing
	If showuser<>"" then
		adduser="<table cellpadding=3 cellspacing=1 align=center class=tableborder1><TR><Th align=left height=25><b>-=> 今日周年纪念会员（共 "&ismember&" 人）</b></Th></TR><TR><TD width=100% vAlign=middle class=tablebody1 height=25>今天是会员　"&showuser&"注册"&Dvbbs.Forum_Info(0)&"的周年纪念日，"&Dvbbs.Forum_Info(0)&"感谢这些朋友长期以来的支持：）</TD></TR></table><br>"
	Else
		adduser="<table cellpadding=3 cellspacing=1 align=center class=tableborder1><TR><Th align=left height=25><b>-=> 今日周年纪念会员（共 "&ismember&" 人）</b></Th></TR><TR><TD width=100% vAlign=middle class=tablebody1 height=25>今天没有周年纪念会员。</TD></TR></table><br>"
	End if
	response.write adduser
End Sub
%>