vb操作html的一些函数

‘************************************************
‘**
‘**        写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
 » 转载请注明来源:网络蛀虫小窝 » 《vb操作html的一些函数》
 » 本站地址:http://www.gomoth.com

标签: ,