Кода -копия выглядит следующим образом:
<%
«Пожалуйста, сохраните информацию этого заявления при пересылке, это утверждение не повлияет на вашу скорость!
'*****************************
'Разработчики: Сман, Netfetch
'Дата разработки: 2005-11-11
'Номер версии: ver0.1.1
«Официальный веб -сайт: http: //www.sman.cnhttp: //www.ad0.cn
«Электронная почта: [email protected]@163.com
'Daily Online QQ: 1934129332050450
«Заявление об авторском праве: нет авторских прав, пиратство не расследовано, исходный код раскрывается, пиратская версия приветствуется, и вы можете перейти на официальный веб -сайт, чтобы обратиться за поддержкой.
«Если есть какие -либо улучшения, пожалуйста, отправьте или отзыв о копии на [email protected], [email protected], спасибо!
«Подробные инструкции или примеры см. В приложении загрузки или свяжитесь с официальным веб -сайтом или по электронной почте, чтобы загрузить!
'***************************************************************
ClassDateFunex
Частный_
Privatefirstweekofyear_
Privatefirstdayofweek_
Privatesubclass_initialize ()
d_ = date () 'Текущая дата по умолчанию
Первый день ofweek_ = 2'vbmonday
Firstweekofyear_ = 1 'начинается с недели 1 января.
Заканчивая
'Свойство Установка даты
Publicpropertyletletdate (значение)
OnerRorResumenext
Ifisnumeric (значение) тогда
значение = cint (значение)
Iflen (значение) <3thenvalue = "20" & right ("0" & value, 2)
value = value & "-1"
Эндиф
D_ = CDATE (значение)
EndProperty
'Properties Firstweekofyear первой недели каждого года (для подробностей см. В Руководстве VBS)