Question

（VBScript脚本语言） 1.编写函数用于判断用户输入的电话号码是否正确，电话号码可以是7位、8位或11位。

这道题是有关ASP网页设计方面VB语言这一块的。

Answer 1

dim phonenumber
dim m2
phonenumber = InputBox("请输入您的电话号码", "电话号码")
m2=phonenum(phonenumber)
if m2=1 then
msgbox "号码正确"
else
msgbox "号码不正确"
end if

function phonenum(num)
dim l
l=len(num)
select case l
case 7
phonenum=1
case 8
phonenum=1
case 11
phonenum=1
case else
phonenum=0
end select
end function

追问

运行后不正确啊

追答

你保存为.vbs文件就行,然后在根据需要嵌套到asp代码里面

追问

提示这个脚本缺少语句

追答

嗯，保存为vbs后 双击运行

追问

但是提示这个脚本缺少语句

追答

具体什么报错？不会啊 我这都运行很好。

追问

还在不，前辈，你是用什么运行的啊，是Dream weaver么

追答

我是写的个VBS脚本，在windows平台都能够运行，其实你只要把这个方法放到你网页就行了。你想验证这段脚本有没有问题，先新建txt文件，把我的脚本复制到txt文件里面，保存好，然后把txt文件重命名为.vbs后缀的文件，再双击这个vbs文件，肯定能运行了。

而且你这个问题很简单的，主要用vbs的这两个函数就行：
isnumeric //用来判断输入是否为数字， 用法 if isnumeric(m1) then
len //获取输入长度，用法 length=len(num)

追问

这个老师要求是再dream里运行的，然后看效果，写实验报告，等周四实验我问问老师。
谢谢你的耐心回答！