javascript_vb_asp代码转换器

以下为详细代码

<HTML><HEAD><TITLE>javascript_vb_asp代码转换器</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>
BODY {MARGIN-TOP: 24px; BACKGROUND-COLOR: white}
H1 {FONT: 20px '黑体'; COLOR: black; TEXT-ALIGN: center}
TD {FONT: 12px 'Courier New'; COLOR: black}
TEXTAREA {FONT: 12px 'Courier New'; COLOR: black}
INPUT {FONT: 12px 'Courier New'; COLOR: black}
SELECT {FONT: 12px 'Courier New'; COLOR: black}
</STYLE>
<SCRIPT language=JavaScript>
function paste() { //粘帖
    var clipboard = window.clipboardData.getData('text');
    clipboard == null ? alert('您的剪切板中没有任何文本内容') : source.value = clipboard;
}
function make() { //转换
    if (source.value == '') { alert('文本框中没有代码'); return; }
    switch (type.value) {
        case 'ASP':
            var hStr = 'Response.Write(_\n';
            var sStr = '"';
            var eStr = '" & _';
            var tStr = '"")';
            var reExp = /\"/g;;
            var reTxt = '""';
            break;
        case 'VBScript':
            var hStr = 'document.write _\n';
            var sStr = '"';
            var eStr = '" & _';
            var tStr = '""';
            var reExp = /\"/g;
            var reTxt = '""';
            break;
        default:
            var hStr = 'document.write(\n';
            var sStr = '\'';
            var eStr = '\' +';
            var tStr = '\'\');';
            var reExp = /((\')|(\\))/g;
            var reTxt = '\\$1';
    }
    var code = source.value.replace(/(^\s*)|(\s*$)/g, '').split("\r\n");
    result.value = hStr;
    for (var i=0; i<code.length; i++)
    result.value += '\t' + sStr + code[i].replace(reExp, reTxt) + eStr + '\n';
    result.value += tStr
}
function preview() { //预览
    if (type.value == 'JavaScript' || type.value == 'VBScript') {
        var win = window.open();
        win.document.open('text/html', 'replace');
        win.document.writeln('<script language="' + type.value + '">\n' + result.value + '\n<\/script>');
        win.document.close();
    }
    else { alert('无法直接预览'); }
}
function copy() { //复制
    result.value == '' ? alert('没有需要复制的代码') : window.clipboardData.setData('text', result.value);
}
</SCRIPT>
<META content="MSHTML 6.00.2800.1276" name=GENERATOR></HEAD>
<BODY>
<TABLE width=750 align=center>
  <TBODY>
  <TR>
    <TD>
      <H1>代码转换器</H1>
      <HR>
<INPUT onclick=paste(); type=button value=1.粘帖>（将需要进行转换的代码粘帖到下面的文本框中） <TEXTAREA id=source style="WIDTH: 750px; HEIGHT: 180px"></TEXTAREA><BR><BR>
      <HR>
<INPUT onclick=make(); type=button value=2.转换> <SELECT id=type 
      onchange=make();><OPTION value=JavaScript 
        selected>JavaScript</OPTION><OPTION 
        value=VBScript>VBScript</OPTION><OPTION 
      value=ASP>ASP</OPTION></SELECT>（点击转换按钮将完成从HTML代码到相应代码的转换） <TEXTAREA id=result style="WIDTH: 750px; HEIGHT: 180px"></TEXTAREA><BR><BR>
      <HR>
<INPUT onclick=preview(); type=button value=3.预览>（查看转换后的效果） <IMG height=1 
      width=100> <INPUT onclick=copy(); type=button value=4.复制>（复制转换后的代码到剪贴板中） 
      <BR></TD></TR></TBODY></TABLE></BODY></HTML>