vbscript怎样去年换行

[chrome_]

dim intret
intret = 2
if intret=6 then
location.href="http://www.google.com/"
elseif intret =7 then
location.href="http://www.baidu.com/"
end if

请问怎样把上面语句写到一行里面，能正解执行的，js分号就可以了，vbscript要怎么写呢？

[chrome_]

去掉换行

[Dogfish]

冒号。

dim intret:intret =6:if intret=6 then:a="http://www.google.com/":else:if intret =7 then:a="http://www.baidu.com/":End if:end if:MsgBox a

[leohyf]

冒号就ok了~~~