m1=Year(m0) & "年" & Month(m0) & "月" 无效字符

Function SMonth(sel_name, initvalue, other)
Dim s, i, m0, m1
Select Case other
Case "r" other=" dataType='Require' msg='选择' "
Case Else other=" -- "
End Select
s=s & ""
s=s & "请选择..."
For i=-5 To 5
m0=DateAdd("m", i, Date())
If CDate(m0)> CDate(Date()) Then Exit For
m1=Year(m0) & "年" & Month(m0) & "月"
s=s & " If CDate(initvalue)=CDate(m0) Then s=s & " selected "
s=s & ">" & m1 & ""
Next
s=s & ""
SMonth= s
End Function

提示
Microsoft VBScript 编译器错误 '800a0408'
无效字符
functions.asp, line 518

第518行为：
m1=Year(m0) & "年" & Month(m0) & "月"

public class CloudLed {
boolean m_isOn;
Camera m_Camera;
public boolean getIsOn() { return m_isOn; }
public CloudLed()
{
m_isOn = false;
}
public void turnOn()
{
if(!m_isOn)
{
m_isOn = true;
try
{

搜一下：m1=Year(m0) & "年" & Month(m0) & "月" 无效字符