ASP函数库

  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, '&amp;') ;" & vbCrlf
  Response.Write "text = text.replace(/""/g, '&quot;') ;" & vbCrlf
  Response.Write "text = text.replace(/</g, '&lt;') ;" & vbCrlf
  Response.Write "text = text.replace(/>/g, '&gt;') ;" & vbCrlf
  Response.Write "text = text.replace(/'/g, '&#146;') ;" & vbCrlf
  Response.Write "text = text.replace(/\ /g,'&nbsp;');" & vbCrlf
  Response.Write "text = text.replace(/\n/g,'<br>');" & vbCrlf
  Response.Write "text = text.replace(/\t/g,'&nbsp;&nbsp;&nbsp;&nbsp;');" & 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, '') ;" & vbCrlf
  Response.Write "text = text.replace(/<\/?\w+:[^>]*>/gi, '') ;" & vbCrlf
  Response.Write "text = text.replace(/&nbsp;/, ' ' );" & vbCrlf
  Response.Write "var re = new RegExp('(<P)([^>]*>.*?)(<\/P>)','gi') ;" & vbCrlf
  Response.Write "text = text.replace( re, '<div$2</div>' ) ;" & vbCrlf
  Response.Write "return text;" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "function atotxt()" & vbCrlf
  Response.Write "{if ( confirm('如果转为文本格式将丢失所有排版内容，请确认是否这样做？')){MZYEDITWINDOW.focus();" & vbCrlf
  Response.Write "MZYEDITWINDOW.document.body.innerHTML=HTMLEncode(MZYEDITWINDOW.document.body.innerText);}}" & vbCrlf
  Response.Write "function wtohtm()" & vbCrlf
  Response.Write "{if ( confirm('是否要将WORD格式去除？')){MZYEDITWINDOW.focus();" & vbCrlf
  Response.Write "MZYEDITWINDOW.document.body.innerHTML=cleanword(MZYEDITWINDOW.document.body.innerHTML);}}" & vbCrlf
  Response.Write "function CKjtb() {" & vbCrlf
  Response.Write "var oDiv = document.getElementById('Temp_HTML');" & vbCrlf
  Response.Write "oDiv.innerHTML = '' ;" & vbCrlf
  Response.Write "var oTextRange = document.body.createTextRange() ;" & vbCrlf
  Response.Write "oTextRange.moveToElementText(oDiv) ;" & vbCrlf
  Response.Write "oTextRange.execCommand('Paste') ;" & vbCrlf
  Response.Write "var sData = oDiv.innerHTML ;" & vbCrlf
  Response.Write "oDiv.innerHTML = '' ;" & vbCrlf
  Response.Write "var re = /<\w[^>]* class=""?MsoNormal""?/gi ; var nsData=sData;" & vbCrlf
  Response.Write "if ( re.test(sData)){" & vbCrlf
  Response.Write "if (confirm( '你要粘贴的内容好象是从Word中拷出来的，是否要先清除Word格式再粘贴？' )){" & vbCrlf
  Response.Write "nsData=cleanword(sData) ;" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "MZYEDITWINDOW.document.selection.createRange().pasteHTML(nsData);" & vbCrlf
  Response.Write "return false ;" & vbCrlf
  Response.Write "}" & vbCrlf
  Response.Write "setTimeout(""MZYEDITWINDOW.document.body.onpaste =CKjtb;"",1000);" & vbCrlf

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 1920 21 22 23 24 25 26 下一页

上一篇：SubSonic 的字段名未转义问题修正   下一篇：关于分页查询和性能问题

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】