<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_3312')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language="vbscript">
<!--
sub button1_onclick
msgbox (" 欢迎使用vbscript! " )
end sub
-->
</script>
<script language="javascript">
<!--
function b213()
{
alert("欢迎使用javascript!")
}
-->
</script>
<form>
<input type="button" name="button1" value="vbs"><br>
<input type="button" name="button2" value="js" οnclick="b213()">
</form>
vbscript中的Sub 就是一个事件过程。过程名包含两部分：一部分为按钮名，即 Button1（从 < INPUT > 标记中的 NAME 属性获取）；另一部分为事件名，即 OnClick。两部分由下划线 (_) 连接。单击按钮时，Internet Explorer 查找并运行相应的事件过程，即 Button1_OnClick，而MsgBox 就是一个函数，对于它更具体的参数，你就好好看下了。
<!--
sub button1_onclick
msgbox (" 欢迎使用vbscript! " )
end sub
-->
</script>
<script language="javascript">
<!--
function b213()
{
alert("欢迎使用javascript!")
}
-->
</script>
<form>
<input type="button" name="button1" value="vbs"><br>
<input type="button" name="button2" value="js" οnclick="b213()">
</form>
vbscript中的Sub 就是一个事件过程。过程名包含两部分：一部分为按钮名，即 Button1（从 < INPUT > 标记中的 NAME 属性获取）；另一部分为事件名，即 OnClick。两部分由下划线 (_) 连接。单击按钮时，Internet Explorer 查找并运行相应的事件过程，即 Button1_OnClick，而MsgBox 就是一个函数，对于它更具体的参数，你就好好看下了。
一时来劲，可能大家都看到网上有种狂恶心的对话框组，原理是什么呢？请看：
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_2649')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language="vbscript">
msgbox"你知道你会点确定的。。。。。。。"
msgbox"不点也要点。。。。。。。。"
msgbox"没办法是吧。。。。。。。。。。？"
msgbox"要不网页打不开啊。。。。。。"
msgbox"这招损人吧。。。。。。。。。"
msgbox"真想揍揍站长。。。。。。。。。"
</script>
其实站长用这些玩弄别人的时候，先玩弄了自己：因为这都是他想出来的啊：）
呵呵，我没有损大家的意思，只是为了学习。
msgbox"你知道你会点确定的。。。。。。。"
msgbox"不点也要点。。。。。。。。"
msgbox"没办法是吧。。。。。。。。。。？"
msgbox"要不网页打不开啊。。。。。。"
msgbox"这招损人吧。。。。。。。。。"
msgbox"真想揍揍站长。。。。。。。。。"
</script>
其实站长用这些玩弄别人的时候，先玩弄了自己：因为这都是他想出来的啊：）
呵呵，我没有损大家的意思，只是为了学习。
在来个开页和退页弹出对话框的原理吧
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_8886')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language="vbscript">
<!--
sub window_onload()
msgbox"welcome you!"
end sub
sub window_onunload()
msgbox"see you late!"
end sub
-->
</script>
开页显示“welcome you!”，关页显示“see you late！”
<!--
sub window_onload()
msgbox"welcome you!"
end sub
sub window_onunload()
msgbox"see you late!"
end sub
-->
</script>
开页显示“welcome you!”，关页显示“see you late！”
以上只是一个显示对话框msgbox，当然还有书写对话框inputbox也顺便看下吧。
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_4049')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language="vbscript">
<!--
dim strname
strname=inputbox("enter your name please:","enter your name","cnbruce")
document.write(strname&",welcome you!<p>")
-->
</script>
有关inputbox的想关参数也去看看吧。
再来看看几个实用的函数：
len()：返回字符串长度或者变量的字节长度
lef()：截取一个字符串的前部分内容
right()：截取一个字符串的后部分内容
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_2564')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language=vbs>
text="1234567890abcdefgh"
i=10
lentext=len(text)
lefttext=left(text,i)
righttext=right(text,i)
alert ("文本长度是："&lentext)
alert ("文本左取"&i&" 得的是："&lefttext)
alert ("文本右取"&i&" 得的是："&righttext)
</script>
text="1234567890abcdefgh"
i=10
lentext=len(text)
lefttext=left(text,i)
righttext=right(text,i)
alert ("文本长度是："&lentext)
alert ("文本左取"&i&" 得的是："&lefttext)
alert ("文本右取"&i&" 得的是："&righttext)
</script>
根据这几个，经常看到的长文章后面加“......”的情况就是如下：
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_9143')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language=vbs>
text="123 4567 8fds90 abcde fghxcfv"
i=10
if len(text)>i then '如果文本长度大于给定的值
text=left(text,i) '则提取前段的i位的字符串
alert (text&"...")
else
alert (text)
end if
</script>
text="123 4567 8fds90 abcde fghxcfv"
i=10
if len(text)>i then '如果文本长度大于给定的值
text=left(text,i) '则提取前段的i位的字符串
alert (text&"...")
else
alert (text)
end if
</script>
还有个比较重要的函数 replace()
在字符串中查找，替代指定的字符串
replace(strtobesearched,strsearchfor,strreplacewith)
strtobesearched是字符串; strsearchfor是被查找的子字符串;strreplacewith 是用来替代的子字符串。
下面的一个就是很有用的文字转换程序
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_3280')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language=vbs>
text="妈的，我操"
text=replace(text,"妈的","MD")
text=replace(text,"操","CAO")
alert (text)
</script>
text="妈的，我操"
text=replace(text,"妈的","MD")
text=replace(text,"操","CAO")
alert (text)
</script>
这些都是比较现实较好玩的些，玩中学习也不错：）但毕竟我们是要编程的，说到编写程序，我知道程序结构可以分：
1，顺序结构：就是最普通的，从上往下，从左往右执行的程序
2，选择结构：给你两个条件，要不这样（if ... then），要不那样(else)，任君选择：）
3，循环结构：给你一个最大发挥的空间，在不超出这个范围内进行活动（循环），否则自动退出（跳出循环）。
再复杂的程序也无非是由这三种结构综合嵌套运用过来的，你说是吧。
顺序结构没多少要说，因为程序执行基本都是这方向。
来看看选择结构，当然选择结构也可以嵌套。
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_4871')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<body>
hello,
<script language="vbscript">
<!--
dim thishour
thishour=hour(time)
if thishour<=12 then
document.bgcolor="red"
document.fgcolor="black"
document.write("上午好！")
else
if thishour<=18 then
document.bgcolor="blue"
document.fgcolor="white"
document.write("下午好！")
else
document.bgcolor="green"
document.fgcolor="yellow"
document.write("晚上好！")
end if
end if
-->
</script>
本页的作用是根据不同时间显示不同颜色和欢迎信息。
</body>
hello,
<script language="vbscript">
<!--
dim thishour
thishour=hour(time)
if thishour<=12 then
document.bgcolor="red"
document.fgcolor="black"
document.write("上午好！")
else
if thishour<=18 then
document.bgcolor="blue"
document.fgcolor="white"
document.write("下午好！")
else
document.bgcolor="green"
document.fgcolor="yellow"
document.write("晚上好！")
end if
end if
-->
</script>
本页的作用是根据不同时间显示不同颜色和欢迎信息。
</body>
以上程序很简单吧，只要能认识英文就会懂程序（我是这么理解的：）
先把现在的小时提交出来：hour(time)；
然后和12比较判断，如果<=12，肯定是上午了，否则就是下午和晚上；
否则里面继续条件判断，如果时间再<=18的话，那肯定就是下午了；
最后，不用说，瞎子猜猜也知道是晚上了：）
有关上一程序中的document.bgcolor就是文档的背景色,document.fgcolor就是文档的前景色（文字色），下一程序是动态改变背景颜色的。
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_2222')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language="vbscript">
<!--
sub setbgcolor(bcolor)
document.bgcolor=bcolor
end sub
-->
</script>
<form>
<input type="radio" name="color" οnclick=setbgcolor("red")>red<br>
<input type="radio" name="color" οnclick=setbgcolor("green")>green<br>
<input type="radio" name="color" οnclick=setbgcolor("blue")>blue<br>
<input type="radio" name="color" οnclick=setbgcolor("yellow")>yellow<br>
<input type="radio" name="color" οnclick=setbgcolor("gray")>gray<br>
</form>
<!--
sub setbgcolor(bcolor)
document.bgcolor=bcolor
end sub
-->
</script>
<form>
<input type="radio" name="color" οnclick=setbgcolor("red")>red<br>
<input type="radio" name="color" οnclick=setbgcolor("green")>green<br>
<input type="radio" name="color" οnclick=setbgcolor("blue")>blue<br>
<input type="radio" name="color" οnclick=setbgcolor("yellow")>yellow<br>
<input type="radio" name="color" οnclick=setbgcolor("gray")>gray<br>
</form>
有关 条件选择结构的嵌套再show出一个表单检测的程序
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_2169')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<html><head><title>abc</title>
<script language="vbscript">
<!--
sub btnsubmit_onclick
if form1.name.value<>"" then
if form1.addr.value<>"" then
if form1.email.value<>"" then
if instr(form1.email.value,"@")<>0 and instr(form1.email.value,".")<>0 then
form1.submit
else
alert"email error!"
end if
else
alert "enter your email!"
form1.elements("email").focus
end if
else
alert "enter your address!"
form1.elements("addr").focus
end if
else
msgbox "enter your name please!"
form1.elements("name").focus
end if
end sub
-->
</script>
</head>
<body>
<form name="form1" method=post action="bug.html">
your name:<input type="text" name="name"><br>
your addr:<input type="text" name="addr"><br>
your email:<input type="text" name="email"><br>
<input type="button" name="btnsubmit" value="submit">
</form>
</body>
</html>
<script language="vbscript">
<!--
sub btnsubmit_onclick
if form1.name.value<>"" then
if form1.addr.value<>"" then
if form1.email.value<>"" then
if instr(form1.email.value,"@")<>0 and instr(form1.email.value,".")<>0 then
form1.submit
else
alert"email error!"
end if
else
alert "enter your email!"
form1.elements("email").focus
end if
else
alert "enter your address!"
form1.elements("addr").focus
end if
else
msgbox "enter your name please!"
form1.elements("name").focus
end if
end sub
-->
</script>
</head>
<body>
<form name="form1" method=post action="bug.html">
your name:<input type="text" name="name"><br>
your addr:<input type="text" name="addr"><br>
your email:<input type="text" name="email"><br>
<input type="button" name="btnsubmit" value="submit">
</form>
</body>
</html>
程序是给出来了，但看起来比较难懂，有时程序执行时间也比较重要，所以得精简程序代码。
正所谓：写程序容易，写经典程序难啊，那上面的程序还可以换种思维方式。改用javascript(注：学的是编程思想，不要太过计较脚本类型)
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_8203')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<html><head><title>abc</title>
<script language="javascript">
<!--
function form1_onsubmit()
{
if (document.form1.name.value=="")
{
alert("请设定您的登陆名。")
document.form1.name.focus()
return false
}
else if(document.form1.addr.value=="")
{
alert("请填写您的地址。")
document.form1.addr.focus()
return false
}
else if(document.form1.email.value=="")
{
alert("请填写您的E-Mail地址。")
document.form1.email.focus()
return false
}
}
-->
</script>
</head>
<body>
<form name="form1" οnsubmit="return form1_onsubmit()">
your name:<input type="text" name="name"><br>
your addr:<input type="text" name="addr"><br>
your email:<input type="text" name="email"><br>
<input type="submit" name="submit" value="submit">
</form>
</body>
</html>
<script language="javascript">
<!--
function form1_onsubmit()
{
if (document.form1.name.value=="")
{
alert("请设定您的登陆名。")
document.form1.name.focus()
return false
}
else if(document.form1.addr.value=="")
{
alert("请填写您的地址。")
document.form1.addr.focus()
return false
}
else if(document.form1.email.value=="")
{
alert("请填写您的E-Mail地址。")
document.form1.email.focus()
return false
}
}
-->
</script>
</head>
<body>
<form name="form1" οnsubmit="return form1_onsubmit()">
your name:<input type="text" name="name"><br>
your addr:<input type="text" name="addr"><br>
your email:<input type="text" name="email"><br>
<input type="submit" name="submit" value="submit">
</form>
</body>
</html>
最后来看下 循环结构吧：1到500可不是一个一个写出来的。
<script type="text/javascript">window.attachEvent("onload",function (){AutoSizeDIV('CODE_6099')})</script>
| 程序代码： | [ 复制代码到剪贴板 ] |
<script language=vbs>
for i= 1 to 500
document.write(i&"<br>")
next
</script>
for i= 1 to 500
document.write(i&"<br>")
next
</script>
当然循环不只可以用for，还可以用do while...loop等
反正程序这东西是代替我们少做了许多重复单一无聊的事——只要你合理利用程序。
应该有些成就吧，学语言，学编程就是学语法语义，学编程架构思想。
当然这要你有扎实的本语言的基础，基础是什么？你知道哪些 函数吗？你知道怎么用程序怎么判断偶数吗（包含了 运算）？你知道如何进行表单检测吗？你知道哪三种程序架构吗？
函数参看：
http://www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=245
呵呵，把以上的程序吃透，最好再多看看脚本参考手册，跟我就可以开始ASP的上路了
扫一扫
2049
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
