Visual Basic 6. Руководство разработчика



         

Методы объекта - часть 4


Next

document.write "<TR>"

weekDays=l

while month(thisdate)=imonth

document. write "<TD ALIGN=CENTERXFONT SIZE=3>" &    nextday & "</TD>"

nextday=nextday+l

weekDays=weekDays+1

If weekDays>7 then

WeekDays=l

document.write "<TR>"

End If

thisdate=DateSerial(year(date), imonth, nextday)

wend

document.write "</TABLE>"

document.write "</CENTER>"

</SCRIPT>

</HEAD>

<BODY>

</BODY>

</HTML>

Сначала сценарий отображает дни недели как заголовки таблицы.

document.write _

"<TDXB>Sun<TDXB>Mon<TDXB>Tue<TDXB>Wed<TDXB>Thu<TDXB>Fri<TDXB>Sat"

Затем программа с помощью цикла For...Next отображает дни первой недели. Первая неделя месяца часто неполная, поэтому первые ячейки в таблице — пустые. Этот цикл обходит семь дней недели до первого дня месяца.

После того, как первый день месяца найден, программа создает ячейки, в которые помещает значение переменной nextday, увеличиваемое с каждой итерацией (от 1 до 31). Следующая строка создает ячейку с номером.

"<TD ALIGN=CENTER><FONT SIZE=3>" & nextday & "</TD>"

Это HTML-код, и любые ссылки на переменные заменяются фактическими значениями переменной nextday. Например, если значение переменной nextday равно 24, то в документ вставляется следующая строка.

<TD ALIGN=CENTER><FONT SIZE=3>24</TD>

После отображения первой недели календаря программа выводит следующие недели. Все они полные, кроме последней, конечно.

Цикл While...Wend обрабатывает оставшиеся дни месяца. При каждой итерации переменная nextday

увеличивается на один день, и цикл продолжается до конца месяца.

Можно преобразовать любой день месяца в гиперсвязь, которая указывает на файл на сервере. Если необходимо поддерживать самостоятельный документ на сервере в зависимости от дня месяца, то нужно изменить приложение, чтобы каждый день был представлен в виде гиперсвязи к файлу, соответствующему дате. Вместо того чтобы выводить номер дня, вставьте соответствующие <А> теги для преобразо­вания номера дня в гиперсвязь. Например, если текущее значение переменной nextday равно 24, то следующая строка VBScript




Содержание  Назад  Вперед