htmledit.asp

html编辑器

  Response.Write " }" & vbCrlf
  Response.Write " function inCalendar(){editor.focus();" & vbCrlf
  Response.Write " var today = new Date();" & vbCrlf
  Response.Write " var YY=today.getFullYear();" & vbCrlf
  Response.Write " var MM=today.getMonth()+1;" & vbCrlf
  Response.Write " var DD=today.getDay();" & vbCrlf
  Response.Write " var YYMMDD=YY+'年'+MM+'月'+DD+'日';" & vbCrlf
  Response.Write " crerantohtml(YYMMDD);" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function chLspace() {" & vbCrlf
  Response.Write " var spacesize = prompt('录入行间距', '14');" & vbCrlf
  Response.Write " editor.focus();var selxxtxt=gtselectnrxx();" & vbCrlf
  Response.Write " selxxtxt = selxxtxt.replace(/<\/?SPAN[^>]*>/gi, '' );" & vbCrlf
  Response.Write " var newxtxt='<span style=\'LINE-HEIGHT:'+spacesize+'px\'>'+selxxtxt+'</span>';" & vbCrlf
  Response.Write " if (Htmlmode=='Y') {editor.focus();crerantohtml(newxtxt);}" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function chWspace() {" & vbCrlf
  Response.Write " var spacesize = prompt('录入字间距', '0');" & vbCrlf
  Response.Write " editor.focus();var selxxtxt=gtselectnrxx();" & vbCrlf
  Response.Write " selxxtxt = selxxtxt.replace(/<\/?SPAN[^>]*>/gi, '' );" & vbCrlf
  Response.Write " var newxtxt='<span style=\'LETTER-SPACING:'+spacesize+'px\'>'+selxxtxt+'</span>';" & vbCrlf
  Response.Write " if (Htmlmode=='Y') {editor.focus();crerantohtml(newxtxt);}" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function dismenu(menumc){" & vbCrlf
  Response.Write " opmenumc=menumc;var ptox;var ptoy;" & vbCrlf
  Response.Write " if (window.navigator.userAgent.indexOf('MSIE')>=1){" & vbCrlf
  Response.Write "   ptox=document.documentElement.scrollLeft + window.event.clientX-10;" & vbCrlf
  Response.Write "   ptoy=document.documentElement.scrollTop + window.event.clientY-10;" & vbCrlf
  Response.Write " }else{" & vbCrlf
  Response.Write "   ptox=document.documentElement.scrollLeft + vjX-10;" & vbCrlf
  Response.Write "   ptoy=document.documentElement.scrollTop + vjY-10;" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " if ((ptox+320)>document.documentElement.offsetWidth){if (ptox<200){ptox=ptox-320;}else{ptox=2;}}" & vbCrlf
  Response.Write " GetId(menumc).style.left=ptox" & vbCrlf
  Response.Write " GetId(menumc).style.top =ptoy;" & vbCrlf
  Response.Write " GetId(menumc).style.display='';" & vbCrlf
  Response.Write " if (window.navigator.userAgent.indexOf('MSIE')>=1){hideEleObj(menumc);}" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function ycmenu(){" & vbCrlf
  Response.Write " if (opmenumc!=''){GetId(opmenumc).style.display='none';" & vbCrlf
  Response.Write " if (window.navigator.userAgent.indexOf('MSIE')>=1){showEleObj();}}" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function ycolediv(obmc){" & vbCrlf
  Response.Write "  GetId(obmc).style.display='none';" & vbCrlf
  Response.Write " if (window.navigator.userAgent.indexOf('MSIE')>=1){showEleObj();}" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function selcolor(atname,e)//-- 选择颜色" & vbCrlf
  Response.Write " {vmdownobjmc=atname;" & vbCrlf
  Response.Write " vjX=e.layerX;" & vbCrlf
  Response.Write " vjY=e.layerY;" & vbCrlf
  Response.Write " var temphtmltxt='';GetId('menulayer1').innerHTML='';GetId('menulayer1').style.width='100px';GetId('menulayer1').style.height='160px';dismenu('menulayer1');" & vbCrlf
  Response.Write "  var i=0;var indexi=0;var colorz=0;var ttxx;" & vbCrlf
  Response.Write "  while (i <= 1)" & vbCrlf
  Response.Write "  {" & vbCrlf
  Response.Write "  colorz=i * 255 * 255 * 255 + i * 255 * 255 + i * 255;" & vbCrlf
  Response.Write "  var oColorParser = document.createElement('body');" & vbCrlf
  Response.Write "  oColorParser.bgColor = colorz;" & vbCrlf
  Response.Write "  ttxx=""<input type=\""button\"" style=\""background-color:""+oColorParser.bgColor+"";width:98%;\"" OnClick=\""dobtv('""+atname+""','""+oColorParser.bgColor+""');GetId('menulayer1').style.display='none';\""><br>"";" & vbCrlf
  Response.Write "  temphtmltxt=temphtmltxt+ttxx;" & vbCrlf
  Response.Write "  i=i+0.009;" & vbCrlf
  Response.Write "  indexi=indexi+1;" & vbCrlf
  Response.Write "  }" & vbCrlf
  Response.Write " GetId('menulayer1').innerHTML=temphtmltxt;" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function mktabwin(idmc,e)" & vbCrlf
  Response.Write " {vmdownobjmc=idmc;" & vbCrlf
  Response.Write " vjX=e.layerX;" & vbCrlf
  Response.Write " vjY=e.layerY;" & vbCrlf
  Response.Write " var tabletxt='';GetId('menulayer1').innerHTML='';GetId('menulayer1').style.width='260px';GetId('menulayer1').style.height='120px';dismenu('menulayer1');" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<P align=center style=\'FONT-SIZE:12px;\'>行数:<input type=\'text\' ID=\'TiHeight\' maxLength=3 value=2 style=\'FONT-SIZE:12px;width:60px;height:20px;\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'　单元格边路:<input type=\'text\' ID=\'TCellPadding\' maxLength=3 value=0 style=\'FONT-SIZE:12px;width:50px;height:20px;\'><br>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'列数:<input type=\'text\' ID=\'TiWidth\' maxLength=3 value=2 style=\'FONT-SIZE:12px;width:60px;height:20px;\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'　单元格间距:<input type=\'text\' ID=\'TCellSpacing\' maxLength=3 value=0 style=\'FONT-SIZE:12px;width:50px;height:20px;\'><br>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'宽度:<input type=\'text\' ID=\'TWidth\' maxLength=3 value=100 style=\'FONT-SIZE:12px;width:50px;height:20px;\'><select size=\'1\' ID=\'TUnit\' style=\'FONT-SIZE:12px;width:40px;height:20px;\'><option value=\'px\'>px</option><option selected value=\'%\'>%</option></select>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'　 边框:<input type=\'text\' ID=\'TBorder\' maxLength=3 value=1 style=\'FONT-SIZE:12px;width:50px;height:20px;\'><br>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<br><input type=\'button\' value=\'确认\' ID=\'TbntOk\' onclick=\'Mktablenr();\' style=\'FONT-SIZE:12px;width:218;height:22;padding-top:2px;padding-bottom:2px\'></P>';" & vbCrlf
  Response.Write " GetId('menulayer1').innerHTML=tabletxt;" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function mkimgupwin(idmc,e)" & vbCrlf
  Response.Write " {vmdownobjmc=idmc;" & vbCrlf
  Response.Write " vjX=e.layerX;" & vbCrlf
  Response.Write " vjY=e.layerY;" & vbCrlf
  Response.Write " MyMessagexx='您已选择了一个文件，请点【 上传到服务器 】来保存。';" & vbCrlf
  Response.Write " var tabletxt='';GetId('waitlayer1').innerHTML='';GetId('waitlayer1').style.width='340px';GetId('waitlayer1').style.height='220px';dismenu('waitlayer1');opmenumc='';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'border: 1px solid #C0C0C0;text-align: center;vertical-align:middle;width:100%;height:100%;\'><div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index: 999; left: 0px; top: 4px; border: 1px solid #808080\' id=\'PIMlayer1\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+""&nbsp;URL：<input type=\'text\' name=\'TURL\' id=\'TURL\' style=\'width:210px;height:20px;font-size: 12px; border: 1px solid #C0C0C0\'>&nbsp;<input type=\'button\' value=\'确认选择\' name=\'OK\' id=\'OK\' OnClick=\""incOle('Picture',GetId('TURL').value);ycolediv('waitlayer1')\"" style=\'font-size: 12px; border: 1px solid #C0C0C0\'></div>"";" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<form style=\'padding: 0; margin: 0;\' method=\'POST\' action=\'htmledit.asp?job=upload&lx=pic\' target=\'mkimgupwin_nw\' enctype=\'multipart/form-data\'><div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index:999; left: 0px; top: 6px; border: 1px solid #808080\' id=\'PIMlayer2\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+""&nbsp;<input type='file' name='F_Data' id='F_Data' accept='image/*' OnChange=\""GetId('BDIMAGESPATH').src=this.value;if(this.value!='.gif'){alert(MyMessagexx);}\"" style='width:204px;height:20px;font-size: 12px; border: 1px solid #C0C0C0'>&nbsp;<input type='submit' value='上传到服务器' name='B_UP' id='B_UP' style='font-size: 12px; border: 1px solid #C0C0C0'></div></form>"";" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'text-align: center;vertical-align:middle;font-size: 12px;position: relative; width: 330px; height:150px; z-index: 1; left:0px; top:8px; border: 1px solid #808080; padding-left:2px; padding-right:2px; padding-top:6px; padding-bottom:2px\' id=\'PIMlayer3\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'选择的本地图像　　　　　　上传到服务器上的图像';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'position: absolute; width: 150px; height: 110px; z-index:999; left: 5px; top: 29px; border: 1px solid #C0C0C0\' id=\'PIMlayer4\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<img border=\'0\' src=\'" & MZYHTMLUPPICO & "\' width=\'100%\' height=\'100%\' id=\'BDIMAGESPATH\'></div>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'position: absolute; width: 150px; height: 110px; z-index:999; left: 172px; top: 29px; border: 1px solid #C0C0C0\' id=\'PIMlayer5\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<IFRAME id=\'mkimgupwin_nw\' name=\'mkimgupwin_nw\' id=\'mkimgupwin_nw\' scrolling=\'auto\' frameBorder=\'1\' src=\'htmledit.asp?job=list&lx=pic\' scroll=\'auto\' style=\'width: 150px; height: 110px;padding: 0; margin: 0;\'></IFRAME></div></div></div>';" & vbCrlf
  Response.Write " GetId('waitlayer1').innerHTML=tabletxt;" & vbCrlf
  Response.Write " GetId('F_Data').focus();new ActiveXObject('wscript.shell').sendKeys('.gif');" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function mksubbrupwin(idmc,e)" & vbCrlf
  Response.Write " {vmdownobjmc=idmc;" & vbCrlf
  Response.Write " vjX=e.layerX;" & vbCrlf
  Response.Write " vjY=e.layerY;" & vbCrlf
  Response.Write " MyMessagexx='您已选择了一个文件，请点【 上传到服务器 】来保存。';" & vbCrlf
  Response.Write " var tabletxt='';GetId('waitlayer1').innerHTML='';GetId('waitlayer1').style.width='340px';GetId('waitlayer1').style.height='220px';dismenu('waitlayer1');opmenumc='';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'border: 1px solid #C0C0C0;text-align: center;vertical-align:middle;width:100%;height:100%;\'><div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index: 999; left: 0px; top: 4px; border: 1px solid #808080\' id=\'PIMlayer1\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+""&nbsp;URL：<input type=\'text\' name=\'TURL\' id=\'TURL\' id=\'TURL\' style=\'width:210px;height:20px;font-size: 12px; border: 1px solid #C0C0C0\'>&nbsp;<input type=\'button\' value=\'确认选择\' name=\'OK\' id=\'OK\' OnClick=\""incOle('Infj',GetId('TURL').value);ycolediv('waitlayer1')\"" style=\'font-size: 12px; border: 1px solid #C0C0C0\'></div>"";" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<form style=\'padding: 0; margin: 0;\' method=\'POST\' action=\'htmledit.asp?job=upload&lx=other\' target=\'mkimgupwin_nw\' enctype=\'multipart/form-data\'><div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index:999; left: 0px; top: 6px; border: 1px solid #808080\' id=\'PIMlayer2\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+""&nbsp;<input type=\'file\' name=\'F_Data\' id=\'F_Data\' ybidmc=\'BDIMAGESPATH\'  OnChange=\'alert(MyMessagexx);\' style=\'width:204px;height:20px;font-size: 12px; border: 1px solid #C0C0C0\'>&nbsp;<input type=\'submit\' value=\'上传到服务器\' name=\'B_UP\' id=\'B_UP\' style=\'font-size: 12px; border: 1px solid #C0C0C0\'></div></form>"";" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'text-align: center;vertical-align:middle;font-size: 12px;position: relative; width: 330px; height:150px; z-index: 1; left:0px; top:8px; border: 1px solid #808080; padding-left:2px; padding-right:2px; padding-top:6px; padding-bottom:2px\' id=\'PIMlayer3\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'上传到服务器上的各类文件';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'position: absolute; width: 318px; height: 110px; z-index:999; left: 4px; top: 29px; border: 1px solid #C0C0C0\' id=\'PIMlayer5\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<IFRAME id=\'mkimgupwin_nw\' name=\'mkimgupwin_nw\' id=\'mkimgupwin_nw\' scrolling=\'auto\' frameBorder=\'1\' src=\'htmledit.asp?job=list&lx=other\' scroll=\'auto\' style=\'width:100%; height: 110px;padding: 0; margin: 0;\'></IFRAME></div></div></div>';" & vbCrlf
  Response.Write " GetId('waitlayer1').innerHTML=tabletxt;" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function mkmidiwin(idmc,e)" & vbCrlf
  Response.Write " {vmdownobjmc=idmc;" & vbCrlf
  Response.Write " vjX=e.layerX;" & vbCrlf
  Response.Write " vjY=e.layerY;" & vbCrlf
  Response.Write " MyMessagexx='您已选择了一个文件，请点【 上传到服务器 】来保存。';" & vbCrlf
  Response.Write " var tabletxt='';GetId('waitlayer1').innerHTML='';GetId('waitlayer1').style.width='340px';GetId('waitlayer1').style.height='256px';dismenu('waitlayer1');opmenumc='';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'border: 1px solid #C0C0C0;text-align: center;vertical-align:middle;width:100%;height:100%;\'><div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index: 999; left: 0px; top: 4px; border: 1px solid #808080\' id=\'PIMlayer1\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+""&nbsp;URL：<input type=\'text\' name=\'TURL\' id=\'TURL\' style=\'width:210px;height:20px;font-size: 12px; border: 1px solid #C0C0C0\'>&nbsp;<input type=\'button\' value=\'确认选择\' name=\'OK\' id=\'OK\' OnClick=\""wjinto(GetId('DSMTLX').value,GetId('TURL').value);ycolediv('waitlayer1');\"" style=\'font-size: 12px; border: 1px solid #C0C0C0\'></div>"";" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index: 999; left: 0px; top: 8px; border: 1px solid #808080\' id=\'PIMselebox\'>';"
  Response.Write " tabletxt=tabletxt+'物件类型：<select name=\'DSMTLX\' id=\'DSMTLX\' style=\'width:260px;font-size: 12px; border: 1px solid #C0C0C0\'><option value=\'WM\' selected>Windows Media[微软格式影片及音乐]</option><option value=\'SF\'>Macromedia Flash[Flash影片或动画]</option><option value=\'RM\'>Real Media[音乐文件]</option><option value=\'RMV\'>Real Media[电影文件]</option></select>';"
  Response.Write " tabletxt=tabletxt+'</div>';"
  Response.Write " tabletxt=tabletxt+'<form style=\'padding: 0; margin: 0;\' method=\'POST\' action=\'htmledit.asp?job=upload&lx=other\' target=\'mkimgupwin_nw\' enctype=\'multipart/form-data\'><div style=\'padding:2px; font-size: 12px;position: relative; width: 330px; height: 28px; z-index:999; left: 0px; top:12px; border: 1px solid #808080\' id=\'PIMlayer2\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'&nbsp;<input type=\'file\' name=\'F_Data\' id=\'F_Data\'  OnChange=\'alert(MyMessagexx);\' style=\'width:204px;height:20px;font-size: 12px; border: 1px solid #C0C0C0\'>&nbsp;<input type=\'submit\' value=\'上传到服务器\' name=\'B_UP\' id=\'B_UP\'style=\'font-size: 12px; border: 1px solid #C0C0C0\'></div></form>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'text-align: center;vertical-align:middle;font-size: 12px;position: relative; width: 330px; height:150px; z-index: 1; left:0px; top:16px; border: 1px solid #808080; padding-left:2px; padding-right:2px; padding-top:6px; padding-bottom:2px\' id=\'PIMlayer3\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'上传到服务器上的各类文件';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<div style=\'position: absolute; width: 318px; height: 110px; z-index:999; left: 4px; top: 29px; border: 1px solid #C0C0C0\' id=\'PIMlayer5\'>';" & vbCrlf
  Response.Write " tabletxt=tabletxt+'<IFRAME id=\'mkimgupwin_nw\' name=\'mkimgupwin_nw\' id=\'mkimgupwin_nw\' scrolling=\'auto\' frameBorder=\'1\' src=\'htmledit.asp?job=list&lx=other\' scroll=\'auto\' style=\'width:100%; height: 110px;padding: 0; margin: 0;\'></IFRAME></div></div></div>';" & vbCrlf
  Response.Write " GetId('waitlayer1').innerHTML=tabletxt;" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " function wjinto(wjlx,wjurl)//-- 插入选择的物件" & vbCrlf
  Response.Write " {nrdivid=nrdivid+1;var crnr='';crnr='类型是：'+wjlx+'　　路径是：'+wjurl;" & vbCrlf
  Response.Write " if (wjlx=='WM'){crnr='<object classid=\'clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6\' id=\'WindowsMediaPlayer'+nrdivid+'\'><param name=\'URL\' value=\''+wjurl+'\'></object>';}" & vbCrlf
  Response.Write " if (wjlx=='SF'){crnr='<object classid=\'clsid:D27CDB6E-AE6D-11CF-96B8-444553540000\' id=\'obj'+nrdivid+'\' codebase=\'http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0\' border=\'0\' width=\'100\' height=\'100\'><param name=\'movie\' value=\''+wjurl+'\'><param name=\'quality\' value=\'High\'><embed src=\''+wjurl+'\' pluginspage=\'http://www.macromedia.com/go/getflashplayer\' type=\'application/x-shockwave-flash\' name=\'obj'+nrdivid+'\' width=\'100\' height=\'100\'></object>';}" & vbCrlf
  Response.Write " if (wjlx=='RM'){crnr='<object classid=\'clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\' height=\'60\' width=\'300\' id=\'RMPlayer'+nrdivid+'\' style=\'border: 1px groove #336699;\'><param name=\'AUTOSTART\' value=\'-1\'><param name=\'SRC\' value=\''+wjurl+'\' ref></object>';}" & vbCrlf
  Response.Write " if (wjlx=='RMV'){crnr='<object classid=\'clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA\' height=\'200\' width=\'200\' id=\'RMPlayer'+nrdivid+'\' style=\'border: 1px groove #336699;\'><param name=\'Controls\' value=\'imagewindow\'><param name=\'AUTOSTART\' value=\'-1\'><param name=\'SRC\' value=\''+wjurl+'\' ref></object>';}" & vbCrlf
  Response.Write " editor.focus();crerantohtml(crnr);}" & vbCrlf
  Response.Write " function Mktablenr()//-- 操作表格" & vbCrlf
  Response.Write " {var s='';s='<table width=' +GetId('TWidth').value+GetId('TUnit').value+ ' cellspacing='+GetId('TCellSpacing').value+' cellpadding='+GetId('TCellPadding').value+' border=' + GetId('TBorder').value +'>';for(i=1 ;i<=GetId('TiHeight').value;i++){s=s+'<tr>';for(j=1;j<=GetId('TiWidth').value;j++)s=s+'<td>&nbsp;</td>';s=s+'</tr>';}s=s+'</table>';" & vbCrlf
  Response.Write " editor.focus();crerantohtml(s);ycmenu();GetId('menulayer1').innerHTML='';" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write "//-- 解决层被盖住问题开始" & vbCrlf
  Response.Write "function showEleObj() {" & vbCrlf
  Response.Write " showElement('SELECT');" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function hideEleObj(menuid) {" & vbCrlf
  Response.Write " var ox = parseInt(GetId(menuid).style.left);" & vbCrlf
  Response.Write " var oy = parseInt(GetId(menuid).style.top);" & vbCrlf
  Response.Write " var ow = GetId(menuid).offsetWidth;" & vbCrlf
  Response.Write " var oh = GetId(menuid).offsetHeight;" & vbCrlf
  Response.Write " hideElement('SELECT', ox, oy, ow, oh);" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function hideElement(elmID, ox, oy, ow, oh){" & vbCrlf
  Response.Write " ox = parseInt(ox);" & vbCrlf
  Response.Write " oy = parseInt(oy);" & vbCrlf
  Response.Write " ow = parseInt(ow);" & vbCrlf
  Response.Write " oh = parseInt(oh);" & vbCrlf
  Response.Write " var allElements;" & vbCrlf
  Response.Write " if (window.navigator.userAgent.indexOf('MSIE')>=1){allElements = document.all.tags(elmID);" & vbCrlf
  Response.Write " }else{allElements = document.getElementsByTagName('*');}" & vbCrlf
  Response.Write " for (i = 0; i < allElements.length; i++) {" & vbCrlf
  Response.Write " obj = allElements[i];" & vbCrlf
  Response.Write " if (! obj || ! obj.offsetParent)" & vbCrlf
  Response.Write " continue;" & vbCrlf
  Response.Write " objLeft = obj.offsetLeft;" & vbCrlf
  Response.Write " objTop = obj.offsetTop;" & vbCrlf
  Response.Write " objParent = obj.offsetParent;" & vbCrlf
  Response.Write " while (objParent.tagName.toUpperCase() != 'BODY') {" & vbCrlf
  Response.Write " objLeft += objParent.offsetLeft;" & vbCrlf
  Response.Write " objTop += objParent.offsetTop;" & vbCrlf
  Response.Write " objParent = objParent.offsetParent;" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write " if ( (ox > (objLeft+obj.offsetWidth)) || (objLeft > (ox+ow)) || (objTop > (oy+oh)) || (oy>(objTop+obj.offsetHeight)) )" & vbCrlf
  Response.Write " obj.style.visibility = '';" & vbCrlf
  Response.Write " else" & vbCrlf
  Response.Write " obj.style.visibility = 'hidden';" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function showElement(elmID){" & vbCrlf
  Response.Write " var allElements;" & vbCrlf
  Response.Write " if (window.navigator.userAgent.indexOf('MSIE')>=1){allElements = document.all.tags(elmID);" & vbCrlf
  Response.Write " }else{allElements = document.getElementsByTagName('*');}" & vbCrlf
  Response.Write " for (i = 0; i < allElements.length; i++)    {" & vbCrlf
  Response.Write " obj = allElements[i];" & vbCrlf
  Response.Write " if (! obj || ! obj.offsetParent)" & vbCrlf
  Response.Write " continue;" & vbCrlf
  Response.Write " obj.style.visibility ='';" & vbCrlf
  Response.Write " }" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "//-- 解决层被盖住问题结束" & vbCrlf
  Response.Write "//-- 解决层完全距中问题开始" & vbCrlf
  Response.Write "function leftPosition(width)" & vbCrlf
  Response.Write " {var left,width; " & vbCrlf
  Response.Write " if(document.body.clientWidth<width)left = 0;" & vbCrlf
  Response.Write " else left = (document.body.clientWidth-width)/2;" & vbCrlf
  Response.Write " return left;}" & vbCrlf
  Response.Write "function topPosition(height)" & vbCrlf
  Response.Write " {var top,height;" & vbCrlf
  Response.Write " if(document.body.clientHeight<height)top = 0;" & vbCrlf
  Response.Write " else top = (document.body.clientHeight-height)/2;" & vbCrlf
  Response.Write " return top;}" & vbCrlf
  Response.Write "//-- 解决层完全距中问题结束" & vbCrlf
  Response.Write " function GetId(id){return document.getElementById(id);}" & vbCrlf
  Response.Write " function crerantohtml(wtxt){" & vbCrlf