发信人: parislenin()
整理人: eagle(2000-06-07 09:46:16), 站内信件
|
下面的代码，拷贝后剪贴到网页，可以帮助你设置网页中链接和文字使用的颜色
。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>ColWiz</title>
<script LANGUAGE="vbScript">
<!--
Sub Window_OnLoad
lblBGCOLOR2="FFFFE0"
lblTEXT2="000000"
lblLINK2="008000"
lblALINK2="004000"
lblVLINK2="008000"
scrollBGR.Value=255
scrollBGG.Value=255
scrollBGB.Value=224
scrollTEXTRed.Value=0
scrollTEXTGreen.Value=0
scrollTEXTBlue.Value=0
scrollLINKRed.Value=0
scrollLINKGreen.Value=128
scrollLINKBlue.Value=0
scrollALINKRed.Value=0
scrollALINKGreen.Value=64
scrollALINKBlue.Value=0
scrollVLINKRed.Value=0
scrollVLINKGreen.Value=128
scrollVLINKBlue.Value=0
optHTML.Value=True
optSTYLE.Value=False
Update_ExampleText
End Sub
-->
</script>
<!-- ********************************************************* -->
<script LANGUAGE="VBScript">
<!--
Sub Update_ExampleText
If optHTML.Value Then
txtBoxEG.Value="<BODY BGCOLOR="&Chr(34)&Chr(35)&lblBGCOLOR2&Chr(34)&
" TEXT="&Chr(34)&Chr(35)&lblTEXT2&Chr(34)&" LINK="&Chr(34)&Chr(35)&lbl
LINK2&Chr(34)&" ALINK="&Chr(34)&Chr(35)&lblALINK2&Chr(34)&" VLINK="&Ch
r(34)&Chr(35)&lblVLINK2&Chr(34)&">"
ElseIf optSTYLE.Value Then
txtBoxEG.Value="<STYLE> BODY {background : "&Chr(35)&lblBGCOLOR2&";
color : "&Chr(35)&lblTEXT2&"} A:link {color : "&Chr(35)&lblLINK2&"} A:
active {color : "&Chr(35)&lblALINK2&"} A:visited {color : "&Chr(35)&lb
lVLINK2&"}</STYLE>"
End If
End Sub
Function Update_Colouring (scrNameR,scrNameG,scrNameB,lblName,strColou
r)
RedComp=Hex(scrNameR)
If len(RedComp) < 2 then RedComp ="0" & RedComp
GreenComp=Hex(scrNameG)
If len(GreenComp) < 2 then GreenComp ="0" & GreenComp
BlueComp=Hex(scrNameB)
If len(BlueComp) < 2 then BlueComp ="0" & BlueComp
ColourVal=(RedComp & GreenComp & BlueComp)
lblName.Caption=RedComp & GreenComp & BlueComp
Select Case strColour
Case "BGCOLOR" ' Update the background colouring
document.bgColor=ColourVal
Case "TEXT" ' Update the TEXT
document.fgColor=ColourVal
Case "LINK" ' Update the LINK
document.links("LINK1").style.color=ColourVal
document.links("LINK2").style.color=ColourVal
Case "ALINK" ' Update the ALINK
document.links("ALINK1").style.color=ColourVal
document.links("ALINK2").style.color=ColourVal
Case "VLINK" ' Update the VLINK
document.links("VLINK1").style.color=ColourVal
document.links("VLINK2").style.color=ColourVal
End Select
Update_ExampleText
End Function
Sub scrollVLINKRed_Change()
call Update_Colouring(scrollVLINKRed,scrollVLINKGreen,scrollVLINKBlu
e,lblVLINK2,"VLINK")
end sub
Sub scrollVLINKGreen_Change()
call Update_Colouring(scrollVLINKRed,scrollVLINKGreen,scrollVLINKBlu
e,lblVLINK2,"VLINK")
end sub
Sub scrollVLINKBlue_Change()
call Update_Colouring(scrollVLINKRed,scrollVLINKGreen,scrollVLINKBlu
e,lblVLINK2,"VLINK")
end sub
Sub scrollTEXTRed_Change()
call Update_Colouring(scrollTEXTRed,scrollTEXTGreen,scrollTEXTBlue,l
blTEXT2,"TEXT")
end sub
Sub scrollTEXTGreen_Change()
call Update_Colouring(scrollTEXTRed,scrollTEXTGreen,scrollTEXTBlue,l
blTEXT2,"TEXT")
end sub
Sub scrollTEXTBlue_Change()
call Update_Colouring(scrollTEXTRed,scrollTEXTGreen,scrollTEXTBlue,l
blTEXT2,"TEXT")
end sub
Sub scrollLINKRed_Change()
call Update_Colouring(scrollLINKRed,scrollLINKGreen,scrollLINKBlue,l
blLINK2,"LINK")
end sub
Sub scrollLINKGreen_Change()
call Update_Colouring(scrollLINKRed,scrollLINKGreen,scrollLINKBlue,l
blLINK2,"LINK")
end sub
Sub scrollLINKBlue_Change()
call Update_Colouring(scrollLINKRed,scrollLINKGreen,scrollLINKBlue,l
blLINK2,"LINK")
end sub
Sub scrollALINKRed_Change()
call Update_Colouring(scrollALINKRed,scrollALINKGreen,scrollALINKBlu
e,lblALINK2,"ALINK")
end sub
Sub scrollALINKGreen_Change()
call Update_Colouring(scrollALINKRed,scrollALINKGreen,scrollALINKBlu
e,lblALINK2,"ALINK")
end sub
Sub scrollALINKBlue_Change()
call Update_Colouring(scrollALINKRed,scrollALINKGreen,scrollALINKBlu
e,lblALINK2,"ALINK")
end sub
Sub scrollBGR_Change()
call Update_Colouring(scrollBGR,scrollBGG,scrollBGB,lblBGCOLOR2,"BGC
OLOR")
end sub
Sub scrollBGB_Change()
call Update_Colouring(scrollBGR,scrollBGG,scrollBGB,lblBGCOLOR2,"BGC
OLOR")
end sub
Sub scrollBGG_Change()
call Update_Colouring(scrollBGR,scrollBGG,scrollBGB,lblBGCOLOR2,"BGC
OLOR")
end sub
Sub cmdReset_Click()
call Window_OnLoad()
end sub
Sub optSTYLE_Click()
Update_ExampleText
end sub
Sub optHTML_Click()
Update_ExampleText
end sub
Sub cmdSafe_Click() ' Make the colours safe
Dim SafeInt
Dim scrID
SafeCol = 51
for cnt=0 to 14
set scrID=document.all.tags("OBJECT").item(cnt)
if Len (scrID.value/SafeCol) > 1 then
SafeInt=CInt(scrID.value/SafeCol)
scrID.value=(SafeInt*51)
end if
next
end sub
-->
</script>
</head>
<body BGCOLOR="#f7e7b5" style="font-family: Arial">
<FIELDSET ID="Fieldset1" TITLE="The Activated Colour Wizard" STYLE="wi
dth:245pt;height:175pt">
<LEGEND STYLE="font:10pt Arial" ALIGN="left">
<p align="center">颜色设置指导</LEGEND> </p>
<div BACKGROUND="#c0c0c0" ID="Active_CW"
STYLE="position:relative;WIDTH:235pt;HEIGHT:167pt;" align="center">
<p>
<object ID="scrollBGR" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA004A
803D"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:4;ZINDEX:4;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollBGG" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA004A
803D"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:8;ZINDEX:8;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollBGB" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA004A
803D"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:12;ZINDEX:12;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollTEXTRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA
004A803D"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:5;ZINDEX:5;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollTEXTGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:9;ZINDEX:9;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollTEXTBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:13;ZINDEX:13;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollLINKRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA
004A803D"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:6;ZINDEX:6;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollLINKGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:10;ZINDEX:10;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollLINKBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:14;ZINDEX:14;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollALINKRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:7;ZINDEX:7;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollALINKGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-0
0AA004A803D"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:11;ZINDEX:11;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollALINKBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:15;ZINDEX:15;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollVLINKRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:7;ZINDEX:7;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollVLINKGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-0
0AA004A803D"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:11;ZINDEX:11;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollVLINKBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:15;ZINDEX:15;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="Label6" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D
0"
STYLE="container:positioned;position:absolute;TOP:0pt;LEFT:92pt;WIDTH:
41pt;HEIGHT:10pt;ZINDEX:16;"
width="14" height="14">
<param name="ForeColor" value="255">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Red">
<param name="FontEffects" value="1073741825">
<param name="ParagraphAlign" value="3">
</object>
<object ID="Label7" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D
0"
STYLE="container:positioned;position:absolute;TOP:0pt;LEFT:143pt;WIDTH
:41pt;HEIGHT:10pt;ZINDEX:17;"
width="14" height="14">
<param name="ForeColor" value="20480">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Green">
<param name="FontEffects" value="1073741825">
<param name="ParagraphAlign" value="3">
</object>
<object ID="Label8" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D
0"
STYLE="container:positioned;position:absolute;TOP:0pt;LEFT:191pt;WIDTH
:32pt;HEIGHT:10pt;ZINDEX:18;"
width="14" height="14">
<param name="ForeColor" value="16711680">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Blue">
<param name="FontEffects" value="1073741825">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblBGCOLOR" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003
F40D0"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:0;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="BGCOLOR">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblBGCOLOR2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA00
3F40D0"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:19;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblTEXT" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40
D0"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:1;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="TEXT">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblTEXT2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:20;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblLINK" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40
D0"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:2;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="LINK">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblLINK2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:21;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblALINK" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:3;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="ALINK">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblALINK2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F
40D0"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:22;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblVLINK" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:3;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="VLINK">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblVLINK2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F
40D0"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:22;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="cmdReset" CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143
C57"
STYLE="container:positioned;position:absolute;TOP:116pt;LEFT:2pt;WIDTH
:45pt;HEIGHT:19pt;TABINDEX:24;ZINDEX:24;"
width="14" height="14">
<param name="Caption" value="Defaut">
</object>
<object ID="Label11" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40
D0"
STYLE="container:positioned;position:absolute;TOP:121pt;LEFT:52pt;WIDT
H:44pt;HEIGHT:10pt;ZINDEX:27;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Code type :">
</object>
<object ID="optHTML" CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002
F3"
STYLE="container:positioned;position:absolute;TOP:121pt;LEFT:94pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:25;ZINDEX:25;"
width="14" height="14">
<param name="VariousPropertyBits" value="746588179">
<param name="BackColor" value="12632256">
<param name="DisplayStyle" value="5">
<param name="Value" value="2">
<param name="Caption" value="HTML">
</object>
<object ID="optSTYLE" CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA00600
2F3"
STYLE="container:positioned;position:absolute;TOP:121pt;LEFT:140pt;WID
TH:50pt;HEIGHT:13pt;TABINDEX:26;ZINDEX:26;"
width="14" height="14">
<param name="VariousPropertyBits" value="746588179">
<param name="BackColor" value="12632256">
<param name="DisplayStyle" value="5">
<param name="Value" value="2">
<param name="Caption" value="CSS1">
</object>
<object ID="cmdSafe" CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C
57"
STYLE="container:positioned;position:absolute;TOP:116pt;LEFT:183pt;WID
TH:50pt;HEIGHT:19pt;TABINDEX:30;ZINDEX:30;"
width="14" height="14">
<param name="Caption" value="Make Safe">
<param name="ParagraphAlign" value="3">
</object>
<object ID="txtBoxEG" CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA00600
2F3"
STYLE="container:positioned;position:absolute;TOP:139pt;LEFT:2pt;WIDTH
:233pt;HEIGHT:27pt;TABINDEX:23;ZINDEX:23;"
width="14" height="14">
<param name="VariousPropertyBits" value="2894088219">
<param name="FontName" value="Times New Roman">
</object>
</p>
</div></FIELDSET>
<!-- ********************************************************** -->
<hr WIDTH="75%" ALIGN="left" size="4" color="#008080">
<span STYLE="{text-align : center;font-family : Arial;font-size : 12pt
}">
<p align="center">示范页</span> </p>
<p>这是颜色设置导向板的示范页，在网页中的文字和背景的颜色特性
可以用它帮助你进行设置，它还提供了在文本语言中和在样式表中的两种格式。
</p>
<p><a HREF="javascript:alert('link颜色示范')"
OnMouseOver="top.status='The ActiveX topic'" ID="LINK1" CLASS="normall
ink"
TITLE="View the ActiveX topic">link颜色示范和 <a
HREF="javascript:alert('Vlink颜色示范')"
OnMouseOver="top.status='This is an example of a visited link - it wil
l not go anywhere'"
ID="VLINK1" CLASS="visitedlink" TITLE="An example of a visited link">V
link颜色示范
和 <a HREF="javascript:alert('Alink颜色示范')"
OnMouseOver="top.status='This is an example of an active link - it wil
l not go anywhere'"
ID="ALINK1" CLASS="activelink" TITLE="Alink颜色示范">Alink颜色示范
. </p>
<p>Here is text. Here is <a HREF="javascript:alert('Link颜色示范')"
OnMouseOver="top.status='This is an example of a link - it will not go
anywhere'"
ID="LINK2" CLASS="normallink" TITLE="An example of a link">another lin
k, here is <a
HREF="javascript:alert('Alink颜色示范')"
OnMouseOver="top.status='This is an example of an active link - it wil
l not go anywhere'"
ID="ALINK2" CLASS="activelink" TITLE="Another example of an active lin
k">another example
active link and here is <a HREF="javascript:alert('Vlink,颜色示范'
)"
OnMouseOver="top.status='This is an example of a visited link - it wil
l not go anywhere'"
ID="VLINK2" CLASS="visitedlink" TITLE="Another visited link example">a
nother visited link.
</p>
</body>
</html>
-->
</script>
<!-- ********************************************************* -->
<script LANGUAGE="VBScript">
<!--
Sub Update_ExampleText
If optHTML.Value Then
txtBoxEG.Value="<BODY BGCOLOR="&Chr(34)&Chr(35)&lblBGCOLOR2&Chr(34)&
" TEXT="&Chr(34)&Chr(35)&lblTEXT2&Chr(34)&" LINK="&Chr(34)&Chr(35)&lbl
LINK2&Chr(34)&" ALINK="&Chr(34)&Chr(35)&lblALINK2&Chr(34)&" VLINK="&Ch
r(34)&Chr(35)&lblVLINK2&Chr(34)&">"
ElseIf optSTYLE.Value Then
txtBoxEG.Value="<STYLE> BODY {background : "&Chr(35)&lblBGCOLOR2&";
color : "&Chr(35)&lblTEXT2&"} A:link {color : "&Chr(35)&lblLINK2&"} A:
active {color : "&Chr(35)&lblALINK2&"} A:visited {color : "&Chr(35)&lb
lVLINK2&"}</STYLE>"
End If
End Sub
Function Update_Colouring (scrNameR,scrNameG,scrNameB,lblName,strColou
r)
RedComp=Hex(scrNameR)
If len(RedComp) < 2 then RedComp ="0" & RedComp
GreenComp=Hex(scrNameG)
If len(GreenComp) < 2 then GreenComp ="0" & GreenComp
BlueComp=Hex(scrNameB)
If len(BlueComp) < 2 then BlueComp ="0" & BlueComp
ColourVal=(RedComp & GreenComp & BlueComp)
lblName.Caption=RedComp & GreenComp & BlueComp
Select Case strColour
Case "BGCOLOR" ' Update the background colouring
document.bgColor=ColourVal
Case "TEXT" ' Update the TEXT
document.fgColor=ColourVal
Case "LINK" ' Update the LINK
document.links("LINK1").style.color=ColourVal
document.links("LINK2").style.color=ColourVal
Case "ALINK" ' Update the ALINK
document.links("ALINK1").style.color=ColourVal
document.links("ALINK2").style.color=ColourVal
Case "VLINK" ' Update the VLINK
document.links("VLINK1").style.color=ColourVal
document.links("VLINK2").style.color=ColourVal
End Select
Update_ExampleText
End Function
Sub scrollVLINKRed_Change()
call Update_Colouring(scrollVLINKRed,scrollVLINKGreen,scrollVLINKBlu
e,lblVLINK2,"VLINK")
end sub
Sub scrollVLINKGreen_Change()
call Update_Colouring(scrollVLINKRed,scrollVLINKGreen,scrollVLINKBlu
e,lblVLINK2,"VLINK")
end sub
Sub scrollVLINKBlue_Change()
call Update_Colouring(scrollVLINKRed,scrollVLINKGreen,scrollVLINKBlu
e,lblVLINK2,"VLINK")
end sub
Sub scrollTEXTRed_Change()
call Update_Colouring(scrollTEXTRed,scrollTEXTGreen,scrollTEXTBlue,l
blTEXT2,"TEXT")
end sub
Sub scrollTEXTGreen_Change()
call Update_Colouring(scrollTEXTRed,scrollTEXTGreen,scrollTEXTBlue,l
blTEXT2,"TEXT")
end sub
Sub scrollTEXTBlue_Change()
call Update_Colouring(scrollTEXTRed,scrollTEXTGreen,scrollTEXTBlue,l
blTEXT2,"TEXT")
end sub
Sub scrollLINKRed_Change()
call Update_Colouring(scrollLINKRed,scrollLINKGreen,scrollLINKBlue,l
blLINK2,"LINK")
end sub
Sub scrollLINKGreen_Change()
call Update_Colouring(scrollLINKRed,scrollLINKGreen,scrollLINKBlue,l
blLINK2,"LINK")
end sub
Sub scrollLINKBlue_Change()
call Update_Colouring(scrollLINKRed,scrollLINKGreen,scrollLINKBlue,l
blLINK2,"LINK")
end sub
Sub scrollALINKRed_Change()
call Update_Colouring(scrollALINKRed,scrollALINKGreen,scrollALINKBlu
e,lblALINK2,"ALINK")
end sub
Sub scrollALINKGreen_Change()
call Update_Colouring(scrollALINKRed,scrollALINKGreen,scrollALINKBlu
e,lblALINK2,"ALINK")
end sub
Sub scrollALINKBlue_Change()
call Update_Colouring(scrollALINKRed,scrollALINKGreen,scrollALINKBlu
e,lblALINK2,"ALINK")
end sub
Sub scrollBGR_Change()
call Update_Colouring(scrollBGR,scrollBGG,scrollBGB,lblBGCOLOR2,"BGC
OLOR")
end sub
Sub scrollBGB_Change()
call Update_Colouring(scrollBGR,scrollBGG,scrollBGB,lblBGCOLOR2,"BGC
OLOR")
end sub
Sub scrollBGG_Change()
call Update_Colouring(scrollBGR,scrollBGG,scrollBGB,lblBGCOLOR2,"BGC
OLOR")
end sub
Sub cmdReset_Click()
call Window_OnLoad()
end sub
Sub optSTYLE_Click()
Update_ExampleText
end sub
Sub optHTML_Click()
Update_ExampleText
end sub
Sub cmdSafe_Click() ' Make the colours safe
Dim SafeInt
Dim scrID
SafeCol = 51
for cnt=0 to 14
set scrID=document.all.tags("OBJECT").item(cnt)
if Len (scrID.value/SafeCol) > 1 then
SafeInt=CInt(scrID.value/SafeCol)
scrID.value=(SafeInt*51)
end if
next
end sub
-->
</script>
</head>
<body BGCOLOR="#f7e7b5" style="font-family: Arial">
<FIELDSET ID="Fieldset1" TITLE="The Activated Colour Wizard" STYLE="wi
dth:245pt;height:175pt">
<LEGEND STYLE="font:10pt Arial" ALIGN="left">
<p align="center">颜色设置指导</LEGEND> </p>
<div BACKGROUND="#c0c0c0" ID="Active_CW"
STYLE="position:relative;WIDTH:235pt;HEIGHT:167pt;" align="center">
<p>
<object ID="scrollBGR" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA004A
803D"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:4;ZINDEX:4;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollBGG" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA004A
803D"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:8;ZINDEX:8;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollBGB" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA004A
803D"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:12;ZINDEX:12;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollTEXTRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA
004A803D"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:5;ZINDEX:5;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollTEXTGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:9;ZINDEX:9;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollTEXTBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:13;ZINDEX:13;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollLINKRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00AA
004A803D"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:6;ZINDEX:6;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollLINKGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:10;ZINDEX:10;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollLINKBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:14;ZINDEX:14;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollALINKRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:7;ZINDEX:7;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollALINKGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-0
0AA004A803D"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:11;ZINDEX:11;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollALINKBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:15;ZINDEX:15;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollVLINKRed" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00A
A004A803D"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:92pt;WIDTH
:45pt;HEIGHT:13pt;TABINDEX:7;ZINDEX:7;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollVLINKGreen" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-0
0AA004A803D"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:140pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:11;ZINDEX:11;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="scrollVLINKBlue" CLASSID="CLSID:DFD181E0-5E2F-11CE-A449-00
AA004A803D"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:188pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:15;ZINDEX:15;"
width="18" height="90">
<param name="Max" value="255">
<param name="LargeChange" value="5">
</object>
<object ID="Label6" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D
0"
STYLE="container:positioned;position:absolute;TOP:0pt;LEFT:92pt;WIDTH:
41pt;HEIGHT:10pt;ZINDEX:16;"
width="14" height="14">
<param name="ForeColor" value="255">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Red">
<param name="FontEffects" value="1073741825">
<param name="ParagraphAlign" value="3">
</object>
<object ID="Label7" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D
0"
STYLE="container:positioned;position:absolute;TOP:0pt;LEFT:143pt;WIDTH
:41pt;HEIGHT:10pt;ZINDEX:17;"
width="14" height="14">
<param name="ForeColor" value="20480">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Green">
<param name="FontEffects" value="1073741825">
<param name="ParagraphAlign" value="3">
</object>
<object ID="Label8" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D
0"
STYLE="container:positioned;position:absolute;TOP:0pt;LEFT:191pt;WIDTH
:32pt;HEIGHT:10pt;ZINDEX:18;"
width="14" height="14">
<param name="ForeColor" value="16711680">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Blue">
<param name="FontEffects" value="1073741825">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblBGCOLOR" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003
F40D0"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:0;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="BGCOLOR">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblBGCOLOR2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA00
3F40D0"
STYLE="container:positioned;position:absolute;TOP:15pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:19;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblTEXT" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40
D0"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:1;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="TEXT">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblTEXT2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:36pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:20;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblLINK" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40
D0"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:2;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="LINK">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblLINK2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:57pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:21;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblALINK" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:3;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="ALINK">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblALINK2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F
40D0"
STYLE="container:positioned;position:absolute;TOP:78pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:22;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblVLINK" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F4
0D0"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:2pt;WIDTH:
45pt;HEIGHT:14pt;ZINDEX:3;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="Caption" value="VLINK">
<param name="SpecialEffect" value="1">
<param name="ParagraphAlign" value="3">
</object>
<object ID="lblVLINK2" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F
40D0"
STYLE="container:positioned;position:absolute;TOP:99pt;LEFT:50pt;WIDTH
:40pt;HEIGHT:13pt;ZINDEX:22;"
width="14" height="14">
<param name="SpecialEffect" value="6">
<param name="FontName" value="Courier New">
<param name="FontCharSet" value="0">
<param name="ParagraphAlign" value="3">
</object>
<object ID="cmdReset" CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143
C57"
STYLE="container:positioned;position:absolute;TOP:116pt;LEFT:2pt;WIDTH
:45pt;HEIGHT:19pt;TABINDEX:24;ZINDEX:24;"
width="14" height="14">
<param name="Caption" value="Defaut">
</object>
<object ID="Label11" CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40
D0"
STYLE="container:positioned;position:absolute;TOP:121pt;LEFT:52pt;WIDT
H:44pt;HEIGHT:10pt;ZINDEX:27;"
width="14" height="14">
<param name="BackColor" value="12632256">
<param name="VariousPropertyBits" value="8388627">
<param name="Caption" value="Code type :">
</object>
<object ID="optHTML" CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA006002
F3"
STYLE="container:positioned;position:absolute;TOP:121pt;LEFT:94pt;WIDT
H:45pt;HEIGHT:13pt;TABINDEX:25;ZINDEX:25;"
width="14" height="14">
<param name="VariousPropertyBits" value="746588179">
<param name="BackColor" value="12632256">
<param name="DisplayStyle" value="5">
<param name="Value" value="2">
<param name="Caption" value="HTML">
</object>
<object ID="optSTYLE" CLASSID="CLSID:8BD21D50-EC42-11CE-9E0D-00AA00600
2F3"
STYLE="container:positioned;position:absolute;TOP:121pt;LEFT:140pt;WID
TH:50pt;HEIGHT:13pt;TABINDEX:26;ZINDEX:26;"
width="14" height="14">
<param name="VariousPropertyBits" value="746588179">
<param name="BackColor" value="12632256">
<param name="DisplayStyle" value="5">
<param name="Value" value="2">
<param name="Caption" value="CSS1">
</object>
<object ID="cmdSafe" CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C
57"
STYLE="container:positioned;position:absolute;TOP:116pt;LEFT:183pt;WID
TH:50pt;HEIGHT:19pt;TABINDEX:30;ZINDEX:30;"
width="14" height="14">
<param name="Caption" value="Make Safe">
<param name="ParagraphAlign" value="3">
</object>
<object ID="txtBoxEG" CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA00600
2F3"
STYLE="container:positioned;position:absolute;TOP:139pt;LEFT:2pt;WIDTH
:233pt;HEIGHT:27pt;TABINDEX:23;ZINDEX:23;"
width="14" height="14">
<param name="VariousPropertyBits" value="2894088219">
<param name="FontName" value="Times New Roman">
</object>
</p>
</div></FIELDSET>
<!-- ********************************************************** -->
<hr WIDTH="75%" ALIGN="left" size="4" color="#008080">
<span STYLE="{text-align : center;font-family : Arial;font-size : 12pt
}">
<p align="center">示范页</span> </p>
<p>这是颜色设置导向板的示范页，在网页中的文字和背景的颜色特性
可以用它帮助你进行设置，它还提供了在文本语言中和在样式表中的两种格式。
</p>
<p><a HREF="javascript:alert('link颜色示范')"
OnMouseOver="top.status='The ActiveX topic'" ID="LINK1" CLASS="normall
ink"
TITLE="View the ActiveX topic">link颜色示范和 <a
HREF="javascript:alert('Vlink颜色示范')"
OnMouseOver="top.status='This is an example of a visited link - it wil
l not go anywhere'"
ID="VLINK1" CLASS="visitedlink" TITLE="An example of a visited link">V
link颜色示范
和 <a HREF="javascript:alert('Alink颜色示范')"
OnMouseOver="top.status='This is an example of an active link - it wil
l not go anywhere'"
ID="ALINK1" CLASS="activelink" TITLE="Alink颜色示范">Alink颜色示范
. </p>
<p>Here is text. Here is <a HREF="javascript:alert('Link颜色示范')"
OnMouseOver="top.status='This is an example of a link - it will not go
anywhere'"
ID="LINK2" CLASS="normallink" TITLE="An example of a link">another lin
k, here is <a
HREF="javascript:alert('Alink颜色示范')"
OnMouseOver="top.status='This is an example of an active link - it wil
l not go anywhere'"
ID="ALINK2" CLASS="activelink" TITLE="Another example of an active lin
k">another example
active link and here is <a HREF="javascript:alert('Vlink,颜色示范'
)"
OnMouseOver="top.status='This is an example of a visited link - it wil
l not go anywhere'"
ID="VLINK2" CLASS="visitedlink" TITLE="Another visited link example">a
nother visited link.
</p>
</body>
</html>
--
庞磊 ---- 网络安居工程倡导者！
倡导网络安居工程，人人都有一个家！！一切从学会制作网页开始。
>>http://www9000.126.com<<>>http://www9000.cn99.com<<
>>http://www9000.yeah.net<<>>http://www9000.home.china.com<<
>>>>>>>>>>>><<<<<<<<<<<<
※ 修改:．parislenin 于 Jun 3 14:36:24 修改本文．[FROM: 202.98.195.2]
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.98.195.2]
|
|