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

crescendo 2004-01-19 06:26:13

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

...全文

50 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

angel2a 2004-01-20

打赏
举报

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

xujie839997 2004-01-20

打赏
举报

mark!!!

紫郢剑侠 2004-01-20

打赏
举报

坚决使用JS.

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

超级大笨狼 2004-01-20

打赏
举报

一个洗牌的代码
<SCRIPT LANGUAGE=vbscript >
'洗牌
Dim N,S,D,P
P=52'牌的数量
Set D = CreateObject("Scripting.Dictionary")
do while D.Count<P
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>

超级大笨狼 2004-01-20

打赏
举报

顺便兜售笨狼牌计算器JS和VBS型，拆迁大甩卖！
按钮完全的笨狼牌计算器web史上代码最少的计算器！
Js型：
<input id=t><p id=p></p>
<button onclick='try{t.value=eval(t.value)}catch(e){}'>=</button>
<button onclick='t.value=""'>C</button>
<SCRIPT>
for(i=42;i<58; i++)if(i!=44)p.innerHTML=p.innerHTML + "<button onclick='t.value=t.value + this.value'>" + String.fromCharCode(i) + "</button>"
</SCRIPT>
vbs型
<input id=t><p id=p></p>
<button onclick='vbs:on error resume next:t.value=eval(t.value)'>=</button>
<button onclick='t.value=""'>C</button>
<SCRIPT LANGUAGE=vbs >
for i=42 to 57
if i<>44 then p.innerHTML=p.innerHTML & "<button onclick='vbs:t.value=t.value & me.value'>" & chr(i) & "</button>"
next
</SCRIPT>

超级大笨狼 2004-01-20

打赏
举报

祝大家新年愉快！
日期转化汉字完美版,JS代码同样行数绝对做不出来哦：
<SCRIPT LANGUAGE=vbs>
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>

超级大笨狼 2004-01-20

打赏
举报

现在有几个人不用IE?
客户端我也喜欢vbs
http://www.adr.gov.cn/download/ddd.htm
http://www.adr.gov.cn/download/ccc.htm
先送两个时间输入界面，此外送给大家一个VBS版本的日历
<table border = 0 cellpadding = 0 cellspacing = 0>
<tr>
<td>
<table border = 0 cellpadding = 0 cellspacing = 0 width = 60 height = 70 style = 'position:absolute ;visibility:hidden' bgcolor = #FFFFE7>
<tr>
<td align = center>
<font style = 'cursor:hand ;color:#FF0000 ;font-family:宋体 ;font-size:14pt ;line-height:120%' > </font>
</td>
</tr>
<tr>
<td align = center>
<font style ='cursor:hand ;color:#2000FF ;font-family:宋体 ;font-size:9pt ;line-height:110%'> </font>
</td>
</tr>
</table>
<table border = 0 cellpadding = 0 cellspacing = 0 width = 61 bgcolor = #D6D3CE height = 70>
<tr>
<td valign = top width = 100% height = 100%>
<table border = 1 cellpadding = 0 cellspacing = 0 width = 58 bgcolor = #FFFFE7 height = 67>
<tr>
<td align = center width = 100% height = 100%>
<font id = C1 style = "font-family:宋体; font-size:7pt; line-height:120%"> </font></br>
<font id = C2 style = "color:#FF0000; font-family:Arial ;font-size:14pt ;line-height:120%"> </font></br>
<font id = C3 style = "font-family:宋体 ;font-size:9pt ;line-height:120%"> </font></br>
<font id = C4 style = "color:#100080 ;font-family:宋体; font-size:8pt ;line-height:120%"> </font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
</table>
<SCRIPT language=vbs>
function YM() '年月
YM = "<font color = #3A6EA5>"
if Weekday(date) = 0 then YM = "<font color = #C00000>"
if Weekday(date) = 6 then YM = "<font color = #00C000>"
YM= YM & Year(date) & "年" & Month(date) & "月</font>"
end function

function DD() '日
DD= "<font color = #FF0000>"
if Weekday(date)=0 then DD = "<font color = #C00000>"
if Weekday(date)=6 then DD = "<font color = #00C000>"
DD= DD & day(date) & "</font>"
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= "<font color = #0000DF>"
Dim w:w=Weekday(date)
if w = 0 then WW = "<font color = #C00000>"
if w = 6 then WW = "<font color = #00C000>"
WW= WW & WeekDayName(w,true) & "</font>"
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 language=javascript>

</SCRIPT>

qunluo 2004-01-19

打赏
举报

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

xdk 2004-01-19

打赏
举报

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

winfielder 2004-01-19

打赏
举报

可以,用下面标识
<script language="VBScript">
</script>
<script language="JavaScript">
</script>

ysyu 2004-01-19

打赏
举报

提供一段小程序：
----------------------------------------------
<%
dim a
a = "VBS变量值"
%>
<script language=javascript>

</script>
--------------------------------------------------------
随手写的，呵呵，但绝对没问题的。：）

peng0731 2004-01-19