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;