热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

问一个入门者的问题可以同时用VBScript和JavaScript编辑网页吗?

用VBScript和JavaScript同时编辑网页的话有什么要求吗?会不会因为语言的不同而出错呢?VBScript和JavaScript哪一个更好呢?
用Vbscript和Javascript同时编辑网页的话有什么要求吗?会不会因为语言的不同而出错呢?
Vbscript和Javascript哪一个更好呢?

13 个解决方案

#1


可以的,在
--------------------------------------------------------
随手写的,呵呵,但绝对没问题的。:)

#4


可以,用下面标识

#5


嗯嗯。可以的。UP楼上的。

#6


首先不推荐在一个程序里套用两种脚本语言,微软站上的技术文章(是测试后的结果)当服务器在两中语言切换时,不同的引擎的切换带来服务器端更大压力!所以建议只使用一种!
当然个人使用方法是检测客户端用JavScript更适应各类型浏览器的要求!要知道只有IE完全支持Vbscript,而其他浏览器不敢保证这样的问题,当然Javascript适应面要宽得多!
另外,这里给大家特别说明,测试表明,在大家以后如果知道自己的服务器默认语言的基础上请不要在页首<% language="XXXscript" %>这里说明,据说存在效率问题!如果知道是Vbscript那就不要在注明了!我也是最近才看到这样的说法!

#7


现在有几个人不用IE?
客户端我也喜欢vbs
http://www.adr.gov.cn/download/ddd.htm
http://www.adr.gov.cn/download/ccc.htm
先送两个时间输入界面,此外送给大家一个VBS版本的日历






 




  


 
 

 
 

 
 

 
 
 
 
 









function YM() '年月
YM = ""
if Weekday(date) = 0 then YM = ""
if Weekday(date) = 6 then YM = ""
YM= YM & Year(date) & "年" & Month(date) & "月"
end function

function DD() '日
DD= ""
if Weekday(date)=0 then DD = ""
if Weekday(date)=6 then DD = ""
DD= DD & day(date) & "" 
end function

function HMS() '时分秒
HMS=Hour(Now) & ":"
dim mm:mm=Minute(Now)
dim ss:ss=Second(Now)  
if mm<10 then HMS=HMS & "0" & mm else HMS=HMS & mm
if ss<10 then HMS=HMS & "0" & ss else HMS=HMS & ss  
end function

function WW() '星期
WW= ""
Dim w:w=Weekday(date) 
if w = 0 then WW = ""
if w = 6 then WW = ""
WW= WW & WeekDayName(w,true) & "" 
end function

sub CCC() '刷新时间
C1.innerHTML = YM()
C2.innerHTML = DD()
C3.innerHTML = WW()
C4.innerHTML = HMS()
end sub
CCC
window.setInterval "CCC", "1000" ,"vbs"
《SCRIPT》
个人认为VBS比JS的代码易读,短小,功能方便
我用JS只为了改别人的垃圾代码,如果自己开发,首选VBS
JS版本对照:


《SCRIPT》

#8


祝大家新年愉快!
日期转化汉字完美版,JS代码同样行数绝对做不出来哦:

Dim A,B,C,D,E
A="2004-1-20"
B=split(A,"-")(0)
C=split(A,"-")(1)
D=split(A,"-")(2)
if int(D/10)=0 then E=E & F(D)  else _
if D mod 10 =0 then E=E &  F(int(D/10)) & "十" else _
E=E &  F(int(D/10)) & "十" & F(D mod 10)
E=F(B) & "年" & MonthName(C,True) & replace(E,"一十","十") & "日"
msgbox E 
Function F(x)
for i=1 to len(x)
if mid(x,i,1)="0" then F=F & "零" else F=F & left(MonthName(mid(x,i,1), True),1)
next
end Function
《SCRIPT》

#9


顺便兜售笨狼牌计算器JS和VBS型,拆迁大甩卖!
按钮完全的笨狼牌计算器web史上代码最少的计算器!
Js型:


=
C
《SCRIPT》
for(i=42;i<58; i++)if(i!=44)p.innerHTML=p.innerHTML + "" + String.fromCharCode(i) + ""
《SCRIPT》
vbs型


=
C

for i=42 to 57
if i<>44 then p.innerHTML=p.innerHTML & "" & chr(i) & ""
next
《SCRIPT》

#10


一个洗牌的代码

'洗牌
Dim N,S,D,P
P=52'牌的数量
Set D = CreateObject("Scripting.Dictionary")
do while D.Count

Randomize
N=Int(P * Rnd + 1)
if not D.Exists(cstr(N)) then
 D.Add cstr(N),cstr(N)
 end if
loop
for each K in D.Keys
S=S & K & " "
next
msgbox replace(trim(S)," ",",")
《SCRIPT》

#11


mark!!!

#12


当然可以
Javascript支持的浏览器较多,也较严警
推荐

#13


坚决使用JS.

VB的语法简直是....谋杀...

推荐阅读
author-avatar
多米音乐_34473808
这个家伙很懒,什么也没留下!
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有