‘************************************************
‘**
‘** 写HTML文件的类（一些相关的操作）
‘**
‘************************************************
‘// 写HTML文件头
Public Function WriteHtmlHead(ByRef lngFileNum As Long, _
ByVal strTitle As String)
Print #lngFileNum, “<html>”
Print #lngFileNum, “<head>”
Print #lngFileNum, “<meta http-equiv=Content-Type content=text/html; charset=gb2312>”
Print #lngFileNum, “<title>” & strTitle & “</title>”
Call WriteCss(lngFileNum)
Print #lngFileNum, “</head>”
Call WriteSrcipt(lngFileNum)
Print #lngFileNum, “<body>”
Print #lngFileNum, “<p align=’center’><font color=’#1E77D3′>” & strTitle & “</font></p>”
Print #lngFileNum, “<div align=’center’>”
Print #lngFileNum, “<Table border=’0′ width=’90%’>”
Print #lngFileNum, “<tr><td height=’5′></td></tr></table>”
Print #lngFileNum, “<Table class=’tabBody’ border=’0′ cellspacing=’0′ cellpadding=’0′ width=’90%’>”
End Function
‘// 写HTML文件尾
Public Function WriteHtmlEnd(ByRef lngFileNum As Long)
Dim strVersionNumber As String
strVersionNumber = “v” & App.Major & “.” & App.Minor & “.” & App.Revision
Print #lngFileNum, “</Table>”
Print #lngFileNum, “<Table border=’0′ width=’90%’><tr><td height=’5′></td></tr>”
Print #lngFileNum, “<tr><td align=’right’ class=’fontNone’>生成时间『” & _
Format$(Now(), “YYYY-MM-DD HH:MM:SS”) & “』</td></tr>”
Print #lngFileNum, “</table></div>”
Print #lngFileNum, “<br>BBS:<a href=’http://www.onbno.com’>网络蛀虫小窝</a>”
Print #lngFileNum, “</body>”
Print #lngFileNum, “</html>”
End Function
‘// 写入CSS样式
Private Sub WriteCss(ByRef lngFileNum As Long)
Print #lngFileNum, “<style type=’text/css’>”
Print #lngFileNum, “A:visited{TEXT-DECORATION: none;Color:#3366CC}”
Print #lngFileNum, “A:active{TEXT-DECORATION: none;Color:#3366CC}”
Print #lngFileNum, “A:hover{TEXT-DECORATION: underline;Color:#FF9933}”
Print #lngFileNum, “A:link{text-decoration: none;Color:#3366CC}”
Print #lngFileNum, “body”
Print #lngFileNum, “{“
Print #lngFileNum, ” FONT-SIZE: 12px;”
Print #lngFileNum, ” COLOR: #666666;”
Print #lngFileNum, ” FONT-FAMILY: 宋体,Arial,Verdana,Tahoma,Helvetica;”
Print #lngFileNum, ” BACKGROUND-COLOR: #FFFFFF;”
Print #lngFileNum, ” SCROLLBAR-FACE-COLOR: #DBDBDB;”
Print #lngFileNum, ” SCROLLBAR-HIGHLIGHT-COLOR: #DBDBDB;”
Print #lngFileNum, ” SCROLLBAR-SHADOW-COLOR: #DBDBDB;”
Print #lngFileNum, ” SCROLLBAR-ARROW-COLOR: #000000;”
Print #lngFileNum, ” SCROLLBAR-TRACK-COLOR: #EFEFEF;”
Print #lngFileNum, ” SCROLLBAR-3DLIGHT-COLOR: #FFFFFF;”
Print #lngFileNum, ” SCROLLBAR-DARKSHADOW-COLOR: #B1B1B1;”
Print #lngFileNum, “}”
Print #lngFileNum, “TD”
Print #lngFileNum, “{“
Print #lngFileNum, ” FONT-FAMILY: 宋体,Arial,Verdana,Helvetica,Tahoma;”
Print #lngFileNum, ” FONT-SIZE: 12px;”
Print #lngFileNum, ” LINE-HEIGHT: 15px;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tabBody”
Print #lngFileNum, “{“
Print #lngFileNum, ” FONT-FAMILY: Arial,Verdana,宋体,Helvetica,Tahoma;”
Print #lngFileNum, ” FONT-SIZE: 12px;”
Print #lngFileNum, ” BORDER-LEFT: 1px solid #EFEFEF;”
Print #lngFileNum, ” BORDER-RIGHT: 1px solid #EFEFEF;”
Print #lngFileNum, ” BACKGROUND-COLOR: #FFFFFF;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdOtherTitle”
Print #lngFileNum, “{“
Print #lngFileNum, ” FONT-WEIGHT: bold;”
Print #lngFileNum, ” PADDING-TOP: 8px;”
Print #lngFileNum, ” PADDING-BOTTOM: 5px;”
Print #lngFileNum, ” BACKGROUND-COLOR: #B1B1B1;”
Print #lngFileNum, ” BORDER-BOTTOM: 1px solid #F3F3F3;”
Print #lngFileNum, ” COLOR: #FFFFFF;”
Print #lngFileNum, ” CURSOR: Hand;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdTitle”
Print #lngFileNum, “{“
Print #lngFileNum, ” FONT-WEIGHT: bold;”
Print #lngFileNum, ” PADDING-TOP: 8px;”
Print #lngFileNum, ” PADDING-BOTTOM: 5px;”
Print #lngFileNum, ” BACKGROUND-COLOR: #E5E5E5;”
Print #lngFileNum, ” BORDER-BOTTOM: 1px solid #B1B1B1;”
Print #lngFileNum, ” COLOR: #1E77D3;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdSmallTitle”
Print #lngFileNum, “{“
Print #lngFileNum, ” BACKGROUND-COLOR: #F3F3F3;”
Print #lngFileNum, ” PADDING-TOP: 3px;”
Print #lngFileNum, ” PADDING-BOTTOM: 2px;”
Print #lngFileNum, ” BORDER-BOTTOM: 1px solid #B1B1B1;”
Print #lngFileNum, ” COLOR: #336633;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdFields”
Print #lngFileNum, “{“
Print #lngFileNum, ” BACKGROUND-COLOR: #F3F3F3;”
Print #lngFileNum, ” PADDING-TOP: 3px;”
Print #lngFileNum, ” PADDING-BOTTOM: 4px;”
Print #lngFileNum, ” COLOR: #336633;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdCell”
Print #lngFileNum, “{“
Print #lngFileNum, ” PADDING-TOP: 3px;”
Print #lngFileNum, ” PADDING-LEFT: 2px;”
Print #lngFileNum, ” PADDING-BOTTOM: 2px;”
Print #lngFileNum, ” BORDER-BOTTOM: 1px solid #EFEFEF;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdLeftTitle”
Print #lngFileNum, “{“
Print #lngFileNum, ” BACKGROUND-COLOR: #F3F3F3;”
Print #lngFileNum, ” FONT-WEIGHT: bold;”
Print #lngFileNum, ” PADDING-TOP: 3px;”
Print #lngFileNum, ” PADDING-LEFT: 3px;”
Print #lngFileNum, ” PADDING-BOTTOM: 2px;”
Print #lngFileNum, ” BORDER-BOTTOM: 1px solid #DBDBDB;”
Print #lngFileNum, ” COLOR: #343434;”
Print #lngFileNum, “}”
Print #lngFileNum, “.tdContent”
Print #lngFileNum, “{“
Print #lngFileNum, ” PADDING-TOP: 3px;”
Print #lngFileNum, ” PADDING-LEFT: 3px;”
Print #lngFileNum, ” PADDING-BOTTOM: 2px;”
Print #lngFileNum, ” BORDER-BOTTOM: 1px solid #DBDBDB;”
Print #lngFileNum, “}”
Print #lngFileNum, “.fontNone”
Print #lngFileNum, “{“
Print #lngFileNum, ” COLOR: #ccc;”
Print #lngFileNum, “}”
Print #lngFileNum, “select”
Print #lngFileNum, “{“
Print #lngFileNum, ” font-family: Tahoma,Verdana,宋体;”
Print #lngFileNum, ” font-size: 12px;”
Print #lngFileNum, ” line-height: 15px;”
Print #lngFileNum, ” background-color: #E5E5E5;”
Print #lngFileNum, ” color: #1E77D3;”
Print #lngFileNum, ” border: 1px #C0C0C0 solid;”
Print #lngFileNum, “}”
Print #lngFileNum, “.cmdbutton”
Print #lngFileNum, “{“
Print #lngFileNum, ” FONT-FAMILY: Tahoma,宋体,Verdana;”
Print #lngFileNum, ” FONT-SIZE: 12px;”
Print #lngFileNum, ” BORDER: 1px #C0C0C0 solid;”
Print #lngFileNum, ” CURSOR: Hand;”
Print #lngFileNum, “}”
Print #lngFileNum, “</style>”
End Sub
‘// 写脚本函数
Private Sub WriteSrcipt(ByRef lngFileNum As Long)
Print #lngFileNum, “<SCRIPT Language=’Javascript’>”
Print #lngFileNum, “function selTabsChange(n)”
Print #lngFileNum, “{“
Print #lngFileNum, ” location=’#’ + n”
Print #lngFileNum, “}”
Print #lngFileNum, “function tdClick(objName)”
Print #lngFileNum, “{“
Print #lngFileNum, ” objName.style.display=(objName.style.display ==’none’)?”:’none’;”
Print #lngFileNum, “}”
Print #lngFileNum, “</SCRIPT>”
End Sub
