请问关于VBS的异常
日期：2014-05-17 浏览次数：20670 次
请教关于VBS的错误.
各位帮忙看下错误在哪呢?
错误提示信息是:
行:106
字符:1
错误:缺少 'next '
----------------------------------------
<html>
<head>
<title> 四季日历 </title>
</head>
<BLOCKQUOTE>
<SCRIPT language=vbs>
<!--
documnet.open
call displaycalender()
doucment.close
'定义所需变量
'currentdate 表示当日在一周内所在的天,即几号
'currentday 表求当日在一周内所在的天,即星期几
'currentyear 表示当日所在年份
'currentmonth 表示当日所在月份
'xday 关键变量,表求日历中,月份开始时到1号所空的天数
dim currentdate, currentday,currentyear, currentmonth, xday
'下面得到与当日有关的日期信息
sub dayinfo
date_info=date()
currentdate=day(date_info)
currentday=weekday(date_info)-1
currentmonth=month(date_info)
currentyear=year(date_info)
tempday-currentdate mod 7
xday=(currentday+7-tempday) mod 7 +1
end sub
'下面的过程打印日历
sub displaycalender
'定义数组,表示每月的天数
dim alldays(11)
alldays(0)=31
alldays(1)=28
alldays(2)=31
alldays(3)=30
alldays(4)=31
alldays(5)=30
alldays(6)=31
alldays(7)=31
alldays(8)=30
alldays(9)=31
alldays(10)=30
alldays(11)=31
'定义数组,表示星期几的英文缩写
dim weekdayname(6)
weekdayname(0)= "Su " '
weekdayname(1)= "Mon "
weekdayname(2)= "Tue "
weekdayname(3)= "Wed "
weekdayname(4)= "Thu "
weekdayname(5)= "Fri "
weekdayname(6)= "Sat "
dim monthname(11)
monthname(0)= "Junuary "
monthname(1)= "Februany "
monthname(2)= "March "
monthname(3)= "April "
monthname(4)= "May "
monthname(5)= "June "
monthname(6)= "July "
monthname(7)= "August "
monthname(8)= "Sepetember "
monthname(9)= "October "
monthname(10)= "November "
monthname(11)= "December "
'调用过程dayinfo,得到日期信息,存入公共变量中
call dayinfo
'测试闰年
if(currentyear mod 4=0) then alldays(1)=alldays(1)+1
'利用writeln函数向日葵浏览器窗口写入HTML代码
'先写HTML的头部分
document.writeln( " <html> ")
document.writeln( " <head> ")
document.writeln( " <title> 四季日历 </title> ")
document.writeln( " </head> ")
document.writeln( " <body> ")
'再写形成日历的表格,为了看清楚,在样式信息中定义了大字本
document.writeln( " <tabel border=0 style = 'font-size=32pt;text-align:center '> ")
'书写表格的标题
document.writeln( " <caption style= 'color:blue '> ")
document.writeln(currentyear&monthname(currentmonth))
document.writeln( " </caption> ")
'书写表头,表头是星期几的英文名称
document.writeln( " <tr> ")
for i= 0 to 6
document.writeln( " <th style= 'color:red ' "&weekdayname
各位帮忙看下错误在哪呢?
错误提示信息是:
行:106
字符:1
错误:缺少 'next '
----------------------------------------
<html>
<head>
<title> 四季日历 </title>
</head>
<BLOCKQUOTE>
<SCRIPT language=vbs>
<!--
documnet.open
call displaycalender()
doucment.close
'定义所需变量
'currentdate 表示当日在一周内所在的天,即几号
'currentday 表求当日在一周内所在的天,即星期几
'currentyear 表示当日所在年份
'currentmonth 表示当日所在月份
'xday 关键变量,表求日历中,月份开始时到1号所空的天数
dim currentdate, currentday,currentyear, currentmonth, xday
'下面得到与当日有关的日期信息
sub dayinfo
date_info=date()
currentdate=day(date_info)
currentday=weekday(date_info)-1
currentmonth=month(date_info)
currentyear=year(date_info)
tempday-currentdate mod 7
xday=(currentday+7-tempday) mod 7 +1
end sub
'下面的过程打印日历
sub displaycalender
'定义数组,表示每月的天数
dim alldays(11)
alldays(0)=31
alldays(1)=28
alldays(2)=31
alldays(3)=30
alldays(4)=31
alldays(5)=30
alldays(6)=31
alldays(7)=31
alldays(8)=30
alldays(9)=31
alldays(10)=30
alldays(11)=31
'定义数组,表示星期几的英文缩写
dim weekdayname(6)
weekdayname(0)= "Su " '
weekdayname(1)= "Mon "
weekdayname(2)= "Tue "
weekdayname(3)= "Wed "
weekdayname(4)= "Thu "
weekdayname(5)= "Fri "
weekdayname(6)= "Sat "
dim monthname(11)
monthname(0)= "Junuary "
monthname(1)= "Februany "
monthname(2)= "March "
monthname(3)= "April "
monthname(4)= "May "
monthname(5)= "June "
monthname(6)= "July "
monthname(7)= "August "
monthname(8)= "Sepetember "
monthname(9)= "October "
monthname(10)= "November "
monthname(11)= "December "
'调用过程dayinfo,得到日期信息,存入公共变量中
call dayinfo
'测试闰年
if(currentyear mod 4=0) then alldays(1)=alldays(1)+1
'利用writeln函数向日葵浏览器窗口写入HTML代码
'先写HTML的头部分
document.writeln( " <html> ")
document.writeln( " <head> ")
document.writeln( " <title> 四季日历 </title> ")
document.writeln( " </head> ")
document.writeln( " <body> ")
'再写形成日历的表格,为了看清楚,在样式信息中定义了大字本
document.writeln( " <tabel border=0 style = 'font-size=32pt;text-align:center '> ")
'书写表格的标题
document.writeln( " <caption style= 'color:blue '> ")
document.writeln(currentyear&monthname(currentmonth))
document.writeln( " </caption> ")
'书写表头,表头是星期几的英文名称
document.writeln( " <tr> ")
for i= 0 to 6
document.writeln( " <th style= 'color:red ' "&weekdayname
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
