ASP函数库

s=s+'</table>';" & vbCrlf
  Response.Write "return s;" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function inputimage()" & vbCrlf
  Response.Write "{" & vbCrlf
  Response.Write "var temp=showModalDialog('"&GtimgPath&"','', 'dialogWidth:30em; dialogHeight:26em; status:0');" & vbCrlf
  Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
  Response.Write "if ((temp!==null) && (temp!==''))" & vbCrlf
  Response.Write "doadv('InsertImage',temp);" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function inputother()" & vbCrlf
  Response.Write "{" & vbCrlf
  Response.Write "var temp=showModalDialog('"&GtswfPath&"','', 'dialogWidth:30em; dialogHeight:26em;status:0');" & vbCrlf
  Response.Write "var tempa="&chr(34)&"<p align='center'><a >暂停</a>　<a onclick=\"&chr(34)&"MZYmovie.width='600';MZYmovie.height='600';\"&chr(34)&"  STYLE='cursor:hand;'>最大化</a>　<a onclick=\"&chr(34)&"MZYmovie.width='500';MZYmovie.height='400';\"&chr(34)&"  STYLE='cursor:hand;'>恢复</a><br><table NAME='FFWH' ID='FFWH'  border='0' width='100%' height='100%' cellspacing='0' cellpadding='0'><tr><td width='100%' height='90%' valign='middle' align='center'>"&chr(34)&";" & vbCrlf
  Response.Write "var tempb="&chr(34)&"<EMBED SRC='"&chr(34)&";" & vbCrlf
  Response.Write "var tempc="&chr(34)&"' WIDTH='500' HEIGHT='400' QUALITY='high' PLUGINSPAGE='http://www.macromedia.com/go/getflashplayer' TYPE='application/x-shockwave-flash' ID='MZYmovie' NAME='MZYmovie' MENU='false'>"&chr(34)&";" & vbCrlf
  Response.Write "var tempd="&chr(34)&"</td></tr></table></p>"&chr(34)&";" & vbCrlf
  Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
  Response.Write "if ((temp!==null) && (temp!==''))" & vbCrlf
  Response.Write "temp=tempa+tempb+temp+tempc+tempd;" & vbCrlf
  Response.Write "InsertOle(temp);" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function inputotherpl()" & vbCrlf
  Response.Write "{" & vbCrlf
  Response.Write "var pl_w = prompt('录入影片的宽度', '100');" & vbCrlf
  Response.Write "var pl_h = prompt('录入影片的高度', '100');" & vbCrlf
  Response.Write "var tempwh="&chr(34)&"WIDTH="&chr(34)&"+pl_w+"&chr(34)&" HEIGHT="&chr(34)&"+pl_h;"
  Response.Write "var temp=showModalDialog('"&GtwavPath&"','', 'dialogWidth:30em; dialogHeight:26em; status:0');" & vbCrlf
  Response.Write "var temprma="&chr(34)&"<OBJECT CLASSID='clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA' ID='MZYMPL' "&chr(34)&";"
  Response.Write "var temprmb="&chr(34)&"><PARAM NAME='SRC' VALUE='"&chr(34)&";"
  Response.Write "var temprmc="&chr(34)&"'></OBJECT>"&chr(34)&";"
  Response.Write "var tempmpa="&chr(34)&"<OBJECT CLASSID='clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6' ID='MZYMPL'"&chr(34)&";"
  Response.Write "var tempmpb="&chr(34)&"><PARAM NAME='URL' VALUE='"&chr(34)&";"
  Response.Write "var tempmpc="&chr(34)&"'></OBJECT>"&chr(34)&";"
  Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
  Response.Write "if ((temp!==null) && (temp!==''))" & vbCrlf
  Response.write "var pllx = confirm('是否使用Windows media player?')"&vbCrlf
  Response.write "if (pllx != '0'){"&vbCrlf
  Response.Write "temp=tempmpa+'  '+tempwh+'  '+tempmpb+temp+tempmpc;"&vbCrlf
  Response.Write "}else{"&vbCrlf
  Response.Write "temp=temprma+'  '+tempwh+'  '+temprmb+temp+temprmc;"&vbCrlf
  Response.Write "}"&vbCrlf
  Response.Write "InsertOle(temp);" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function inputotlink()" & vbCrlf
  Response.Write "{" & vbCrlf
  Response.Write "var linkname = prompt('录入链接文字说明', '点这下载');" & vbCrlf
  Response.Write "var temp=showModalDialog('"&GtotherPath&"','', 'dialogWidth:30em; dialogHeight:26em; status:0');" & vbCrlf
  Response.Write "MZYEDITWINDOW.focus();" & vbCrlf
  Response.Write "if ((temp!==null) && (temp!=='')){" & vbCrlf
  Response.Write "temp="&chr(34)&"<a href="&chr(34)&"+temp+"&chr(34)&" _fcksavedurl=""&chr(34)&"+temp+"&chr(34)&"" _fcksavedurl=""&chr(34)&"+temp+"&chr(34)&"" _fcksavedurl=""&chr(34)&"+temp+"&chr(34)&"" target='_blank'>"&chr(34)&"+linkname+"&chr(34)&"</a>"&chr(34)&";" & vbCrlf
  Response.Write "InsertOle(temp);}" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function HTMLEncode(text){" & vbCrlf
  Response.Write "text = text.replace(/&/g, '&') ;" & vbCrlf
  Response.Write "text = text.replace(/""/g, '"') ;" & vbCrlf
  Response.Write "text = text.replace(/</g, '<') ;" & vbCrlf
  Response.Write "text = text.replace(/>/g, '>') ;" & vbCrlf
  Response.Write "text = text.replace(/'/g, '’') ;" & vbCrlf
  Response.Write "text = text.replace(/\ /g,' ');" & vbCrlf
  Response.Write "text = text.replace(/\n/g,'<br>');" & vbCrlf
  Response.Write "text = text.replace(/\t/g,'    ');" & vbCrlf
  Response.Write "return text;" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function cleanword(text) {" & vbCrlf
  Response.Write "text = text.replace(/<\/?SPAN[^>]*>/gi, '' );" & vbCrlf
  Response.Write "text = text.replace(/<(\w[^>]*) class=([^ |>]*)([^>]*)/gi, '<$1$3') ;" & vbCrlf
  Response.Write "text = text.replace(/<(\w[^>]*)([^""]*)""([^>]*)/gi, '<$1$3') ;" & vbCrlf
  Response.Write "text = text.replace(/<(\w[^>]*) lang=([^ |>]*)([^>]*)/gi, '<$1$3') ;" & vbCrlf
  Response.Write "text = text.replace(/<\\?\?xml[^>]*>/gi, '') ;"