<%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)
Response.Write " </select> </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""加粗"" LANGUAGE=""javascript""
onclick=""WBTB_format('bold');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/bold.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""斜体"" LANGUAGE=""javascript""
onclick=""WBTB_format('italic');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/italic.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""下划线"" LANGUAGE=""javascript""
onclick=""WBTB_format('underline');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/underline.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""取消格式"" LANGUAGE=""javascript""
onclick=""WBTB_format1('RemoveFormat');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/removeformat.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""左对齐"" NAME=""Justify"" LANGUAGE=""javascript""
onclick=""WBTB_format('justifyleft');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/aleft.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""居中"" NAME=""Justify"" LANGUAGE=""javascript""
onclick=""WBTB_format('justifycenter');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/center.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""右对齐"" NAME=""Justify"" LANGUAGE=""javascript""
onclick=""WBTB_format('justifyright');""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/aright.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""字体颜色"" LANGUAGE=""javascript""
onclick=""WBTB_foreColor();""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/fgcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""字体背景颜色"" LANGUAGE=""javascript""
onclick=""WBTB_backColor();""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/fbcolor.gif"" WIDTH=""16"" HEIGHT=""16"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""插入超级链接"" LANGUAGE=""javascript""
onclick=""WBTB_UserDialog('CreateLink')""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/wlink.gif"" WIDTH=""18"" HEIGHT=""18"" unselectable=""on""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""插入滚动字幕"" LANGUAGE=""javascript""
onclick=""WBTB_marquee();""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/marquee.gif"" WIDTH=""20"" HEIGHT=""20""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""插入引用"" LANGUAGE=""javascript""
onclick=""WBTB_specialtype('<div class=quote>','</div>')""> " & Chr(13) & Chr(10)
Response.Write " <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) & " <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 " <td class=""WBTB_Btn"" TITLE=""上传文件"" LANGUAGE=""javascript""
onclick=""WBTB_forfile()""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/file.gif"" WIDTH=""16"" HEIGHT=""16""> " & Chr(13) & Chr(10)
Response.Write " </td>" & Chr(13) & Chr(10)
Response.Write " <td class=""WBTB_Btn"" TITLE=""插入图片"" LANGUAGE=""javascript""
onclick=""WBTB_forimg();""> " & Chr(13) & Chr(10)
Response.Write " <img class=""WBTB_Ico"" src=""Editor/images/img.gif"" WIDTH=""16"" HEIGHT=""16""> " & Chr(13) & Chr(10)
Response.Write " </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 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'> </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 Newasp_bIsIE5=document.all" & Chr(13) & Chr(10)
Response.Write "if (Newasp_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 Newasp_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>"
End Sub
End Class
%>
ìøÀ`Ç bbs.ikaka.comhûÅïÚâ+y
