nc_htmleditcls.asp

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

		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img class=""WBTB_Ico"" src=""Editor/images/aleft.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=""居中"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifycenter');"">" & 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/center.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=""右对齐"" NAME=""Justify"" LANGUAGE=""javascript"" onclick=""WBTB_format('justifyright');"">" & 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/aright.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>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img src=""Editor/images/separator.gif"">" & 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_format('insertorderedlist');"">" & 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/numlist.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_format('insertunorderedlist');"">" & 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/bullist.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_format('outdent');"">" & 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/outdent.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_format('indent');"">" & 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/indent.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>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "<img src=""Editor/images/separator.gif"">" & 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_specialtype('<div class=quote>','</div>')""><img class=""WBTB_Ico"" src=""Editor/images/quote.gif"" WIDTH=""16"" HEIGHT=""16""></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_code()"">" & 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/code.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_marquee();"">" & 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/marquee.gif"" WIDTH=""20"" HEIGHT=""20"">" & 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=""清除htm代码"" LANGUAGE=""javascript"" onclick=""WBTB_CleanAllHtm();""> " & Chr(13) & Chr(10)
		Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/cleancode.gif"" WIDTH=""16"" HEIGHT=""16""></td>" & 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>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & Chr(9) & "</tr>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & "</table>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "</tr>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "<tr>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & "<td height=""100%""><input type=""hidden"" id=""richtext"" name=""richtext"">" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & Chr(9) & "<iframe class=""WBTB_Composition"" ID=""WBTB_Composition"" onblur=""WBTB_CopyData('Body');"" MARGINHEIGHT=""5"" MARGINWIDTH=""5"" width=""100%"" height=""100%""></iframe>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "</tr>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "<tr>" & 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 BORDER=0 width='100%'>" & Chr(13) & Chr(10)
		Response.Write " <TR> " & Chr(13) & Chr(10)
		Response.Write " <TD width='10'>&nbsp;</TD>" & Chr(13) & Chr(10)
		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>" & Chr(13) & Chr(10)
		Response.Write " <td style=""width:10px""></td>" & Chr(13) & Chr(10)
		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>" & Chr(13) & Chr(10)
		Response.Write " <td style=""width:10px""></td>" & Chr(13) & Chr(10)
		Response.Write " <TD CLASS=""WBTB_TabOff"" id=""WBTB_TabView"" onClick=""WBTB_View();"" unselectable=""on"" width='50'> " & Chr(13) & Chr(10)
		Response.Write " <IMG unselectable=""on"" SRC=""Editor/images/modepreview.gif"" ALIGN=""absmiddle"" width=50 height=15> " & Chr(13) & Chr(10)
		Response.Write " </TD>" & Chr(13) & Chr(10)
		Response.Write " <TD align='right'><a href=""javascript:WBTB_Size(-300)""><img src=""Editor/images/minus.gif"" unselectable=""on"" border='0'></a> " & Chr(13) & Chr(10)
		Response.Write " <a href=""javascript:WBTB_Size(300)""><img src=""Editor/images/plus.gif"" unselectable=""on"" border='0'></a></TD>" & Chr(13) & Chr(10)
		Response.Write " <TD width='20'></TD>" & Chr(13) & Chr(10)
		Response.Write " </TR>" & Chr(13) & Chr(10)
		Response.Write " </TABLE>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & Chr(9) & "</td>" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "</tr>" & Chr(13) & Chr(10)
		Response.Write "</table>" & Chr(13) & Chr(10)
		Response.Write "<script language=""javascript"">" & Chr(13) & Chr(10)
		Response.Write "<!--//" & Chr(13) & Chr(10)
		Response.Write "var DownsysClass_bIsIE5=document.all" & Chr(13) & Chr(10)
		Response.Write "if (DownsysClass_bIsIE5){" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "var editor=frames[""WBTB_Composition""];" & Chr(13) & Chr(10)
		Response.Write "}" & Chr(13) & Chr(10)
		Response.Write "else{" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "var editor=document.getElementById(""WBTB_Composition"").contentWindow;" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "var DownsysClass_bIsNC=true;" & Chr(13) & Chr(10)
		Response.Write "}" & Chr(13) & Chr(10)
		Response.Write "if (WBTB_bLoad==false)" & Chr(13) & Chr(10)
		Response.Write "{" & Chr(13) & Chr(10)
		Response.Write Chr(9) & "WBTB_InitDocument(""Body"",""GB2312"");" & Chr(13) & Chr(10)
		Response.Write "}" & Chr(13) & Chr(10)
		Response.Write "//-->"
		Response.Write "</script>" & Chr(13) & Chr(10)
	End Sub

	Public Sub Init_HtmlEdit()
		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 " <table cellpadding=0 cellspacing=0>" & Chr(13) & Chr(10)
		Response.Write " <tr class=""yToolbar""> " & Chr(13) & Chr(10)
		Response.Write " <td> <select language=""javascript"" class=""WBTB_TBGen"" id=""FontSize"" onchange=""WBTB_format('fontsize',this[this.selectedIndex].value);"">" & Chr(13) & Chr(10)
		Response.Write " <option class=""heading"" selected>字号 " & Chr(13) & Chr(10)
		Response.Write " <option value=""1"">1 " & Chr(13) & Chr(10)
		Response.Write " <option value=""2"">2 " & Chr(13) & Chr(10)
		Response.Write " <option value=""3"">3 " & Chr(13) & Chr(10)
		Response.Write " <option value=""4"">4 " & Chr(13) & Chr(10)
		Response.Write " <option value=""5"">5 " & Chr(13) & Chr(10)
		Response.Write " <option value=""6"">6 " & Chr(13) & Chr(10)
		Response.Write " <option value=""7"">7</option>" & Chr(13) & Chr(10)