====以下的代码是在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>
---------------------------------------