htmleditor.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

                    <option value="Verdana">Verdana</option>
        </select></td>
            <td id="cell_FontSizeSelect"><select UNSELECTABLE = "on" size="1" id = "FontSizeSelect" name="FontSizeSelect" onChange = "btncommand('FontSizeSelect');" onfocus = "this.options[0].text='(大小)';">
          <option value="">(大小)</option>
          <option value="1">1 ( 8pt)</option>
          <option value="2">2 (10pt)</option>
          <option value="3" selected>3 (12pt)</option>
          <option value="4 ">4 (14pt)</option>
          <option value="5">5 (18pt)</option>
          <option value="6">6 (24pt)</option>
          <option value="7">7 (36pt)</option>
        </select></td>
      <td id="cell_FormatSelect" valign="middle" align="center" TITLE="Style" ><select size="1" id = "FormatSelect" name="FormatSelect" style="width: 75px" onChange = "btncommand('FormatSelect');" onfocus = "this.options[0].text='(标题)';">
          <option value="">(标题)</option>
          <option value="Normal" selected>Normal</option>
          <option value="已编排格式">已编排格式</option>
          <option value="地址">地址</option>
          <option value="标题 1">标题 1</option>
          <option value="标题 2">标题 2</option>
          <option value="标题 3">标题 3</option>
          <option value="标题 4">标题 4</option>
          <option value="标题 5">标题 5</option>
          <option value="标题 6">标题 6</option>
          <option value="带编号的列表">带编号列表</option>
          <option value="带项目符号的列表">带项目符号列表</option>
          <option value="目录列表">目录列表</option>
          <option value="菜单列表">菜单列表</option>
          <option value="术语定义">术语定义</option>
          <option value="定义">定义</option>
        </select></td>
		<td id="OtherFormat" valign="middle" align="center" TITLE="Style"><select id="OtherFormat" 
                style="width: 60; height: 18;" onchange="doSelectClick('FormatBlock',this,this.value);this.returnValue=false;" size="1" name="OtherFormat">
                    <option selected>(格式)</option>
                    <option value="SUP">上标</option>
                    <option value="SUB">下标</option>
                    <option value="DEL">删除线</option>
                    <option value="BIG">增大字体</option>
                    <option value="SMALL">减小字体</option>
                  </select></td>
			<td width="6"><IMG src="HtmlEditor/separator.gif" width="4" height="18"></td>  
            <td id="cell_btn_bold" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_bold" name = "btn_bold"  src="HtmlEditor/btn_bold.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="粗体"></td>
            <td id="cell_btn_italics" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_italics" name = "btn_italics" class="imgButton" src="HtmlEditor/btn_italics.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="斜体"></td>
            <td id="cell_btn_underline" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_underline" name = "btn_underline" class="imgButton" src="HtmlEditor/btn_underline.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="下划线"></td>
			<td width="4"><IMG src="HtmlEditor/separator.gif" width="4" height="18"></td>            
            <td id="cell_btn_left" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_left" name = "btn_left" class="imgButton" src="HtmlEditor/btn_left.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="左对齐"></td>
                  <td id="cell_btn_center" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_center" name = "btn_center" class="imgButton" src="HtmlEditor/btn_center.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="居中"></td>
            <td id="cell_btn_right" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_right" name = "btn_right" class="imgButton" src="HtmlEditor/btn_right.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="右对齐"></td>
			<td width="6"><IMG src="HtmlEditor/separator.gif" width="4" height="18"></td> 
			<td id="cell_btn_numlist" valign="middle" align="center" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_numlist" name = "btn_numlist" class="imgButton" src="HtmlEditor/btn_numlist.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="编号列表"></td>
      <td id="cell_btn_bltlist" valign="middle" align="center" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_bltlist" name = "btn_bltlist" class="imgButton" src="HtmlEditor/btn_bltlist.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="项目列表"></td>
      <td id="cell_btn_outdent" valign="middle" align="center" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_outdent" name = "btn_outdent" class="imgButton" src="HtmlEditor/btn_outdent.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="减少缩进"></td>
      <td id="cell_btn_indent" valign="middle" align="center" width="18"><img border="0" UNSELECTABLE = "on" id = "btn_indent" name = "btn_indent" class="imgButton" src="HtmlEditor/btn_indent.gif" onMouseOver="changebutton(this.name,2);" onMouseOut = "changebutton(this.name,0);" onMouseDown = "changebutton(this.name,3);" onMouseUp = "btncommand(this.name);" onDragStart = "btncommand(this.name);" alt="增加缩进"></td>
	   <td width="4"><IMG src="HtmlEditor/separator.gif" width="4" height="18"></td> 	    
       </tr>
        </table>
      </td>
    </tr>
  </table>
      </td>
    </tr>
    <tr>
      <td><IFRAME src="<%=HtmlBodyUrl%>" NAME="LatticeEditDocument" ID="LatticeEditDocument" CONTENTEDITABLE="true" width="100%" marginHeight=2 marginWidth=2 frameBorder=1></IFRAME>
	  <IFRAME src="about:blank" NAME="LatticeTemp" ID="LatticeTemp" CONTENTEDITABLE="true" WIDTH="1" HEIGHT="1"></IFRAME></td>
    </tr>
  </table>
  <map name="Map">
  <area shape="RECT" coords="51,1,92,15" href="#" onclick="return(SelectFormat('Html'));">    
  <area shape="RECT" coords="93,1,133,15" href="#" onclick="return(SelectFormat('Preview'));" >   
</map>    
<map name="Map2">    
  <area shape="RECT" coords="6,1,45,16" href="#" onclick="return(SelectFormat('Normal'));" >    
  <area shape="RECT" coords="93,1,133,15" href="#" onclick="return(SelectFormat('Preview'));">    
</map>    
<map name="Map3">    
  <area shape="RECT" coords="5,1,47,15" href="#" onclick="return(SelectFormat('Normal'));">    
  <area shape="RECT" coords="47,2,90,15" href="#" onclick="return(SelectFormat('Html'));">    
</map>
<div ID=Normal>    
<table width="100%" border="0" cellspacing="0" cellpadding="0" height=15>     
  <tr>     
    <td align="left"><IMG src="HtmlEditor/Normal.gif" useMap=#Map border=0 width="135" height="15"></td>    
    <td align="middle"><IMG src="HtmlEditor/ScrollL.gif" border=0 width="24" height="15"></td>    
    <td align="middle" width="100%" style="FILTER: Alpha(opacity=50); BACKGROUND-COLOR: white"></td>    
    <td align="right"><IMG src="HtmlEditor/ScrollR.gif" border=0 width="19" height="15"></td>    
  </tr>    
  </table>    
  </div>
<div ID=Html style="DISPLAY: none">    
<table width="100%" border="0" cellspacing="0" cellpadding="0" height=15>    
  <tr>     
    <td align="left"><IMG src="HtmlEditor/Html.gif" useMap=#Map2 border=0 width="135" height="15"></td>    
    <td align="middle"><IMG src="HtmlEditor/ScrollL.gif" border=0 width="24" height="15"></td>    
    <td align="middle" width="100%" style="FILTER: Alpha(opacity=50); BACKGROUND-COLOR: white"></td>
    <td align="right"><IMG src="HtmlEditor/ScrollR.gif" border=0 width="19" height="15"></td>    
  </tr>    
  </table>    
  </div>    
 <div ID=Preview style="DISPLAY: none">    
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height=15>    
  <tr>     
    <td align="left"><IMG src="HtmlEditor/Preview.gif" useMap=#Map3 border=0 width="135" height="15"></td>    
    <td align="middle"><IMG src="HtmlEditor/ScrollL.gif" border=0 width="24" height="15"></td>    
    <td align="middle" width="100%" style="FILTER: Alpha(opacity=50); BACKGROUND-COLOR: white"></td>    
    <td align="right"><IMG src="HtmlEditor/ScrollR.gif" border=0 width="19" height="15"></td>    
  </tr>    
  </table>      
  </div>   
<input type="hidden" name="LatticeHTML">
<input type="hidden" name="content" value="">
</td>
    </tr>
    <tr>
      <td class="tdbg2">&nbsp;</td>
      <td colspan="3" class="tdbg2">
        <input type="submit" name="Submit" value="提 交" onClick="document.myform.content.value = frames.LatticeEditDocument.document.body.innerHTML;"> 
		<input type=button value="预 览" name=Button onClick="javascript:htmlpreview()"> 
        <input type="reset" name="Submit2" value="重 置">
		<input name="isHtml" type="hidden" value="1">		
		<script>
		function htmlpreview(){
		document.preview.htmledit.value="1";
		document.preview.subject.value=document.myform.title.value;
		document.preview.body.value=frames.LatticeEditDocument.document.body.innerHTML;
		//document.preview.htmlcode.value=document.myform.ishtml.value;
		//var popupWin = window.open('preview.asp', 'preview_page', 'scrollbars=yes,width=780,height=450');
		document.preview.submit()
		}
		</script>
		<% if isedit then
		response.write "<input name=""updateTime"" type=""checkbox"" id=""updateTime"" value=""yes"" checked>更新文章时间"
		end if %>
              </td>
<% end sub %>