Die Codekopie lautet wie folgt:
<%
„Bitte behalten Sie diese Anweisungsinformationen bei der Weiterleitung auf, diese Aussage hat keine Auswirkungen auf Ihre Geschwindigkeit!
'**************************
Entwickler: Sman, NetFetch
'Entwicklungsdatum: 2005-11-11
'Versionsnummer: Ver0.1.1
'Offizielle Website: http: //www.sman.cnhttp: //www.ad0.cn
'E -Mail: [email protected]@163.com
Täglich Online QQ: 1934129332050450
'Copyright -Erklärung: Es gibt kein Urheberrecht, es wird keine Piraterie untersucht, der Quellcode wird offengelegt, Raubversion ist willkommen und Sie sind willkommen, auf die offizielle Website zu gehen, um Unterstützung zu erhalten.
»Wenn es Verbesserungen gibt, leiten oder Feedback eine Kopie an [email protected], [email protected], danke!
'Für detaillierte Anweisungen oder Beispiele finden Sie im Download -Anhang oder wenden Sie sich an die offizielle Website oder E -Mail zum Herunterladen!
'************************************************
ClassDateFunex
Privat_
Privatefirstweekofyear_
Privatefirstdayofweek_
PrivateSubclass_initialize ()
d_ = date () 'Standard aktuelles Datum
Firstdayofweek_ = 2'vbmonday
Firstweekofyear_ = 1 'beginnt ab der Woche am 1. Januar.
Ende
'Property Setdate Datum
PublicPropertyletSetDate (Wert)
OnErrorresumeNext
Ifisnumeric (Wert) dann
Wert = cint (Wert)
Iflen (Wert) <3ThenValue = "20" & rechts ("0" & Wert, 2)
Wert = Wert & "-1"
Endif
D_ = CDate (Wert)
Endproperschaft
'Properties Firstweekofyears erste Woche eines jeden Jahres (Einzelheiten finden Sie im VBS -Handbuch)