javascript_vb_asp代码转换器 ─ 【代码生成】 ─ 深山工作室

javascript_vb_asp代码转换器

来自：深山行者个人网站作者：深山行者浏览 10408 时间：2009/7/23 22:25:11

当前标签: 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>

前一页：可以生成跟QQ菜单一样的生成器

后一页：没有了

相关阅读: ( 2018/6/21 17:40:27 )批量删除access字段里面fld.Properties.Delete; ( 2018/6/21 17:35:47 )ASP操作access或sqlserver数据库的函数库; ( 2018/5/29 11:27:36 )asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法; ( 2018/5/19 9:23:42 )asp利用dateadd获得上个月、本月、下个月的第一天和最后一天; ( 2018/5/18 16:58:25 )asp随机显示字符长度与类型（可随机显示数字、小写字母、大写字母，可以做为随机密码使用）; ( 2018/5/14 10:35:46 )ASP版通过身份证信息获取对应的生日性别年龄; ( 2018/5/14 10:27:27 )最新县及县以上1980年以来历史行政区划代码大全截止2018年3月31日; ( 2018/5/9 10:29:10 )ASP网站打开特别卡提示：msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法

同类文章: javascript_vb_asp代码转换器; 可以生成跟QQ菜单一样的生成器; 13种样式检测QQ是否在线的代码; 复制信息给好友代码; JS压缩; web版的js正则工具

相关文章: asp利用sina提供的ip库端口来获得当前IP所有的地区，所在国，所在省，所在市，在线解析json; 用于深山在线投票的一个javascript统计checkbox现在选中的个数一边点复选框一边验证并计算现在选了多少个复选框; 利用javascript简短功能就可以检查form表单中的元素是否已经填写; 用javscript实现为表格的每一行自动加上序号; 鼠标放在表格区域内，当前格的一整行和一整列变色; Dreamweaver在onLoad运行_onOpen.htm时,发生了以下javascript错误; 兼容ie6+和火狐的禁止右键; javascript日期验证比较

最新文章: 批量删除access字段里面fld.Properties.Delete; ASP操作access或sqlserver数据库的函数库; asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法; asp中求两个数的百分比（利用百分比函数FormatPercent就可以自带%的符号）; asp利用sql操作数据表、数据库的一些方法; rs操作数据表记录集对象的方法; asp利用dateadd获得上个月、本月、下个月的第一天和最后一天; asp随机显示字符长度与类型（可随机显示数字、小写字母、大写字母，可以做为随机密码使用）