Microsoft VBScript 编译器错误 '800a0409'

Microsoft VBScript 编译器错误 '800a0409'未结束的字符串常量\_include\system_library.asp, line 70

'函数：毫秒数转换为时间长度
Function ctime(byval num, n)
Dim tmp
tmp = 0
If Not IsNumeric(num) Then
ctime = tmp
Exit Function
End If
If n = "" Or Not IsNumeric(n) Then n = 2
If num >= 1000 * 60 * 60 * 24 * 30 Then
tmp = round(num / (1000 * 60 * 60 * 24 * 30), n) & "月"
ElseIf num >= 1000 * 60 * 60 * 24 Then
tmp = round(num / (1000 * 60 * 60 * 24), n) & "天"
ElseIf num >= 1000 * 60 * 60 Then
tmp = round(num / (1000 * 60 * 60), n) & "小时"
ElseIf num >= 1000 * 60 Then
tmp = round(num / (1000 * 60), n) & "分钟"
ElseIf num >= 1000 Then
tmp = round(num / 1000, n) & "秒"
Else
tmp = round(num, n) & "毫秒"
End If
ctime = tmp
End Function

你这段代码本身没问题啊。这是ASP内的代码吗？文件的编码格式是UTF-8吗？是用ASP本地调试工具运行的吗？如果回答是，那么改用IIS或者放到真正的网络服务器中就没问题了。

3