站内搜索: 您现在的位置: 肿瘤咨询在线 >> 文章中心 >> 网络检索 >> 正文

添加“SWF插入”功能按钮的方法[原创]

更新时间:2003-5-29 20:33:54 来源:WEB 作者:web 可选字体【
添加“SWF插入”功能按钮的方法[原创]
====以下的代码是在editor.asp文件中更改的====
  首先在相应位置添加下列代码(我是放在"保存"按钮后的):
---------------------------------------
  <div class="btn" title="插入多媒体文件" language="javascript" onclick="inserflash()"> 
    <img class="ico" src="images\flash.gif" width="18" height="18"> </div>
<!--其中“images\flash.gif”为按钮显示的图形,放在images目录中。-->
---------------------------------------


  其次在<script></script>语言中加入下列代码:
--------------------------------------
function inserflash()
{
  if (! validatemode()) return;
  htmledit.focus();
  var range = htmledit.document.selection.createrange();
  var arr = showmodaldialog("flash.htm", "", "dialogwidth:300pt;dialogheight:106pt;help:0;status:0");
  if (arr != null)
  {
 range.pastehtml(arr);
 parent.myform.includepic.checked=true;
  }
  htmledit.focus();
}
--------------------------------------
其中的"flash.htm"文件是要自己建的文件,要放在与editor.asp同一目录中的,flash.htm的代码为:
--------------------------------------
<html>
<head>
<meta name="generator" content="microsoft frontpage 5.0">
<meta name="progid" content="frontpage.editor.document">
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>插入多媒体文件</title>
<style type="text/css">
body, a, table, div, span, td, th, input, select{font:9pt;font-family: "宋体", verdana, arial, helvetica, sans-serif;}
.text{border:1px solid #aaaaaa;}
.button{height:18;border:1px ridge #aaaaaa;background-color:aaaaaa;color:ffffff}
</style>
<script language="javascript">
  function flash(val){;
  window.returnvalue=val;
  window.close();
   }
</script>

<script language="vbscript">
function mya()
rm1="<object classid='clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa' height='高度' id='rvocx1' name='player1' width='宽度'>              <param name='_extentx' value='5292'>              <param name='_extenty' value='4233'>              <param name='autostart' value='-1'>              <param name='shuffle' value='0'>              <param name='prefetch' value='0'>              <param name='nolabels' value='0'>              <param name='src' value='文件名'>              <param name='controls' value='imagewindow'>              <param name='console' value='clip1'>              <param name='loop' value='0'>              <param name='numloop' value='0'>              <param name='center' value='0'>              <param name='maintainaspect' value='0'>              <param name='backgroundcolor' value='#000000'>            </object>"
rm2="<object classid='clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa' height='20' id='rvocx1' name='control' width='宽度'>              <param name='_extentx' value='5292'>              <param name='_extenty' value='529'>              <param name='autostart' value='-1'>              <param name='shuffle' value='0'>              <param name='prefetch' value='0'>              <param name='nolabels' value='0'>              <param name='src' value='文件名'>              <param name='controls' value='controlpanel'>              <param name='console' value='clip1'>              <param name='loop' value='0'>              <param name='numloop' value='0'>              <param name='center' value='0'>              <param name='maintainaspect' value='0'>              <param name='backgroundcolor' value='#000000'>            </object>" 
mpg="<object align=middle class=object classid=clsid:22d6f312-b0f6-11d0-94ab-0080c74c7e95 height=高度 id=mediaplayer width=宽度><param name="&chr(34)&"audiostream"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"autosize"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"autostart"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"animationatstart"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"allowscan"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"allowchangedisplaysize"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"autorewind"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"balance"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"baseurl"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"bufferingtime"&chr(34)&" value="&chr(34)&"5"&chr(34)&"><param name="&chr(34)&"captioningid"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"clicktoplay"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"cursortype"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"currentposition"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"currentmarker"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"defaultframe"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"displaybackcolor"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"displayforecolor"&chr(34)&" value="&chr(34)&"16777215"&chr(34)&"><param name="&chr(34)&"displaymode"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"displaysize"&chr(34)&" value="&chr(34)&"4"&chr(34)&"><param name="&chr(34)&"enabled"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"enablecontextmenu"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"enablepositioncontrols"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"enablefullscreencontrols"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"enabletracker"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"filename"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"invokeurls"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"language"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"mute"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"playcount"&chr(34)&" value="&chr(34)&"1"&chr(34)&"><param name="&chr(34)&"previewmode"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"rate"&chr(34)&" value="&chr(34)&"1"&chr(34)&"><param name="&chr(34)&"samilang"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"samistyle"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"samifilename"&chr(34)&" value="&chr(34)&""&chr(34)&"><param name="&chr(34)&"selectionstart"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"selectionend"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"sendopenstatechangeevents"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"sendwarningevents"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"senderrorevents"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"sendkeyboardevents"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"sendmouseclickevents"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"sendmousemoveevents"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"sendplaystatechangeevents"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"showcaptioning"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"showcontrols"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"showaudiocontrols"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"showdisplay"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"showgotobar"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"showpositioncontrols"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"showstatusbar"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"showtracker"&chr(34)&" value="&chr(34)&"-1"&chr(34)&"><param name="&chr(34)&"transparentatstart"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"videoborderwidth"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"videobordercolor"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"videoborder3d"&chr(34)&" value="&chr(34)&"0"&chr(34)&"><param name="&chr(34)&"volume"&chr(34)&" value="&chr(34)&"-600"&chr(34)&"><param name="&chr(34)&"windowlessvideo"&chr(34)&" value="&chr(34)&"0"&chr(34)&">  <embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#version=5,1,52,701 flename=mp src=文件名 width=宽度 height=高度></embed></object>"
swf="<embed width="&chr(34)&"宽度"&chr(34)&" height="&chr(34)&"高度"&chr(34)&" src="&chr(34)&"文件名"&chr(34)&">"
vr=" <iframe name=i1 frameborder=宽度  height=高度 marginheight=0 marginwidth=0 scrolling=auto  width=宽度 height=高度 bordercolor=#ccccff src=文件名 ></iframe>"
  pa=""
  mypa=path.value
  wid=wi.value
  hig=hi.value
'  if mid(mypa,5,3)="://" then 
    lr=right(mypa,5)
    str=instr(lr,".")
    if str>0 then
       exna=ucase(mid(lr,str,5))    
       select case exna
          case ".rm"
             rm1=replace(rm1,"宽度",wid)
             rm1=replace(rm1,"高度",hig)
             rm1=replace(rm1,"文件名",mypa)
             rm2=replace(rm2,"宽度",wid)
             rm2=replace(rm2,"文件名",mypa)
             pa=rm1&"<br>"&rm2
          case ".ra"
             rm1=replace(rm1,"宽度",wid)
             rm1=replace(rm1,"高度",hig)
             rm1=replace(rm1,"文件名",mypa)
             rm2=replace(rm2,"宽度",wid)
             rm2=replace(rm2,"文件名",mypa)
             pa=rm1&"<br>"&rm2
          case ".ram"
             rm1=replace(rm1,"宽度",wid)
             rm1=replace(rm1,"高度",hig)
             rm1=replace(rm1,"文件名",mypa)
             rm2=replace(rm2,"宽度",wid)
             rm2=replace(rm2,"文件名",mypa)
             pa=rm1&"<br>"&rm2
          case ".dat"
             mpg=replace(mpg,"宽度",wid)
             mpg=replace(mpg,"高度",hig)
             mpg=replace(mpg,"文件名",mypa)
             pa=mpg
          case ".mpg"
             mpg=replace(mpg,"宽度",wid)
             mpg=replace(mpg,"高度",hig)
             mpg=replace(mpg,"文件名",mypa)
             pa=mpg
          case ".asf"
             mpg=replace(mpg,"宽度",wid)
             mpg=replace(mpg,"高度",hig)
             mpg=replace(mpg,"文件名",mypa)
             pa=mpg
          case ".wmv"
             mpg=replace(mpg,"宽度",wid)
             mpg=replace(mpg,"高度",hig)
             mpg=replace(mpg,"文件名",mypa)
             pa=mpg
          case ".mpeg"
             mpg=replace(mpg,"宽度",wid)
             mpg=replace(mpg,"高度",hig)
             mpg=replace(mpg,"文件名",mypa)
             pa=mpg
          case ".avi"
             mpg=replace(mpg,"宽度",wid)
             mpg=replace(mpg,"高度",hig)
             mpg=replace(mpg,"文件名",mypa)
             pa=mpg
          case ".swf"
             swf=replace(swf,"宽度",wid)
             swf=replace(swf,"高度",hig)
             swf=replace(swf,"文件名",mypa)
             pa=swf
          case ".vr"
             mypa=replace(ucase(mypa),".vr",".htm")
             vr=replace(vr,"宽度",wid)
             vr=replace(vr,"高度",hig)
             vr=replace(vr,"文件名",mypa)
             pa=vr
          case ".mp3"
             rm2=replace(rm2,"宽度",wid)
             rm2=replace(rm2,"文件名",mypa)
             pa=rm2

       end select
       if pa<>"" then
         pa= "<div  align='center'><table border='1' cellspacing='0'  id='autonumber1' style='border-collapse: collapse' bordercolor='#111111' cellpadding='0'>  <tr>    <td  align='center'>"&pa&"</td></tr></table></div>"
       end if
    end if
'  end if
  call flash(pa)
end function 
</script>

</head>

<body bgcolor="#d4d0c8" topmargin="3" leftmargin="15">

<div align="center">
  <center>
  <table border="1" cellspacing="0" width="100%" id="autonumber1" bordercolorlight="#000000" cellpadding="0" bordercolordark="#ffffff" height="95">
    <tr>
      <td width="100%" height="93">
      <table border="0" cellspacing="1" width="100%" id="autonumber2" style="font-size: 9pt" height="100%">
        <tr>
          <td width="100%" height="6" colspan="3">
          <table border="0" cellspacing="0" width="100%" id="autonumber3" height="28" style="font-size: 9pt" cellpadding="0">
          
            <tr>
              <td width="28%" height="23">图像大小</td>
              <td width="68%" height="23" align="left">
              <hr>
              </td>
              <td width="4%" height="23" align="left">
               </td>
            </tr>
          </table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="19" colspan="3">路径:<input type="text" size="35" name="path"></td>
        </tr>
        <tr>
          <td height="19"> 宽:<input type="text" size="7" name="wi" value="400"></td>
          <td height="19">高:<input type="text" size="7" name="hi" value="300"> </td>
          <td height="19">
          
           <input class=button type=button onclick=mya() value="确 定" name="submit">
        <input class=button type=button onclick='window.close();' value="取 消" name="button">

          </td>
        </tr>
        <tr>
          <td width="100%" colspan="3" height="19"> </td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
---------------------------------------

    免责声明:
    本文仅代表作者个人观点,与肿瘤咨询在线网站无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。


  • 上一篇文章:
  • 下一篇文章:
  • 网站简介 - 联系站长 - 友情链接 - 网站地图 - sitemap - 网站导航 - 进站必读 - 招纳义工