自己写的html编辑器

最新推荐文章于 2022-04-08 09:58:32 发布
最新推荐文章于 2022-04-08 09:58:32 发布
阅读量1.5k 收藏
点赞数
文章标签： html function javascript input class border
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lvlingwy/article/details/1643909
版权

文件夹 edithtml （包含6个文件）

inputtool.html 

< style >
body{margin:0px;font-size:12px;}
.lv_edithtml_title{background-color:#F7F8FD;}
.ico{border:1px solid #fff;cursor:hand;}
.ico_m{border:1px solid #000;cursor:hand;}
 </ style >
< div  class ="lv_edithtml_title" >
< img  class ="ico"  src ="edithtml_include/images/bold.gif"  alt ="粗体"  onClick ="format('Bold','');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/italic.gif"  alt ="斜体"  onClick ="format('Italic','');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/underline.gif"  alt ="下划线"  onClick ="format('Underline','');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/fgcolor.gif"  alt ="设置字体颜色"  onClick ="insert('color');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/aleft.gif"  alt ="格式居左"  onClick ="format('justifyleft','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/center.gif"  alt ="格式居中"  onClick ="format('justifycenter','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/aright.gif"  alt ="格式居右"  onClick ="format('justifyright','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/copy.gif"  alt ="复制"  onClick ="format('copy','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/cut.gif"  alt ="剪切"  onClick ="format('cut','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/paste.gif"  alt ="粘贴"  onClick ="format('paste','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/delete.gif"  alt ="删除"  onClick ="format('delete','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/redo.gif"  alt ="恢复"  onClick ="format('redo','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/undo.gif"  alt ="撤销"  onClick ="format('undo','')"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/wlink.gif"  alt ="插入链接"  onClick ="format('CreateLink','');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/hr.gif"  alt ="插入水平线"  onClick ="format('InsertHorizontalRule','');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />

< img  class ="ico"  src ="edithtml_include/images/img.gif"  alt ="插入图片"  onClick ="insert('img');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/flash.gif"  alt ="插入动画"  onClick ="insert('flash');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< img  class ="ico"  src ="edithtml_include/images/wmv.gif"  alt ="插入节目"  onClick ="insert('avi');"  onMouseOut ="this.className = 'ico';"  onMouseOver ="this.className = 'ico_m';"   />
< br >
< select  id ="FontName"  class ="TBGen"  onChange ="format('fontname',this[this.selectedIndex].value);this.selectedIndex=0" >
   < option  selected > 字体 </ option >
   < option  value ="宋体" > 宋体 </ option >
   < option  value ="黑体" > 黑体 </ option >
   < option  value ="楷体_GB2312" > 楷体 </ option >
   < option  value ="仿宋_GB2312" > 仿宋 </ option >
   < option  value ="隶书" > 隶书 </ option >
   < option  value ="幼圆" > 幼圆 </ option >
   < option  value ="Arial" > Arial </ option >
   < option  value ="Arial Black" > Arial Black </ option >
   < option  value ="Arial Narrow" > Arial Narrow </ option >
   < option  value ="Brush Script    MT" > Brush Script MT </ option >
   < option  value ="Century Gothic" > Century Gothic </ option >
   < option  value ="Comic Sans MS" > Comic Sans MS </ option >
   < option  value ="Courier" > Courier </ option >
   < option  value ="Courier New" > Courier New </ option >
   < option  value ="MS Sans Serif" > MS Sans Serif </ option >
   < option  value ="Script" > Script </ option >
   < option  value ="System" > System </ option >
   < option  value ="Times New Roman" > Times New Roman </ option >
   < option  value ="Verdana" > Verdana </ option >
   < option  value ="Wide    Latin" > Wide Latin </ option >
   < option  value ="Wingdings" > Wingdings </ option >
  </ select >
  < select  id ="FontSize"  class ="TBGen"  onChange ="format('fontsize',this[this.selectedIndex].value);this.selectedIndex=0" >
   < option  selected > 字号 </ option >
   < option  value ="7" > 一号 </ option >
   < option  value ="6" > 二号 </ option >
   < option  value ="5" > 三号 </ option >
   < option  value ="4" > 四号 </ option >
   < option  value ="3" > 五号 </ option >
   < option  value ="2" > 六号 </ option >
   < option  value ="1" > 七号 </ option >
  </ select >
</ div >

编码转换文件 edithtml.asp

 

< %
 function  CovHtml(content)
 ON   ERROR   RESUME   NEXT
CovHtml = content
 if   not   isnull (content)  then
CovHtml = replace (CovHtml, " & " , " &amp; " )
CovHtml = replace (CovHtml, " < " , " &lt; " )
CovHtml = replace (CovHtml, " > " , " &gt; " )
CovHtml = replace (CovHtml, chr ( 34 ), " &quot; " )
CovHtml = replace (CovHtml, chr ( 39 ), " &#39; " )
 end   if
if  Err.Number  <> 0   then
CovHtml =   " CovHtml转换中出错请联系管理员<br> "
Err.Clear
 end   if
end function
% >

 js文件 edit.js

 

//  JavaScript Document
var  bodyTag = " <head><style type="text/css">body {font-size:    9pt}</style><meta http-equiv=Content-Type content="text/html; charset=gb2312"></head><BODY bgcolor="#FFFFFF" MONOSPACE> "
function  document.onreadystatechange() {
  HtmlEdit.document.open()
  HtmlEdit.document.write(bodyTag);
  HtmlEdit.document.close()
  HtmlEdit.document.designMode="On"
}
function  format(what,value) {
if(what != ""){
    if(value != ""){
        HtmlEdit.document.execCommand(what,"",value);
    }else{
        HtmlEdit.document.execCommand(what);
    }
}
HtmlEdit.focus();
}
function  insert(what) {
if(what == "img"){
var arr = showModalDialog("edithtml_include/images/image.htm","","dialogWidth:430px;dialogHeight:230px;status:0");
    if (arr != null){
        content=HtmlEdit.document.body.innerHTML;        
        content=content+arr;
        HtmlEdit.document.body.innerHTML=content;
    }
}else if(what == "flash"){
var arr = showModalDialog("edithtml_include/images/flash.htm","","dialogWidth:430px;dialogHeight:200px;status:0");
    if (arr != null){
        content=HtmlEdit.document.body.innerHTML;        
        content=content+arr;
        HtmlEdit.document.body.innerHTML=content;
    }
}else if(what == "avi"){
var arr = showModalDialog("edithtml_include/images/video.htm","","dialogWidth:430px;dialogHeight:200px;status:0");
    if (arr != null){
        content=HtmlEdit.document.body.innerHTML;        
        content=content+arr;
        HtmlEdit.document.body.innerHTML=content;
    }
}else if(what == "color"){
     var arr = showModalDialog("edithtml_include/images/select.htm","","dialogWidth:18.5em; dialogHeight:17.5em; status:0");
      if (arr != null) format('forecolor', arr);
}
HtmlEdit.focus();
}
function  CheckForm() {
content=HtmlEdit.document.body.innerHTML; 
document.form_edit.remark.value = content;
}
function  loadForm() {
  HtmlEdit.document.body.innerHTML=document.form_edit.remark.value;
}
setTimeout( ' loadForm(); ' , 1000 );

包含upfile文件夹来负责上传文件功能

upfile/upfile.html

< style  type ="text/css" >
<!--
body {
    background-color: #D4D0C8;
    margin:0px;
    font-size:12px;
}
-->
 </ style >< form  action ="upfilewrite.asp"  method ="post"  enctype ="multipart/form-data"  style ="margin:0px;" >
选择本地文件： < input  type ="file"  name ="FileName" >< input  type ="submit"  name ="Submit"  value ="上传"  onclick ="javascript:showzt.style.display='';" >
</ form >
< div  id ="showzt"  style ="color:#ff0000;display:none;text-algin:center;" > 正在上传,请耐心等待...... </ div >

upfile/upfilewrite.asp

 

< % Server.ScriptTimeout  =   9999999  % >
< style type = " text/css " >
< ! --
body {
    background - color: #D4D0C8;
    margin:0px;
    font - size:12px;
}
 -->
</ style >
< ! -- #include file = " upload.inc " -->
< % 
    err.Clear
    nPath = server.MapPath( " /edithtml_include/upfile/up_file/ " )
     set  upl = new  upload_5xsoft
     set  file = upl.file( " FileName " )
     If  file.fileSize > 0    then
                 Randomize                 
                cfileName = file.fileName
                 if   instr ( UCase (cfileName), " .ASP " ) > 0   Or   instr ( UCase (cfileName), " .EXE " ) > 0   then  
                % >
                 < script language = ' javascript'>
                alert( ' 文件类型不合法！请重新选择文件');
                this.location.href = ' upfile.html';
                 </ script >                 
                 < %
                response.end
                 end   if  
                upfilename = split (file.fileName, " . " )
                namekzm = upfilename( ubound (upfilename))
                filename = " edit_ " & replace ( replace ( replace ( now (), " - " , "" ), " : " , "" ), "   " , "" ) & " . " & namekzm
                file.saveAs npath & " " & filename
         End   If
           If  err.Number =   0   Then
        % >
< script language = ' javascript'>
        var filename  =   " <%=filename%> "
        var webpath  =  document.location.href;
         // http: // lvlingwy.u - vv.com / work / syradioword / edithtml_include / upfile / upfilewrite.asp
        var getpath  =  webpath.substr( 0 ,webpath.indexOf( ' upfile/')+7)
        var newfilepath  =  getpath  +   " up_file/ "   +  filename ;
        parent.imgurl.value  =   newfilepath;
        parent.showupfileinput();
        this.location.href = ' upfile.html';
</ script >
           < % Else % >
                 < script language = ' javascript'>
                alert( ' 文件上传失败，请重新上传');
                this.location.href = ' upfile.html';
                 </ script >         
         < % End   If % >

无组件上传 upload.inc

< SCRIPT RUNAT = SERVER LANGUAGE = VBSCRIPT >
dim  upfile_5xSoft_Stream

Class upload_5xSoft
  
 dim  Form,File,Version
  
 Private   Sub  Class_Initialize 
 dim  iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile
 dim  strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr
Version = " 化境编程界HTTP上传程序 Version 1.0 "
if  Request.TotalBytes < 1   then   Exit   Sub
set  Form = CreateObject ( " Scripting.Dictionary " )
 set  File = CreateObject ( " Scripting.Dictionary " )
 set  upfile_5xSoft_Stream = CreateObject ( " Adodb.Stream " )
upfile_5xSoft_Stream.mode = 3
upfile_5xSoft_Stream.type = 1
upfile_5xSoft_Stream.open
upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)

vbEnter = Chr ( 13 ) & Chr ( 10 )
iDivLen = inString( 1 ,vbEnter) + 1
strDiv = subString( 1 ,iDivLen)
iFormStart = iDivLen
iFormEnd = inString(iformStart,strDiv) - 1
while  iFormStart  <  iFormEnd
  iStart = inString(iFormStart, " name="" " )
  iEnd = inString(iStart + 6 , " "" " )
  mFormName = subString(iStart + 6 ,iEnd - iStart - 6 )
  iFileNameStart = inString(iEnd + 1 , " filename="" " )
   if  iFileNameStart > 0   and  iFileNameStart < iFormEnd  then
   iFileNameEnd = inString(iFileNameStart + 10 , " "" " )
   mFileName = subString(iFileNameStart + 10 ,iFileNameEnd - iFileNameStart - 10 )
   iStart = inString(iFileNameEnd + 1 ,vbEnter & vbEnter)
   iEnd = inString(iStart + 4 ,vbEnter & strDiv)
    if  iEnd > iStart  then
    mFileSize = iEnd - iStart - 4
    else
    mFileSize = 0
    end   if
    set  theFile = new  FileInfo
   theFile.FileName = getFileName(mFileName)
   theFile.FilePath = getFilePath(mFileName)
   theFile.FileSize = mFileSize
   theFile.FileStart = iStart + 4
   theFile.FormName = FormName
   file.add mFormName,theFile
   else
   iStart = inString(iEnd + 1 ,vbEnter & vbEnter)
   iEnd = inString(iStart + 4 ,vbEnter & strDiv)

    if  iEnd > iStart  then
    mFormValue = subString(iStart + 4 ,iEnd - iStart - 4 )
    else
    mFormValue = ""  
    end   if
   form.Add mFormName,mFormValue
   end   if

  iFormStart = iformEnd + iDivLen
  iFormEnd = inString(iformStart,strDiv) - 1
wend
End Sub

Private   Function  subString(theStart,theLen)
  dim  i,c,stemp
 upfile_5xSoft_Stream.Position = theStart - 1
 stemp = ""
  for  i = 1   to  theLen
    if  upfile_5xSoft_Stream.EOS  then   Exit   for
   c = ascB(upfile_5xSoft_Stream.Read( 1 ))
    If  c  >   127   Then
     if  upfile_5xSoft_Stream.EOS  then   Exit   for
    stemp = stemp & Chr (AscW(ChrB(AscB(upfile_5xSoft_Stream.Read( 1 ))) & ChrB(c)))
    i = i + 1
    else
    stemp = stemp & Chr (c)
    End   If
  Next
 subString = stemp
 End function

Private   Function  inString(theStart,varStr)
  dim  i,j,bt,theLen,str
 InString = 0
 Str = toByte(varStr)
 theLen = LenB(Str)
  for  i = theStart  to  upfile_5xSoft_Stream.Size - theLen
    if  i > upfile_5xSoft_Stream.size  then   exit   Function
   upfile_5xSoft_Stream.Position = i - 1
    if  AscB(upfile_5xSoft_Stream.Read( 1 )) = AscB(midB(Str, 1 ))  then
    InString = i
     for  j = 2   to  theLen
       if  upfile_5xSoft_Stream.EOS  then  
        inString = 0
         Exit   for
       end   if
       if  AscB(upfile_5xSoft_Stream.Read( 1 )) <> AscB(MidB(Str,j, 1 ))  then
        InString = 0
         Exit   For
       end   if
     next
     if  InString <> 0   then   Exit   Function
    end   if
  next
End Function

Private   Sub  Class_Terminate  
  form.RemoveAll
  file.RemoveAll
   set  form = nothing
   set  file = nothing
  upfile_5xSoft_Stream.close
   set  upfile_5xSoft_Stream = nothing
End Sub
   
 
  Private   function  GetFilePath(FullPath)
   If  FullPath  <>   ""   Then
   GetFilePath  =   left (FullPath, InStrRev (FullPath,  " " ))
   Else
   GetFilePath  =   ""
   End   If
  End    function
 
  Private   function  GetFileName(FullPath)
   If  FullPath  <>   ""   Then
   GetFileName  =   mid (FullPath, InStrRev (FullPath,  " " ) + 1 )
   Else
   GetFileName  =   ""
   End   If
  End    function

  Private   function  toByte(Str)
    dim  i,iCode,c,iLow,iHigh
   toByte = ""
    For  i = 1   To   Len (Str)
   c = mid (Str,i, 1 )
   iCode  = Asc (c)
    If  iCode < 0   Then  iCode  =  iCode  +   65535
    If  iCode > 255   Then
     iLow  =   Left ( Hex ( Asc (c)), 2 )
     iHigh  = Right ( Hex ( Asc (c)), 2 )
     toByte  =  toByte  &  chrB( " &H " & iLow)  &  chrB( " &H " & iHigh)
    Else
     toByte  =  toByte  &  chrB(AscB(c))
    End   If
    Next
  End function
End  Class


Class FileInfo
   dim  FormName,FileName,FilePath,FileSize,FileStart
   Private   Sub  Class_Initialize 
    FileName  =   ""
    FilePath  =   ""
    FileSize  =   0
    FileStart =   0
    FormName  =   ""
   End Sub
  
  Public   function  SaveAs(FullPath)
     dim  dr,ErrorChar,i
    SaveAs = 1
     if   trim (fullpath) = ""   or  FileSize = 0   or  FileStart = 0   or  FileName = ""   then   exit   function
     if  FileStart = 0   or   right (fullpath, 1 ) = " / "   then   exit   function
     set  dr = CreateObject ( " Adodb.Stream " )
    dr.Mode = 3
    dr.Type = 1
    dr.Open
    upfile_5xSoft_Stream.position = FileStart - 1
    upfile_5xSoft_Stream.copyto dr,FileSize
    dr.SaveToFile FullPath, 2
    dr.Close
     set  dr = nothing  
    SaveAs = 0
   end function
End  Class
 </ SCRIPT >

存放上传文件的 upfile/up_file文件夹

图片文件夹images，其中有html的处理页面

images/image.htm

<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
< HTML >< HEAD >< TITLE > 插入图片URL </ TITLE >
< META  content ="text/html; charset=gb2312"  http-equiv =Content-Type >
< STYLE  type =text/css > TD {
FONT-SIZE: 9pt
}
BODY {
FONT-SIZE: 9pt
}
INPUT{
FONT-SIZE: 9pt
}
SELECT{
FONT-SIZE: 9pt
}

 </ STYLE >
< script  language ="JavaScript" >
function checkchange()
{
if  (chkSize.checked==true){
    width.disabled=false;
    height.disabled=false;
    }
else{    
   width.disabled=true;
   height.disabled=true;
   }
}

function image(){
var imghtml="";
var strurl=imgurl.value;
if (strurl==""||strurl=="http://") return;
strtype=strurl.substring(strurl.length-3,strurl.length);
strtype=strtype.toLowerCase();
if (strtype=="jpg"||strtype=="gif"){
  imghtml=imghtml+"<img src='"+imgurl.value+"' align='"+aligntype.value+"'";
  if (alttext.value!="") imghtml=imghtml+" alt='"+alttext.value+"'";
  if (border.value!="") imghtml=imghtml+" border='"+border.value+"'";
  if (chkSize.checked==true){
    if (width.value!="") imghtml=imghtml+" width='"+width.value+"'";
    if (height.value!="") imghtml=imghtml+" height='"+height.value+"'";
    }
  imghtml=imghtml+">";
  window.returnValue = imghtml;
  }
window.close();
}

function showupfileinput(){
if(showupfile.style.display == 'none'){showupfile.style.display = ''}
else{showupfile.style.display = 'none'}
}

 </ script >

< META  content ="MSHTML 5.00.2920.0"  name =GENERATOR ></ HEAD >
< BODY  bgColor =menu >
< br >
< table  width ="400"  border ="0"  align ="center" >
   < tr >  
     < td  width ="76"  height ="30"  align ="right" > 图片URL： </ td >
     < td  height ="30"  colspan ="2" >< input  name ="imgurl"  type ="text"  id ="imgurl"  value ="http://"  size ="40" >
     < span  style ="cursor:hand;color:#ff0000;"  onClick ="showupfileinput();" > 上传文件 </ span ></ td >
   </ tr >
   < tr >
     < td  height ="30"  colspan ="3"  align ="center"  id ="showupfile"  style ="display:none;" >< iframe  border ="0"  frameborder ="0"  framespacing ="0"  height ="40"  marginheight ="0"  marginwidth ="0"  name ="upfilei"  noresize scrolling ="no"  src ="../upfile/upfile.html"  width ="98%"  align ="center"  vspale ="0" ></ iframe ></ td >
   </ tr >

   < tr >  
     < td  height ="30"  align ="right" > 替换文字： </ td >
     < td  width ="131"  height ="30" >< input  name ="alttext"  type ="text"  id ="alttext"  size ="18" ></ td >
     < td  width ="179"  height ="30" > 对齐方式： 
       < select  name ="aligntype"  id ="select" >
         < option  value ="" > 默认 </ option >
         < option  value ="left"   > 左对齐 </ option >
         < option  value ="right" > 右对齐 </ option >
         < option  value ="top" > 顶边对齐 </ option >
         < option  value ="texttop" > 文字上方 </ option >
         < option  value ="middle" > 相对垂直居中 </ option >
         < option  value ="absmiddle" > 绝对垂直居中 </ option >
         < option  value ="baseline" > 基线 </ option >
         < option  value ="bottom" > 相对底边对齐 </ option >
         < option  value ="absbottom"  selected > 绝对底边对齐 </ option >
         < option  value ="center" > 居中 </ option >
       </ select ></ td >
   </ tr >
   < tr >  
     < td  height ="30"  align ="right" > 图片大小： </ td >
     < td  height ="30" >< input  name ="chkSize"  type ="checkbox"  id ="chkSize"  value ="checkbox"  onChange ="checkchange();" >
      指定大小 </ td >
     < td  height ="30" > 边框粗细： 
       < input  name ="border"  type ="text"  id ="border"  value ="0"  size ="5" >
      像素 </ td >
   </ tr >
   < tr >  
     < td  height ="30"  align ="right" > &nbsp; </ td >
     < td  height ="30" > 宽： 
       < input  name ="width"  type ="text"  id ="width"  size ="5"  disabled >
      像素  </ td >
     < td > 高： 
       < input  name ="height"  type ="text"  id ="height"  size ="5"  disabled >
      像素 </ td >
   </ tr >
   < tr  align ="center" >  
     < td  height ="5"  colspan ="3" >< hr ></ td >
   </ tr >
   < tr  align ="right" >
     < td  height ="30"  colspan ="3" >< input  name ="cmdOK"  type ="button"  id ="cmdOK"  value =" 确定 "  onClick ="image();" >  
       &nbsp;   < input  name ="cmdCancel"  type ="submit"  id ="cmdCancel"  value =" 取消 "  onClick ="window.close();" >  
       &nbsp;&nbsp;&nbsp;&nbsp; </ td >
   </ tr >
</ table >
</ BODY ></ HTML >
flash.htm
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
< HTML >< HEAD >< TITLE > 插入flashURL </ TITLE >
< META  content ="text/html; charset=gb2312"  http-equiv =Content-Type >
< STYLE  type =text/css > TD {
FONT-SIZE: 9pt
}
BODY {
FONT-SIZE: 9pt
}
INPUT{
FONT-SIZE: 9pt
}
SELECT{
FONT-SIZE: 9pt
}

 </ STYLE >
< script  language ="JavaScript" >
function checkchange(){
if (chkSize.checked==true){
    width.disabled=false;
    height.disabled=false;
}else{    
   width.disabled=true;
   height.disabled=true;
   }
}

function image(){
var imghtml="";
var strurl=imgurl.value;
if (strurl==""||strurl=="http://") return;
strtype=strurl.substring(strurl.length-3,strurl.length);
strtype=strtype.toLowerCase();
var width = 320;
var height = 240;
if (strtype=="swf"){
  if (chkSize.checked==true){
    if (window.width.value!="" && window.width.value < 480) width = window.width.value;
    if (window.height.value!="") height = window.height.value;
    }
  imghtml=imghtml+"<object classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' codebase='http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width='"+ width +"' height='"+ height +"'><param name='allowScriptAccess' value='sameDomain'><param name='movie' value='"+ strurl +"'><param name='quality' value='high'><param name='bgcolor' value='#F0F0F0'><param name='menu' value='false'><param name=wmode value='opaque'><embed src='"+ strurl +"' wmode='opaque' menu='false' bgcolor='#F0F0F0' quality='high'  width='"+ width +"' height='"+ height +"' allowScriptAccess='sameDomain' type='application/x-shockwave-flash' pluginspage='http://www.macromedia.com/go/getflashplayer' /></object>";
  window.returnValue = imghtml;
  }
window.close();
}
 </ script >

< META  content ="MSHTML 5.00.2920.0"  name =GENERATOR ></ HEAD >
< BODY  bgColor =menu >
< br >
< table  width ="400"  border ="0"  align ="center" >
   < tr >  
     < td  width ="76"  height ="30"  align ="right" > FLASHURL： </ td >
     < td  height ="30"  colspan ="2" >< input  name ="imgurl"  type ="text"  id ="imgurl"  value ="http://"  size ="48" ></ td >
   </ tr >
   < tr >  
     < td  height ="30"  align ="right" > FLASH大小： </ td >
     < td  width ="131"  height ="30" >< input  name ="chkSize"  type ="checkbox"  id ="chkSize"  value ="checkbox"  onChange ="checkchange();" >
      指定大小 </ td >
     < td  width ="179"  height ="30" > &nbsp; </ td >
   </ tr >
   < tr >  
     < td  height ="30"  align ="right" > &nbsp; </ td >
     < td  height ="30" > 宽： 
       < input  name ="width"  type ="text"  id ="width"  size ="5"  disabled >
      像素  </ td >
     < td > 高： 
       < input  name ="height"  type ="text"  id ="height"  size ="5"  disabled >
      像素 </ td >
   </ tr >
   < tr  align ="center" >  
     < td  height ="5"  colspan ="3" >< hr ></ td >
   </ tr >
   < tr  align ="right" >
     < td  height ="30"  colspan ="3" >< input  name ="cmdOK"  type ="button"  id ="cmdOK"  value =" 确定 "  onClick ="image();" >  
       &nbsp;   < input  name ="cmdCancel"  type ="submit"  id ="cmdCancel"  value =" 取消 "  onClick ="window.close();" >  
       &nbsp;&nbsp;&nbsp;&nbsp; </ td >
   </ tr >
</ table >
</ BODY ></ HTML >
select.htm
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
< HTML >< HEAD >< TITLE > 颜色 </ TITLE >
< META  content ="text/html; charset=gb2312"  http-equiv =Content-Type >
< STYLE  type =text/css > TD {
FONT-SIZE: 10.8pt
}
BODY {
FONT-SIZE: 10.8pt
}
BUTTON {
WIDTH: 5em
}
 </ STYLE >

< SCRIPT  language =JavaScript >
var SelRGB = '';
var DrRGB = '';
var SelGRAY = '120';

var hexch = new Array('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');

function ToHex(n)
{    var h, l;

n = Math.round(n);
l = n % 16;
h = Math.floor((n / 16)) % 16;
return (hexch[h] + hexch[l]);
}

function DoColor(c, l)
{ var r, g, b;

r = '0x' + c.substring(1, 3);
g = '0x' + c.substring(3, 5);
b = '0x' + c.substring(5, 7);

if(l > 120)
{
l = l - 120;

r = (r * (120 - l) + 255 * l) / 120;
g = (g * (120 - l) + 255 * l) / 120;
b = (b * (120 - l) + 255 * l) / 120;
}else
{
r = (r * l) / 120;
g = (g * l) / 120;
b = (b * l) / 120;
}

return '#' + ToHex(r) + ToHex(g) + ToHex(b);
}

function EndColor()
{ var i;

if(DrRGB != SelRGB)
{
DrRGB = SelRGB;
for(i = 0; i <= 30; i ++)
GrayTable.rows(i).bgColor = DoColor(SelRGB, 240 - i * 8);
}

SelColor.value = DoColor(RGB.innerText, GRAY.innerText);
ShowColor.bgColor = SelColor.value;
}
 </ SCRIPT >

< SCRIPT  event =onclick  for =ColorTable  language =JavaScript >
SelRGB = event.srcElement.bgColor;
EndColor();
 </ SCRIPT >

< SCRIPT  event =onmouseover  for =ColorTable  language =JavaScript >
RGB.innerText = event.srcElement.bgColor;
EndColor();
 </ SCRIPT >

< SCRIPT  event =onmouseout  for =ColorTable  language =JavaScript >
RGB.innerText = SelRGB;
EndColor();
 </ SCRIPT >

< SCRIPT  event =onclick  for =GrayTable  language =JavaScript >
SelGRAY = event.srcElement.title;
EndColor();
 </ SCRIPT >

< SCRIPT  event =onmouseover  for =GrayTable  language =JavaScript >
GRAY.innerText = event.srcElement.title;
EndColor();
 </ SCRIPT >

< SCRIPT  event =onmouseout  for =GrayTable  language =JavaScript >
GRAY.innerText = SelGRAY;
EndColor();
 </ SCRIPT >

< SCRIPT  event =onclick  for =Ok  language =JavaScript >
window.returnValue = SelColor.value;
window.close();
 </ SCRIPT >

< META  content ="MSHTML 5.00.2920.0"  name =GENERATOR ></ HEAD >
< BODY  bgColor =menu >
< DIV  align =center >
< CENTER >
< TABLE  border =0  cellPadding =0  cellSpacing =10 >
< TBODY >
< TR >
< TD >
< TABLE  border =0  cellPadding =0  cellSpacing =0  id =ColorTable
 style ="CURSOR: hand" >
< SCRIPT  language =JavaScript >
function wc(r, g, b, n)
{
r = ((r * 16 + r) * 3 * (15 - n) + 0x80 * n) / 15;
g = ((g * 16 + g) * 3 * (15 - n) + 0x80 * n) / 15;
b = ((b * 16 + b) * 3 * (15 - n) + 0x80 * n) / 15;

document.write('<TD BGCOLOR=#' + ToHex(r) + ToHex(g) + ToHex(b) + ' height=8 width=8></TD>');
}

var cnum = new Array(1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0);

for(i = 0; i < 16; i ++)
{
document.write('<TR>');
for(j = 0; j < 30; j ++)
{
n1 = j % 5;
n2 = Math.floor(j / 5) * 3;
n3 = n2 + 3;

wc((cnum[n3] * n1 + cnum[n2] * (5 - n1)),
(cnum[n3 + 1] * n1 + cnum[n2 + 1] * (5 - n1)),
(cnum[n3 + 2] * n1 + cnum[n2 + 2] * (5 - n1)), i);
}

document.writeln('</TR>');
}
 </ SCRIPT >

< TBODY ></ TBODY ></ TABLE ></ TD >
< TD >
< TABLE  border =0  cellPadding =0  cellSpacing =0  id =GrayTable
 style ="CURSOR: hand" >
< SCRIPT  language =JavaScript >
for(i = 255; i >= 0; i -= 8.5)
document.write('<TR BGCOLOR=#' + ToHex(i) + ToHex(i) + ToHex(i) + '><TD TITLE=' + Math.floor(i * 16 / 17) + ' height=4 width=20></TD></TR>');
 </ SCRIPT >

< TBODY ></ TBODY ></ TABLE ></ TD ></ TR ></ TBODY ></ TABLE ></ CENTER ></ DIV >
< DIV  align =center >
< CENTER >
< TABLE  border =0  cellPadding =0  cellSpacing =10 >
< TBODY >
< TR >
< TD  align =middle  rowSpan =2 > 选中色彩
 < TABLE  border =1  cellPadding =0  cellSpacing =0  height =30  id =ShowColor
 width =40 >
< TBODY >
< TR >
< TD ></ TD ></ TR ></ TBODY ></ TABLE ></ TD >
< TD  rowSpan =2 > 基色:  < SPAN  id =RGB ></ SPAN >< BR > 亮度:  < SPAN
 id =GRAY > 120 </ SPAN >< BR > 代码:  < INPUT  id =SelColor  size =7 ></ TD >
< TD >< BUTTON  id =Ok  type =submit > 确定 </ BUTTON ></ TD ></ TR >
< TR >
< TD >< BUTTON
 onclick =window.close(); > 取消 </ BUTTON ></ TD ></ TR ></ TBODY ></ TABLE ></ CENTER ></ DIV ></ BODY ></ HTML >

video.htm

<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
< HTML >< HEAD >< TITLE > 插入节目URL </ TITLE >
< META  content ="text/html; charset=gb2312"  http-equiv =Content-Type >
< STYLE  type =text/css > TD {
FONT-SIZE: 9pt
}
BODY {
FONT-SIZE: 9pt
}
INPUT{
FONT-SIZE: 9pt
}
SELECT{
FONT-SIZE: 9pt
}

 </ STYLE >
< script  language ="JavaScript" >
function checkchange(){
if (chkSize.checked==true){
    width.disabled=false;
    height.disabled=false;
}else{
   width.disabled=true;
   height.disabled=true;
   }
}

function image(){
var imghtml="";
var strurl=imgurl.value;
if (strurl==""||strurl=="http://") return;
strtype=strurl.substring(strurl.length-3,strurl.length);
strtype=strtype.toLowerCase();
var width = 320;
var height = 240;
if (strtype=="wmv" || strtype=="wma" ||strtype=="wav" ||strtype=="mp3" || strtype=="avi"){
  if (chkSize.checked==true){
    if (window.width.value!="" && window.width.value < 480) width = window.width.value;
    if (window.height.value!="") height = window.height.value;
    }
  imghtml=imghtml + "<embed src='"+ strurl +"' type=video/x-ms-asf-plugin autostart='true' loop='true' width='"+ width +"' height='"+ height +"'>";
  window.returnValue = imghtml;
  }
window.close();
}

function showupfileinput(){
if(showupfile.style.display == 'none'){showupfile.style.display = ''}
else{showupfile.style.display = 'none'}
}
 </ script >

< META  content ="MSHTML 5.00.2920.0"  name =GENERATOR ></ HEAD >
< BODY  bgColor =menu >
< br >
< table  width ="400"  border ="0"  align ="center" >
   < tr >
     < td  width ="76"  height ="30"  align ="right" > 节目URL： </ td >
     < td  height ="30"  colspan ="2" >< input  name ="imgurl"  type ="text"  id ="imgurl"  value ="http://"  size ="40" ></ td >
     </ td >
   </ tr >
   < tr >
     < td  height ="30"  align ="right" > 节目大小： </ td >
     < td  width ="131"  height ="30" >< input  name ="chkSize"  type ="checkbox"  id ="chkSize"  value ="checkbox"  onChange ="checkchange();" >
      指定大小 </ td >
     < td  width ="179"  height ="30" > &nbsp; </ td >
   </ tr >
   < tr >
     < td  height ="30"  align ="right" > &nbsp; </ td >
     < td  height ="30" > 宽：
       < input  name ="width"  type ="text"  id ="width"  size ="5"  disabled >
      像素  </ td >
     < td > 高：
       < input  name ="height"  type ="text"  id ="height"  size ="5"  disabled >
      像素 </ td >
   </ tr >
   < tr  align ="center" >
     < td  height ="5"  colspan ="3" >< hr ></ td >
   </ tr >
   < tr  align ="right" >
     < td  height ="30"  colspan ="3" >< input  name ="cmdOK"  type ="button"  id ="cmdOK"  value =" 确定 "  onClick ="image();" >
       &nbsp;   < input  name ="cmdCancel"  type ="submit"  id ="cmdCancel"  value =" 取消 "  onClick ="window.close();" >
       &nbsp;&nbsp;&nbsp;&nbsp; </ td >
   </ tr >
</ table >
</ BODY ></ HTML >

image: http://download1.csdn.net/down3/20070608/08141657200.rar

调用方式

<form method="post" action="write.asp" name="form_edit" id="form_edit" onSubmit="return CheckForm();">

<!--#include file="edithtml_include/edithtml.asp"-->
    <p><textarea name="remark" style="display:none;"><%=CovHtml(content)%></textarea>
     <!--#include file="edithtml_include/inputtool.html"-->
     <iframe class="HtmlEdit" ID="HtmlEdit" marginheight="1" marginwidth="1" width="680" height="300"></iframe>
    </p>

</form>

lvlingwy
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
html在线编辑器
09-15 856
1、HTML在线编辑器（HTML online editor） 1）在Web程序应用中，最常见的一种是信息和言论的发布和交流。 2）在信息发布的同时，往往需要对发布的数据进行格式的转换，才能使信息以用户需要的格式显示在Web页面上。 3）为了实现Web应用中在线信息发
在线HTML编辑器源码
最新发布
03-05
在线html编辑器html源码高性能代码编辑框，最高支持400万行代码编辑，支持代码高亮，支持代码行数显示，支持代码智能查错，支持代码自动补全，支持字号调节，支持主题切换，支持实时存储到浏览器本地存储，支持一键...
HTML
Alan0725 BLOG
08-08 558
/*************************************************************************************************************************************************************************/ /**************************
html编辑示例,HTMLEdit 示例：包装 Internet Explorer MSHTML 编辑控件
weixin_30675619的博客
07-02 275
HTMLEdit 示例：包装 Internet Explorer MSHTML 编辑控件08/18/2008本文内容更新：2007 年 11 月HTMLEdit 示例说明如何使用 MFC 类包装 Internet Explorer Web 浏览器 ActiveX 控件。在编辑模式下，Web 浏览器 ActiveX 控件公开“所见即所得”(WYSIWYG) 编辑功能。MFC 库提供在窗口类中承载 M...
winform-htmlEditor窗体超文本编辑器
无线智能模块 可视DIY智能专家
06-11 922
基于开源组件：ZetaHtmlEditControl 地址：https://github.com/UweKeim/ZetaHtmlEditControl 发现问题也不少，修改了
c++ html encode,C++实现urlencode,urldecode
weixin_39609650的博客
07-04 208
namespace HttpUtility{typedef unsigned char BYTE;inline BYTE toHex(const BYTE &x){return x > 9 ? x -10 + 'A': x + '0';}inline BYTE fromHex(const BYTE &x){return isdigit(x) ? x-'0' : x-'A'+1...
阿赛HTML在线编辑器 v8
12-03
阿赛HTML在线编辑器是一款简洁，兼容性极强的HTML在线编辑器（经测试已完美兼容IE全系、火狐、谷歌、手机平台浏览器），可以方便地整合到各种网站系统中（经测试已完美支持ASP、PHP、.NET、JSP），摒弃常规的框架...
HBuilder X，html编辑器
07-16
HBuilder X，html编辑器，可使用内置浏览器、IE浏览器、Chrome浏览器，Firefox浏览器、Edge浏览器，样式多重，包您心满意足！
html编辑器
03-02
HTML编辑器是网页开发中不可或缺的工具，它们允许用户在浏览器环境中创建和编辑富文本内容。"js文本编辑器"指的是使用JavaScript编程语言实现的在线编辑器，这种编辑器通常基于Web技术，如HTML、CSS和JavaScript，为...
WPF HtmlEdit html编辑器
04-22
WPF中的Html编辑器，源代码，资源来源于网络，特此共享
htmledit网页编辑器
07-10
很简单的网页编辑器，简单实用，所见即所得！
HtmlEdit 2.0
02-23
HtmlEdit 2.0 - WYSIWYG Html Editing for Delphi HtmlEdit is the first native WYSIWYG (What You See Is What You Get) HTML Editor written completely in Delphi, and allows you to enable your applications for HTML Editing capabilities without dependencies on MSHTML or other third party DLLs. HtmlEdit is ideal for use in applications that require input and handling of rich text with formattings and graphics, such as Content Management Systems Web Site Editors Help Authoring Tools Word Processing etc.
htmledit
07-31
NULL 博文链接：https://wx5753.iteye.com/blog/1056719
htmlEdit
08-22
简单的网页编辑，很实用的。。。
c++ html编辑器
05-09
在IT领域，C++ HTML编辑器是一种用于创建和编辑HTML文档的软件工具，它通常集成在开发环境中，或者作为独立的应用程序提供。C++是一种强大的、面向对象的编程语言，适用于构建高性能、可移植的应用程序，包括这类...
edit.html
weixin_67930929的博客
04-08 920
<h3>edit.html 修改用户信息网页</h3> <form> 用户名 <input type="text" id="u_names"><br> 电话 <input type="text" id="u_phone"><br> 是否会员<input type="text" id="u_member"&gt...
Editplus自定义HTML模板
失败者
06-13 1696
有时个感觉EditPlus中的默认板模不全我们的心意，要做一下修改，下面给出步骤。Tools --&gt; Preferences --&gt; Templates一定要选住HTML这行，然后open打开就可以进行修改了。修改了里面的记得保存（Ctrl+s）...
edit_html编辑器问题
尼奥
03-05 839
帮我一哥们 弄编辑器的 时候发现了以下问题： 第一个问题如图： 解决办法是： 打开下面红线圈住的js 如下第一张图： 在里面的 最后面加上zh_CN 这个 就ok了 如下第二张图： 第一张 第二张 这样就可以解决问题了。
ExtJS4.2 Html编辑器扩展：添加上传功能
通过自定义插件，开发者可以为编辑器添加额外的交互，使得用户在编辑HTML内容时能够方便地插入本地图片和文件附件。" 在ExtJS中，HtmlEditor是一个非常实用的组件，它允许用户编辑HTML内容。然而，原生的HtmlEditor...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值