Buscando el código HTML para el calendario...

lt;spangt;

lt;iframe src='.../css_test/rl.asp' width='200' height=' 170' marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='No'gt;lt;/iframegt;

lt;/spangt ;

------

lt;@LANGUAGE="VBSCRIPT" CODEPAGE="936"gt;

lt;! DOCTYPE html PUBLIC "-//W3C ///DTD XHTML 1.0 Transicional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"gt;

lt;html xmlns="http://www.w3.org/1999/xhtml"gt;

lt;headgt;

lt;meta http-equiv="Contenido -Type" content="text/html; charset=gb2312" /gt;

lt;title gt; Documento sin títulolt;/titlegt;

lt;/headgt;

lt;bodygt;

lt;

Dim currdate, currday, currfirstweek, currDayNum.gridnum, días, mesArr, I

currdate=request .QueryString("fecha").

QueryString("fecha")

Si currdate="" entonces currdate=Fecha()

currfirstday= FormatdateTime(Año(fecha actual)amp;"-"amp;Mes(fecha actual) amp; "-01")'Formatear el primer día del mes actual

currfirstweek=Weekday(currfirstday)-1'Obtener el día de la semana en el que es el primer día del mes actual

currDayNum =DateDiff("d", currfirstday, DateAdd("m", 1, currfirstday))'Obtener el número total de días del mes actual

gridnum=currfirstweek currDayNum'Obtener la cuadrícula número

Si gridnum Mod 7lt;gt;0 Entonces gridnum=((gridnum\7) 1)*7

monthArr=", enero, febrero, marzo, abril, mayo, Junio, julio, agosto, septiembre, octubre, noviembre, diciembre"

mesArr =split(mesArr, ","")

gt;

lt; tabla border="1"gt;

lt;trgt;

lt;td align="center"gt;lt;a href=""gt;lt.lt;/agt ;lt;/tdgt;

lt;td align="center" colspan="5"gt;lt;=MonthArr(Mes(fecha actual))gt;lt;=Año(fecha actual) lt; ;/tdgt;

lt;td align="center"gt;lt;a href=""gt;gt;gt;lt;/agt;lt;/tdgt;

lt;/trgt;

lt;trgt;

lt;trgt;

lt;td align="center"gt;daylt;

lt;td align="center"gt;Ilt;/tdgt;

lt;td align="center"gt;IIlt;/tdgt;

lt; td align="center"gt ;三lt;/tdgt;

lt;td align="center"gt;fourlt;/tdgt;

lt;td align="center "gt;fivelt; /tdgt;

lt;td align="center"gt;sixlt;/tdgt;

lt;/trgt;

lt ;trgt;

lt;

For I=1 To gridnum

días=I- currfirstweek

If Igt; ;=currfirstweek currDayNum Entonces

Si días=Día(Ahora()) Y FormatdateTime(Now(),2)= fecha actual Entonces<

/p>

respuesta. Write("lt;td align=center bgcolor=""#CCCCCC""gt;"days amp;"lt;/tdgt;")

Else

Respuesta Write(. "lt;td align=centergt;"amp; días amp;"lt;/tdgt;")

Finalizar si

Si no

Respuesta Escribir(. "lt;td align=centergt;?lt;/tdgt;")

Finalizar si

SI I Mod 7 = 0 Entonces Response.Write("lt;/trgt ;lt ;trgt;")

Siguiente

gt;

lt;/trgt;

lt;/trgt;

lt ;/tablegt;

lt;/bodygt;

lt;/htmlgt;

lt;/htmlgt;

lt ;/ htmlgt;