📄 html.lib
字号:
################################################################################ HTML.lib ################################################################################# UltraBoard Ver. 1.61 by UltraScripts.com ## Scripts written by Jacky W.W. Yung, WebMaster@UltraScripts.com ## Available from http://www.UltraScripts.com/UltraBoard/ ## --------------------------------------------------------------------------- ## PROGRAM NAME : UltraBoard ## VERSION : 1.61 ## LAST MODIFIED : 30/06/1999 ## =========================================================================== ## COPYRIGHT NOTICE : ## ## Copyright (c) 1999 Jacky Yung. All Rights Reserved. ## ## This program is free software; you can change or modify it as you see fit. ## However, modified versions cannot be sold or distributed. You cannot alter ## the copyright and "powered by" notices throughout the scripts. These ## notices must be clearly visible to the end users. ## ## WARRANTY DISCLAIMER: ## ## THIS PROGRAM IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT WITHOUT ## ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF MERCHANTABILITY OR ## FITNESS FOR A PARTICULAR PURPOSE. ################################################################################################################################################################ HTMLHeader ################################################################################sub HTMLHeader { if ($HeaderDefine ne "TRUE") { $HeaderDefine = "TRUE"; return "Content-type: text/html\n\n"; }}################################################################################ Head ################################################################################sub Head { my ($Title, @Other)=@_; my $HTML; $HTML=<<HTML;<html><head><title>$Title</title>@Other</head>HTML return $HTML;}################################################################################ Body ################################################################################sub Body { my ($BackGround, $BGColor, $Text, $Link, $VLink, $ALink, $LeftMargin, $TopMargin, @Other)=@_; my $HTML; $BackGround =qq~ background="$BackGround"~ if $BackGround ne ""; $BGColor =qq~ bgcolor="$BGColor"~ if $BGColor ne ""; $Text =qq~ text="$Text"~ if $Text ne ""; $Link =qq~ link="$Link"~ if $Link ne ""; $VLink =qq~ vlink="$VLink"~ if $VLink ne ""; $ALink =qq~ alink="$ALink"~ if $ALink ne ""; $LeftMargin =qq~ leftmargin="$LeftMargin" marginwidth="$LeftMargin"~ if $LeftMargin ne ""; $TopMargin =qq~ topmargin="$TopMargin" marginheight="$TopMargin"~ if $TopMargin ne ""; my($Other) = @Other ? " @Other" : ""; $HTML=qq~<body$BackGround$BGColor$Text$Link$VLink$ALink$LeftMargin$TopMargin$Other>\n~; return $HTML;}################################################################################ CBody ################################################################################sub CBody { my $HTML; $HTML=<<HTML;</body></html>HTML return $HTML;}################################################################################ Table ################################################################################sub Table { my ($Width, $Align, $CellSpacing, $CellPadding, $BackGround, $BGColor, @Other)=@_; my $HTML; $Width =qq~ width="$Width"~ if $Width ne ""; $Align =qq~ align="$Align"~ if $Align ne ""; $CellSpacing =qq~ cellspacing="$CellSpacing"~ if $CellSpacing ne ""; $CellPadding =qq~ cellpadding="$CellPadding"~ if $CellPadding ne ""; $BorderColor =qq~ bgcolor="$BorderColor"~ if $BorderColor ne ""; $BackGround =qq~ background="$BackGround"~ if $BackGround ne ""; $BGColor =qq~ bgcolor="$BGColor"~ if $BGColor ne ""; my($Other) = @Other ? " @Other" : ""; $HTML=qq~<table$Width border="0"$CellSpacing$CellPadding$Align$BackGround$BGColor$Other>\n~; return $HTML;}################################################################################ CTable ################################################################################sub CTable { return "</table>\n";}################################################################################ BTable ################################################################################sub BTable { my ($Width, $Align, $OutCellSpacing, $OutCellPadding, $InCellSpacing, $InCellPadding, $BorderColor, $BackGround, $BGColor, @Other)=@_; my $HTML; $HTML= &Table($Width,$Align,$OutCellSpacing,$OutCellPadding,"",$BorderColor). &Tr().&Td(). &Table("100%","CENTER",$InCellSpacing,$InCellPadding,$BackGround,$BGColor,@Other); return $HTML;}################################################################################ CBTable ################################################################################sub CBTable { return &CTable().&CTd().&CTr().&CTable();}################################################################################ Font ################################################################################sub Font { my ($TextFace, $TextSize, $Color, @Other)=@_; my $HTML; $TextFace =qq~ face="$TextFace"~ if $TextFace ne ""; $TextSize =qq~ size="$TextSize"~ if $TextSize ne ""; $Color =qq~ color="$Color"~ if $Color ne ""; my($Other) = @Other ? " @Other" : ""; $HTML=qq~<font class=c $TextFace$TextSize$Color$Other>~; return $HTML;}################################################################################ CFont ################################################################################sub CFont { return "</font>";}################################################################################ Tr ################################################################################sub Tr { my ($Align, $VAlign, $BGColor, @Other)=@_; my $HTML; $Align =qq~ align="$Align"~ if $Align ne ""; $VAlign =qq~ valign="$VAlign"~ if $VAlign ne ""; $BGColor =qq~ bgcolor="$BGColor"~ if $BGColor ne ""; my($Other) = @Other ? " @Other" : ""; $HTML=qq~<tr$Align$VAlign$BGColor$Other>\n~; return $HTML;}################################################################################ CTr ################################################################################sub CTr { return "</tr>\n";}################################################################################ Td ################################################################################sub Td { my ($Width, $Height, $ColSpan, $RowSpan, $Align, $VAlign, $NoWrap, $BGColor, $BackGround, @Other)=@_; my $HTML; $Width =qq~ width="$Width"~ if $Width ne ""; $Height =qq~ height="$Height"~ if $Height ne ""; $ColSpan =qq~ colspan="$ColSpan"~ if $ColSpan ne ""; $RowSpan =qq~ rowspan="$RowSpan"~ if $RowSpan ne ""; $Align =qq~ align="$Align"~ if $Align ne ""; $VAlign =qq~ valign="$VAlign"~ if $VAlign ne ""; $NoWrap =qq~ nowrap~ if $NoWrap ne ""; $BGColor =qq~ bgcolor="$BGColor"~ if $BGColor ne ""; $BackGround =qq~ background="$BackGround"~ if $BackGround ne ""; my($Other) = @Other ? " @Other" : ""; $HTML=qq~<td$Width$Height$ColSpan$RowSpan$Align$VAlign$NoWrap$BGColor$BackGround$Other>~; return $HTML;}################################################################################ CTd ################################################################################sub CTd { return "</td>\n";}################################################################################ Link ################################################################################sub Link { my ($URL, $Target, $Title, $MouseOver, @Other)=@_; my $HTML; $URL =qq~ href="$URL"~ if $URL ne ""; $Target =qq~ target="$Target"~ if $Target ne ""; $Title =qq~ title="$Title"~ if $Title ne ""; if ($MouseOver ne "") { $MouseOver=~s/\'/\\\'/ig; #$MouseOver=~s/\;/\\\;/ig; #$MouseOver=~s/\&/\\\&/ig; $MouseOver=~s/\"/"/ig; $MouseOver =qq~ OnMouseOver="window.status='$MouseOver';return true;" OnMouseOut="window.status=''"~; } my($Other) = @Other ? " @Other" : ""; $HTML=qq~<a$URL$Target$Title$MouseOver$Other>~; return $HTML;}################################################################################ CLink ################################################################################sub CLink { return "</a>";}###############################################################################⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -