html 生成艺术字
发表于:2007-06-30来源:作者:点击数:
标签:
HTML HEAD META NAME=GENERATOR Content=Microsoft Visual Studio 6.0 TITLE/TITLE SCRIPT LANGUAGE= VB Script Sub Window_Onload() TCG.Item(Action1).AT 0.00, w2.Rotate(0,0,5), -1 TCG.Item(Action1).AT 0.00, s3.Rotate(1,0,0), -1 TCG.Item(Action1).P
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<SCRIPT LANGUAGE="
VBScript">
Sub Window_Onload()
TCG.Item("Action1").AT 0.00, "w2.Rotate(0,0,5)", -1
TCG.Item("Action1").AT 0.00, "s3.Rotate(1,0,0)", -1
TCG.Item("Action1").Play
End Sub
</SCRIPT>
</HEAD>
<BODY>
<OBJECT classid="clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6"
id="w1" STYLE="HEIGHT: 350px; POSITION:absolute;
=>WIDTH: 500px; ZINDEX: 1" VIE
WASTEXT>
<PARAM NAME="Line0001" VALUE="SetLineStyle(1,0)">
<PARAM NAME="Line0002" VALUE="SetLineColor(0,0,255)">
<PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
<PARAM NAME="Line0004" VALUE="SetFont(@#Bertram@#,100,100,0,0,0)">
<PARAM NAME="Line0005" VALUE="Text(@#Chinaasp@#,-175,-100)">
</OBJECT>
<OBJECT classid="clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6"
id="w2" STYLE="HEIGHT: 350px; POSITION: absolute;
=>WIDTH:500px; ZINDEX: 1" VIEWASTEXT>
<PARAM NAME="Line0001" VALUE="SetLineStyle(1,0)">
<PARAM NAME="Line0002" VALUE="SetLineColor(0,0,255)">
<PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
<PARAM NAME="Line0004" VALUE="SetFont(@#Verdona@#,100,100,0,0,0)">
<PARAM NAME="Line0005" VALUE="Text(@#艺术字@#,-215,-30)">
</OBJECT>
<OBJECT classid="clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6"
id="w3" STYLE="HEIGHT: 350px; POSITION: absolute;
=>WIDTH: 500px; ZINDEX: 1" VIEWASTEXT>
<PARAM NAME="Line0001" VALUE="SetLineStyle(1,0)">
<PARAM NAME="Line0002" VALUE="SetLineColor(0,0,255)">
<PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
<PARAM NAME="Line0004" VALUE="SetFont(@#Verdona@#,100,100,0,0,0)">
<PARAM NAME="Line0005" VALUE="Text(@#Centver@#,-225,45)">
</OBJECT>
<OBJECT classid="clsid:369303C2-D7AC-11D0-89D5-00A0C90833E6"
id="w4" STYLE="HEIGHT: 350px; POSITION: absolute;
=>WIDTH: 500px; ZINDEX: 1" VIEWASTEXT>
<PARAM NAME="Line0001" VALUE="SetLineStyle(1,0)">
<PARAM NAME="Line0002" VALUE="SetLineColor(255,0,0)">
<PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
<PARAM NAME="Line0004" VALUE="SetFont(@#隶书@#,100,100,0,0,0)">
<PARAM NAME="Line0005" VALUE="Text(@#来自 MSDN@#,-225,145)">
</OBJECT>
<OBJECT classid="clsid:B0A6BAE2-AAF0-11D0-A152-00A0C908DB96"
id="TCG" STYLE="WIDTH:2;HEIGHT:2">
</OBJECT>
</BODY>
</HTML>
原文转自:http://www.ltesting.net