nc_htmleditcls.asp

大型黄页系统,精美黄页flash演示,10m

<%
Class HtmlEditor_Cls

	Public Sub Init_HtmlEditor()
		Response.Write "<link rel=""STYLESHEET"" type=""text/css"" href=""Editor/edit.css"">" & Chr(13) & Chr(10)
		Response.Write "<script src=""Editor/edit.js"" type=""text/javascript""></script>" & Chr(13) & Chr(10)
		Response.Write "<table ID='WBTB_Container' class=""WBTB_Body"" width=""100%"" height=300 cellpadding=3 cellspacing=0 border=0 >" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "<tr id=""WBTB_Toolbars"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & "<td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & "<table cellpadding=0 cellspacing=0>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<tr class=""yToolbar"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<select ID=""WBTB_formatSelect"" class=""WBTB_TBGen"" onchange=""WBTB_doSelectClick('FormatBlock',this)"" >" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option class=""heading"" selected>段落格式" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;P&gt;"">Normal" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H1&gt;"">Heading 1" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H2&gt;"">Heading 2" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H3&gt;"">Heading 3" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H4&gt;"">Heading 4" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H5&gt;"">Heading 5" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H6&gt;"">Heading 6" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;H7&gt;"">Heading 7" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;PRE&gt;"">Formatted" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option VALUE=""&lt;ADDRESS&gt;"">Address" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</select>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<select language=""javascript"" class=""WBTB_TBGen"" id=""FontName"" onchange=""WBTB_format('fontname',this[this.selectedIndex].value);""> " & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option class=""heading"" selected>字体" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""宋体"">宋体" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""黑体"">黑体" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""楷体_GB2312"">楷体" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""仿宋_GB2312"">仿宋" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""隶书"">隶书" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""幼圆"">幼圆" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""新宋体"">新宋体" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""细明体"">细明体" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Arial"">Arial" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Arial Black"">Arial Black" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Arial Narrow"">Arial Narrow" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Bradley Hand ITC"">Bradley Hand ITC" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Brush Script" & Chr(9) & "MT"">Brush Script MT" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Century Gothic"">Century Gothic" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Comic Sans MS"">Comic Sans MS" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Courier"">Courier" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Courier New"">Courier New" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""MS Sans Serif"">MS Sans Serif" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Script"">Script" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""System"">System" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Times New Roman"">Times New Roman" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Viner Hand ITC"">Viner Hand ITC" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Verdana"">Verdana" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Wide Latin"">Wide Latin" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""Wingdings"">Wingdings</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</select>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<select language=""javascript"" class=""WBTB_TBGen"" id=""FontSize"" onchange=""WBTB_format('fontsize',this[this.selectedIndex].value);"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option class=""heading"" selected>字号" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""1"">1" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""2"">2" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""3"">3" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""4"">4" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""5"">5" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""6"">6" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""7"">7</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</select>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<select class=""WBTB_TBGen"" onchange=""WBTB_InsertSymbol(this[this.selectedIndex].innerText);this.selectedIndex=0;"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option selected=""selected"">符号</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#162;"">&#162;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#163;"">&#163;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#165;"">&#165;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#166;"">&#166;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#169;"">&#169;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#174;"">&#174;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#176;"">&#176;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#177;"">&#177;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#183;"">&#183;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#171;"">&#171;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#187;"">&#187;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#188;"">&#188;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#189;"">&#189;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#190;"">&#190;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#247;"">&#247;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#8224;"">&#8224;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#8225;"">&#8225;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#8364;"">&#8364;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<option value=""&amp;#8482;"">&#8482;</option>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</select>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<td class=""WBTB_Btn"" TITLE=""字体颜色"" LANGUAGE=""javascript"" onclick=""WBTB_foreColor();"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img class=""WBTB_Ico"" src=""Editor/images/fgcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<td class=""WBTB_Btn"" TITLE=""字体背景颜色"" LANGUAGE=""javascript"" onclick=""WBTB_backColor();"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img class=""WBTB_Ico"" src=""Editor/images/fbcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<td class=""WBTB_Btn"" TITLE=""替换"" LANGUAGE=""javascript"" onclick=""WBTB_replace()"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img class=""WBTB_Ico"" src=""Editor/images/replace.gif"" WIDTH=""16"" HEIGHT=""16"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<td class=""WBTB_Btn"" TITLE=""插入表情"" LANGUAGE=""javascript"" onclick=""WBTB_foremot()"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img class=""WBTB_Ico"" src=""Editor/images/smiley.gif"" WIDTH=""16"" HEIGHT=""16"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<td class=""WBTB_Btn"" TITLE=""插入背景图片"" LANGUAGE=""javascript"" onclick=""WBTB_forbgpic()"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img class=""WBTB_Ico"" src=""Editor/images/bgpic.gif"" WIDTH=""16"" HEIGHT=""16"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)