一个超简单的ASP问题

来源：百度知道 编辑：UC知道 时间：2024/09/28 15:46:58
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'cint'

/swindler/time.asp，行23

代码如下:
<%
d=time()
c=cstr(time())
response.Write("<p>")
c00=instr(c,":")
c1=mid(c,1,c00-1)
c01=instr(c00,c,":")
c2=mid(c,c00+1,c01-1)
c3=right(c,2)
if cint(c3)<10 then
c3=cstr(cint(c3))
end if
if cint(c1)<13 then
c1="上午"&c1
else
if cint(c1)>16 then
c1=cstr(cint(c1)-12)
c1="晚上"&c1
else
c1=cstr(cint(c1)-12)
c1="下午"&c1
end if
end if
Response.write "时间是:"&c1&"时"&c2&"分"&c3&"秒"
%>

如果解决?
行23 代码:if cint(c1)<13 then

非常奇怪的是,我再学校的电脑上试了没事,我的电脑就有这样的出错!

<%
d=time()
c=cstr(time())
response.Write("<p>")
c00=instr(c,":")
c1=mid(c,1,c00-1)
c01=instr(c00,c,":")
c2=mid(c,c00+1,c01-1)
c3=right(c,2)
if cint(c3)<10 then
c3=cstr(cint(c3))
end if
if cint(c1)<13 then
c1="上午"&c1
else
if cint(c1)>16 then
c1=cstr(cint(c1)-12)
c1="晚上"&c1
else ■■■■■这里应该是else then■■■■■
c1=cstr(cint(c1)-12)
c1="下午"&c1
end if
end if
Response.write "时间是:"&c1&"时"&c2&"分"&c3&"秒"
%>