A static page
Organized, write a static page to generate the class HTMLMAKER.ASP class file <% '/ **********************************' / Janchie 2004 / 11/15 janchie@163.com '/ personal website http://ju1.com, http://g22.net'/******************************** ********************************************* '/ Property Settings' / foldEName "folder name"' / if not Settings, automatically generates [Annual Moon Day] time format folder name '/ filename "file name" (pre-contained suffix)' / If not set, the file name of [Time Second] time format will be automatically generated, the suffix is. HTML '/ HTMLSTR "Generated Code Content"' / *********************** Private HTMLFolder, HTMLFileName, HTMLContentPublic Property Let Foldename (STR) HTMLFolder = Strend PropertyPublic Property Let FileName (STR) HTMLFileName = Strend PropertyPublic Property Let HTMLSTR (STR) HTMLCONTENT = Strend Property '/ *********************************** '/ File name conversion date function' / ********************************************** Private function datename1 (TIMESTR) DIM S_YEAR, S_MONTH, S_DAY S_YEAR = Year ( TimeStr) if Len (S_Year) = 2 THEN S_YEAR = "20" & S_Year S_MONTH = MONTH (TIMESTR) IF S_MONTH <10 THEN S_MONTH = "0" & S_MONTH S_DAY = day (TIMESTR) IF S_DAY <10 THEN S_DAY = "0" & S_DAY Datename1 = S_Year & S_Month & S_Dayend FunctionPrivate Function Datename2 (TIMESTR ) Dim s_hour, s_minute, s_ss s_hour = hour (timestr) if s_hour <10 then s_hour = "0" & s_hour s_minute = minute (timestr) if s_minute <10 then s_minute = "0" & s_minute s_ss = second (timestr) if s_ss < 10 TEN S_SS = "0" & S_SS Datename2 = S_HOUR & S_MINUTE & S_SSEND FUNCTION '/ ***************************************** The primary test' / * ********************************* Private Sub class_initialize () htmlfolder = datename1 (now) htmlfilename = datename2 (now) & ". Html" htmlcontent = ""
