javascript_vb_asp代码转换器 -- [代码生成]─ 深山工作室提供网络投票系统|微信公众号投票|微信公众号小程序|抖音小程序|百度小程序|微信公众号开发|企业网站建设

javascript_vb_asp代码转换器

深山行者个人网站 2009/7/23 22:25:11 深山行者字体:大中小浏览 14629

以下为详细代码

<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菜单一样的生成器

相关阅读: uni-app浏览历史记录功能实现; 旅行社管理系统 V1.9; 深山留言板V7.0效果; 当前流行的四款常用浏览器最客观的评测; 126邮箱TAB效果(同一页面可多次使用); 全站托管解决方案; 连云港汽车门户网站; 深山行者留言系统V3.2发布

共有0条关于《javascript_vb_asp代码转换器》的评论: 发表评论

正在加载评论......

返回顶部发表评论

呢称:
表情:
内容:	评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码:

网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择: 百度小程序开发; 微信小程序开发; 微信公众号开发; uni-app; asp函数库; ASP; DIV+CSS; HTML; python

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

更多>>最新添加文章: dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT; Android移动端自动化测试：使用UIAutomatorViewer与Selenium定位元素; 抖音直播音挂载小雪花懂车帝小程序; javascript获取浏览器指纹可以用来做投票; 火狐Mozilla Firefox出现：无法载入您的Firefox配置文件它可能已经丢失或是无法访问问题解决集合处理办法; 在Android、iOS、Windows、MacOS中微信小程序的文件存放路径; python通过代码修改pip下载源让下载库飞起; python里面requests.post返回的res.text还有其它的吗

更多>>随机抽取信息: windows8的iis7应用程序池标识问题; 从空格谈起--关于CSS模块化设计; 模仿as效果的跳动导航菜单; 另类的title提示文字; asp许愿墙程序终于设计得差不多了，现在开放; CSS选择符详解

更多标签热门标签

innerHTML input 锚点 IP 收藏统计操作墙网站地图 dd Response 首字母搜索引擎杈规 初级管理系统 time div CSS vista 项目增大无限人生右击正则配色分辨率许愿墙半透明 2003 尺寸数字缩略图幻灯滑轮保留选项卡拼音 CSS规范翻页标语技巧成功计划调色间隔 cookies 论坛 onblur 图片上传