<%
Class HtmlEditor_Cls
	Public Sub Init_HtmlEditor()
		Response.Write "<link rel=""STYLESHEET"" type=""text/css"" href=""Editor/edit.css"">" & vbCrLf
		Response.Write "<script src=""Editor/edit.js"" type=""text/javascript""></script>" & vbCrLf
		Response.Write "<table ID='WBTB_Container' class=""WBTB_Body"" width=""100%"" height=300 cellpadding=3 cellspacing=0 border=0 >" & vbCrLf
		Response.Write "<tr id=""WBTB_Toolbars"">" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<table cellpadding=0 cellspacing=0>" & vbCrLf
		Response.Write "<tr class=""yToolbar"">" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<select ID=""WBTB_formatSelect"" class=""WBTB_TBGen"" onchange=""WBTB_doSelectClick('FormatBlock',this)"" >" & vbCrLf
		Response.Write "<option class=""heading"" selected>段落格式" & vbCrLf
		Response.Write "<option VALUE=""&lt;P&gt;"">Normal" & vbCrLf
		Response.Write "<option VALUE=""&lt;H1&gt;"">Heading 1" & vbCrLf
		Response.Write "<option VALUE=""&lt;H2&gt;"">Heading 2" & vbCrLf
		Response.Write "<option VALUE=""&lt;H3&gt;"">Heading 3" & vbCrLf
		Response.Write "<option VALUE=""&lt;H4&gt;"">Heading 4" & vbCrLf
		Response.Write "<option VALUE=""&lt;H5&gt;"">Heading 5" & vbCrLf
		Response.Write "<option VALUE=""&lt;H6&gt;"">Heading 6" & vbCrLf
		Response.Write "<option VALUE=""&lt;H7&gt;"">Heading 7" & vbCrLf
		Response.Write "<option VALUE=""&lt;PRE&gt;"">Formatted" & vbCrLf
		Response.Write "<option VALUE=""&lt;ADDRESS&gt;"">Address" & vbCrLf
		Response.Write "</select>" & vbCrLf
		Response.Write "<select language=""javascript"" class=""WBTB_TBGen"" id=""FontName"" onchange=""WBTB_format('fontname',this[this.selectedIndex].value);""> " & vbCrLf
		Response.Write "<option class=""heading"" selected>字体" & vbCrLf
		Response.Write "<option value=""宋体"">宋体" & vbCrLf
		Response.Write "<option value=""黑体"">黑体" & vbCrLf
		Response.Write "<option value=""楷体_GB2312"">楷体" & vbCrLf
		Response.Write "<option value=""仿宋_GB2312"">仿宋" & vbCrLf
		Response.Write "<option value=""隶书"">隶书" & vbCrLf
		Response.Write "<option value=""幼圆"">幼圆" & vbCrLf
		Response.Write "<option value=""新宋体"">新宋体" & vbCrLf
		Response.Write "<option value=""细明体"">细明体" & vbCrLf
		Response.Write "<option value=""Arial"">Arial" & vbCrLf
		Response.Write "<option value=""Arial Black"">Arial Black" & vbCrLf
		Response.Write "<option value=""Arial Narrow"">Arial Narrow" & vbCrLf
		Response.Write "<option value=""Bradley Hand ITC"">Bradley Hand ITC" & vbCrLf
		Response.Write "<option value=""Brush Script" & "MT"">Brush Script MT" & vbCrLf
		Response.Write "<option value=""Century Gothic"">Century Gothic" & vbCrLf
		Response.Write "<option value=""Comic Sans MS"">Comic Sans MS" & vbCrLf
		Response.Write "<option value=""Courier"">Courier" & vbCrLf
		Response.Write "<option value=""Courier New"">Courier New" & vbCrLf
		Response.Write "<option value=""MS Sans Serif"">MS Sans Serif" & vbCrLf
		Response.Write "<option value=""Script"">Script" & vbCrLf
		Response.Write "<option value=""System"">System" & vbCrLf
		Response.Write "<option value=""Times New Roman"">Times New Roman" & vbCrLf
		Response.Write "<option value=""Viner Hand ITC"">Viner Hand ITC" & vbCrLf
		Response.Write "<option value=""Verdana"">Verdana" & vbCrLf
		Response.Write "<option value=""Wide Latin"">Wide Latin" & vbCrLf
		Response.Write "<option value=""Wingdings"">Wingdings</option>" & vbCrLf
		Response.Write "</select>" & vbCrLf
		Response.Write "<select language=""javascript"" class=""WBTB_TBGen"" id=""FontSize"" onchange=""WBTB_format('fontsize',this[this.selectedIndex].value);"">" & vbCrLf
		Response.Write "<option class=""heading"" selected>字号" & vbCrLf
		Response.Write "<option value=""1"">1" & vbCrLf
		Response.Write "<option value=""2"">2" & vbCrLf
		Response.Write "<option value=""3"">3" & vbCrLf
		Response.Write "<option value=""4"">4" & vbCrLf
		Response.Write "<option value=""5"">5" & vbCrLf
		Response.Write "<option value=""6"">6" & vbCrLf
		Response.Write "<option value=""7"">7</option>" & vbCrLf
		Response.Write "</select>" & vbCrLf
		Response.Write "<select class=""WBTB_TBGen"" onchange=""WBTB_InsertSymbol(this[this.selectedIndex].innerText);this.selectedIndex=0;"">" & vbCrLf
		Response.Write "<option selected=""selected"">符号</option>" & vbCrLf
		Response.Write "<option value=""&amp;#162;"">&#162;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#163;"">&#163;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#165;"">&#165;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#166;"">&#166;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#169;"">&#169;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#174;"">&#174;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#176;"">&#176;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#177;"">&#177;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#183;"">&#183;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#171;"">&#171;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#187;"">&#187;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#188;"">&#188;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#189;"">&#189;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#190;"">&#190;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#247;"">&#247;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#8224;"">&#8224;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#8225;"">&#8225;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#8364;"">&#8364;</option>" & vbCrLf
		Response.Write "<option value=""&amp;#8482;"">&#8482;</option>" & vbCrLf
		Response.Write "</select>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""字体颜色"" LANGUAGE=""javascript"" onclick=""WBTB_foreColor();"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/fgcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""字体背景颜色"" LANGUAGE=""javascript"" onclick=""WBTB_backColor();"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/fbcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""替换"" LANGUAGE=""javascript"" onclick=""WBTB_replace()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/replace.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入表情"" LANGUAGE=""javascript"" onclick=""WBTB_foremot()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/smiley.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入背景图片"" LANGUAGE=""javascript"" onclick=""WBTB_forbgpic()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/bgpic.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""上传文件"" LANGUAGE=""javascript"" onclick=""WBTB_forfile()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/file.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "<table cellpadding=0 cellspacing=0 >" & vbCrLf
		Response.Write "<tr class=""yToolbar"" ID=""ExtToolbar"">" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""全选"" LANGUAGE=""javascript"" onclick=""WBTB_format1('selectAll');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/selectAll.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""剪切"" LANGUAGE=""javascript"" onclick=""WBTB_format1('cut');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/cut.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""复制"" LANGUAGE=""javascript"" onclick=""WBTB_format1('copy');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/copy.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""粘贴"" LANGUAGE=""javascript"" onclick=""WBTB_format1('paste');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/paste.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""撤消"" LANGUAGE=""javascript"" onclick=""WBTB_format1('undo');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/undo.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""恢复"" LANGUAGE=""javascript"" onclick=""WBTB_format1('redo');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/redo.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<img src=""Editor/images/separator.gif"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入表格"" LANGUAGE=""javascript"" onclick=""WBTB_fortable()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/table.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入行"" LANGUAGE=""javascript"" onclick=""WBTB_InsertRow()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/insertrow.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""删除行"" LANGUAGE=""javascript"" onclick=""WBTB_DeleteRow()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/deleterow.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入列"" LANGUAGE=""javascript"" onclick=""WBTB_InsertColumn()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/insertcolumn.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""删除列"" LANGUAGE=""javascript"" onclick=""WBTB_DeleteColumn()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/deletecolumn.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<img src=""Editor/images/separator.gif"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入超级链接"" LANGUAGE=""javascript"" onclick=""WBTB_UserDialog('CreateLink');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/wlink.gif"" WIDTH=""18"" HEIGHT=""18"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""去掉超级链接"" LANGUAGE=""javascript"" onclick=""WBTB_format1('Unlink');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/unlink.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入图片"" LANGUAGE=""javascript"" onclick=""WBTB_forimg();"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/img.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入水平线"" LANGUAGE=""javascript"" onclick=""WBTB_format('InsertHorizontalRule')"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/hr.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<img src=""Editor/images/separator.gif"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入Flash"" LANGUAGE=""javascript"" onclick=""WBTB_forswf()"" >" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/swf.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入Windows Media"" LANGUAGE=""javascript"" onclick=""WBTB_forwmv()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/wmv.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入Real Media"" LANGUAGE=""javascript"" onclick=""WBTB_forrm()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/rm.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "</td> " & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "<table cellpadding=0 cellspacing=0>" & vbCrLf
		Response.Write "<tr class=""yToolbar"">" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""加粗"" LANGUAGE=""javascript"" onclick=""WBTB_format('bold');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/bold.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""斜体"" LANGUAGE=""javascript"" onclick=""WBTB_format('italic');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/italic.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""下划线"" LANGUAGE=""javascript"" onclick=""WBTB_format('underline');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/underline.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""上标"" LANGUAGE=""javascript"" onclick=""WBTB_format('superscript');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/superscript.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""下标"" LANGUAGE=""javascript"" onclick=""WBTB_format('subscript');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/subscript.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""删除线"" LANGUAGE=""javascript"" onclick=""WBTB_format('strikethrough');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/strikethrough.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""取消格式"" LANGUAGE=""javascript"" onclick=""WBTB_format1('RemoveFormat');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/removeformat.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<img src=""Editor/images/separator.gif"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""左对齐"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifyleft');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/aleft.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""居中"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifycenter');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/center.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""右对齐"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifyright');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/aright.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<img src=""Editor/images/separator.gif"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""编号"" LANGUAGE=""javascript"" onclick=""WBTB_format('insertorderedlist');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/numlist.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""项目符号"" LANGUAGE=""javascript"" onclick=""WBTB_format('insertunorderedlist');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/bullist.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""减少缩进量"" LANGUAGE=""javascript"" onclick=""WBTB_format('outdent');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/outdent.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""增加缩进量"" LANGUAGE=""javascript"" onclick=""WBTB_format('indent');"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/indent.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<img src=""Editor/images/separator.gif"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入引用"" LANGUAGE=""javascript"" onclick=""WBTB_specialtype('<div class=quote>','</div>')""><img class=""WBTB_Ico"" src=""Editor/images/quote.gif"" WIDTH=""16"" HEIGHT=""16""></td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入代码"" LANGUAGE=""javascript"" onclick=""WBTB_code()"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/code.gif"" WIDTH=""16"" HEIGHT=""16"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""插入滚动字幕"" LANGUAGE=""javascript"" onclick=""WBTB_marquee();"">" & vbCrLf
		Response.Write "<img class=""WBTB_Ico"" src=""Editor/images/marquee.gif"" WIDTH=""20"" HEIGHT=""20"">" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "<td class=""WBTB_Btn"" TITLE=""清除htm代码"" LANGUAGE=""javascript"" onclick=""WBTB_CleanAllHtm();""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/cleancode.gif"" WIDTH=""16"" HEIGHT=""16""></td>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr>" & vbCrLf
		Response.Write "<td height=""100%""><input type=""hidden"" id=""richtext"" name=""richtext"">" & vbCrLf
		Response.Write "<iframe class=""WBTB_Composition"" ID=""WBTB_Composition"" onblur=""WBTB_CopyData('Body');"" MARGINHEIGHT=""5"" MARGINWIDTH=""5"" width=""100%"" height=""100%""></iframe>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 width='100%'>" & vbCrLf
		Response.Write " <TR> " & vbCrLf
		Response.Write " <TD width='10'>&nbsp;</TD>" & vbCrLf
		Response.Write " <TD CLASS=""WBTB_TabOn"" id=""WBTB_TabDesign"" onClick=""if (WBTB_bTextMode) {WBTB_setMode();}"" unselectable=""on"" width='50'><IMG unselectable=""on"" SRC=""Editor/images/modeedit.gif"" ALIGN=""absmiddle"" width=50 height=15></TD>" & vbCrLf
		Response.Write " <td style=""width:10px""></td>" & vbCrLf
		Response.Write " <TD CLASS=""WBTB_TabOff"" id=""WBTB_TabHtml"" onClick=""if (!WBTB_bTextMode) {WBTB_setMode();}"" unselectable=""on"" width='50'><IMG unselectable=""on"" SRC=""Editor/images/modecode.gif"" ALIGN=""absmiddle"" width=50 height=15></TD>" & vbCrLf
		Response.Write " <td style=""width:10px""></td>" & vbCrLf
		Response.Write " <TD CLASS=""WBTB_TabOff"" id=""WBTB_TabView"" onClick=""WBTB_View();"" unselectable=""on"" width='50'> " & vbCrLf
		Response.Write " <IMG unselectable=""on"" SRC=""Editor/images/modepreview.gif"" ALIGN=""absmiddle"" width=50 height=15> " & vbCrLf
		Response.Write " </TD>" & vbCrLf
		Response.Write " <TD align='right'><a href=""javascript:WBTB_Size(-300)""><img src=""Editor/images/minus.gif"" unselectable=""on"" border='0'></a> " & vbCrLf
		Response.Write " <a href=""javascript:WBTB_Size(300)""><img src=""Editor/images/plus.gif"" unselectable=""on"" border='0'></a></TD>" & vbCrLf
		Response.Write " <TD width='20'></TD>" & vbCrLf
		Response.Write " </TR>" & vbCrLf
		Response.Write " </TABLE>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "<script language=""javascript"">" & vbCrLf
		Response.Write "<!--//" & vbCrLf
		Response.Write "var DownsysClass_bIsIE5=document.all" & vbCrLf
		Response.Write "if (DownsysClass_bIsIE5){" & vbCrLf
		Response.Write "var editor=frames[""WBTB_Composition""];" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "else{" & vbCrLf
		Response.Write "var editor=document.getElementById(""WBTB_Composition"").contentWindow;" & vbCrLf
		Response.Write "var DownsysClass_bIsNC=true;" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "if (WBTB_bLoad==false)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "WBTB_InitDocument(""Body"",""GB2312"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "//-->"
		Response.Write "</script>" & vbCrLf
	End Sub

	Public Sub Init_HtmlEdit()
		Response.Write "<link rel=""STYLESHEET"" type=""text/css"" href=""Editor/edit.css"">" & vbCrLf
		Response.Write "<script src=""Editor/edit.js"" type=""text/javascript""></script>" & vbCrLf
		Response.Write "<table ID='WBTB_Container' class=""WBTB_Body"" width=""100%"" height=300 cellpadding=3 cellspacing=0 border=0 >" & vbCrLf
		Response.Write "<tr id=""WBTB_Toolbars"">" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write " <table cellpadding=0 cellspacing=0>" & vbCrLf
		Response.Write " <tr class=""yToolbar""> " & vbCrLf
		Response.Write " <td> <select language=""javascript"" class=""WBTB_TBGen"" id=""FontSize"" onchange=""WBTB_format('fontsize',this[this.selectedIndex].value);"">" & vbCrLf
		Response.Write " <option class=""heading"" selected>字号 " & vbCrLf
		Response.Write " <option value=""1"">1 " & vbCrLf
		Response.Write " <option value=""2"">2 " & vbCrLf
		Response.Write " <option value=""3"">3 " & vbCrLf
		Response.Write " <option value=""4"">4 " & vbCrLf
		Response.Write " <option value=""5"">5 " & vbCrLf
		Response.Write " <option value=""6"">6 " & vbCrLf
		Response.Write " <option value=""7"">7</option>" & vbCrLf
		Response.Write " </select> </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""加粗"" LANGUAGE=""javascript"" onclick=""WBTB_format('bold');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/bold.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""斜体"" LANGUAGE=""javascript"" onclick=""WBTB_format('italic');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/italic.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""下划线"" LANGUAGE=""javascript"" onclick=""WBTB_format('underline');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/underline.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""取消格式"" LANGUAGE=""javascript"" onclick=""WBTB_format1('RemoveFormat');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/removeformat.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""左对齐"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifyleft');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/aleft.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""居中"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifycenter');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/center.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""右对齐"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifyright');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/aright.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""字体颜色"" LANGUAGE=""javascript"" onclick=""WBTB_foreColor();""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/fgcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""字体背景颜色"" LANGUAGE=""javascript"" onclick=""WBTB_backColor();""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/fbcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""插入超级链接"" LANGUAGE=""javascript"" onclick=""WBTB_UserDialog('CreateLink')""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/wlink.gif"" WIDTH=""18"" HEIGHT=""18"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""去掉超级链接"" LANGUAGE=""javascript"" onclick=""WBTB_format1('Unlink');""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/unlink.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""插入表情"" LANGUAGE=""javascript"" onclick=""WBTB_foremot()""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/smiley.gif"" WIDTH=""16"" HEIGHT=""16""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""插入滚动字幕"" LANGUAGE=""javascript"" onclick=""WBTB_marquee();""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/marquee.gif"" WIDTH=""20"" HEIGHT=""20""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""插入引用"" LANGUAGE=""javascript"" onclick=""WBTB_specialtype('<div class=quote>','</div>')""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/quote.gif"" WIDTH=""16"" HEIGHT=""16""></td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""清除htm代码"" LANGUAGE=""javascript"" onclick=""WBTB_CleanAllHtm();""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/cleancode.gif"" WIDTH=""16"" HEIGHT=""16""></td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""上传文件"" LANGUAGE=""javascript"" onclick=""WBTB_forfile()""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/file.gif"" WIDTH=""16"" HEIGHT=""16""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " <td class=""WBTB_Btn"" TITLE=""插入图片"" LANGUAGE=""javascript"" onclick=""WBTB_forimg();""> " & vbCrLf
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/img.gif"" WIDTH=""16"" HEIGHT=""16""> " & vbCrLf
		Response.Write " </td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " </table>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr>" & vbCrLf
		Response.Write "<td height=""100%""><input type=""hidden"" id=""richtext"" name=""richtext"">" & vbCrLf
		Response.Write "<iframe class=""WBTB_Composition"" ID=""WBTB_Composition"" onblur=""WBTB_CopyData('Body');"" MARGINHEIGHT=""5"" MARGINWIDTH=""5"" width=""100%"" height=""100%""></iframe>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "<tr>" & vbCrLf
		Response.Write "<td>" & vbCrLf
		Response.Write "<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 width='100%'>" & vbCrLf
		Response.Write " <TR> " & vbCrLf
		Response.Write " <TD width='10'>&nbsp;</TD>" & vbCrLf
		Response.Write " <TD CLASS=""WBTB_TabOn"" id=""WBTB_TabDesign"" onClick=""if (WBTB_bTextMode) {WBTB_setMode();}"" unselectable=""on"" width='50'><IMG unselectable=""on"" SRC=""Editor/images/modeedit.gif"" ALIGN=""absmiddle"" width=50 height=15></TD>" & vbCrLf
		Response.Write " <td style=""width:10px""></td>" & vbCrLf
		Response.Write " <TD CLASS=""WBTB_TabOff"" id=""WBTB_TabHtml"" onClick=""if (!WBTB_bTextMode) {WBTB_setMode();}"" unselectable=""on"" width='50'><IMG unselectable=""on"" SRC=""Editor/images/modecode.gif"" ALIGN=""absmiddle"" width=50 height=15></TD>" & vbCrLf
		Response.Write " <td style=""width:10px""></td>" & vbCrLf
		Response.Write " <TD CLASS=""WBTB_TabOff"" id=""WBTB_TabView"" onClick=""WBTB_View();"" unselectable=""on"" width='50'> " & vbCrLf
		Response.Write " <IMG unselectable=""on"" SRC=""Editor/images/modepreview.gif"" ALIGN=""absmiddle"" width=50 height=15> " & vbCrLf
		Response.Write " </TD>" & vbCrLf
		Response.Write " <TD align='right'><a href=""javascript:WBTB_Size(-300)""><img src=""Editor/images/minus.gif"" unselectable=""on"" border='0'></a> " & vbCrLf
		Response.Write " <a href=""javascript:WBTB_Size(300)""><img src=""Editor/images/plus.gif"" unselectable=""on"" border='0'></a></TD>" & vbCrLf
		Response.Write " <TD width='20'></TD>" & vbCrLf
		Response.Write " </TR>" & vbCrLf
		Response.Write " </TABLE>" & vbCrLf
		Response.Write "</td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Response.Write "<script language=""javascript"">" & vbCrLf
		Response.Write "<!--//" & vbCrLf
		Response.Write "var DownsysClass_bIsIE5=document.all" & vbCrLf
		Response.Write "if (DownsysClass_bIsIE5){" & vbCrLf
		Response.Write "var editor=frames[""WBTB_Composition""];" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "else{" & vbCrLf
		Response.Write "var editor=document.getElementById(""WBTB_Composition"").contentWindow;" & vbCrLf
		Response.Write "var DownsysClass_bIsNC=true;" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "if (WBTB_bLoad==false)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write "WBTB_InitDocument(""Body"",""GB2312"");" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "//-->"
		Response.Write "</script>"
	End Sub
End Class

%>
