关于华表的自定义函数的问题

华表给出的例子中都是有参数的自定义函数我按照他给的例子也作了一个"HLB(....)"的函数,返回了数据库中的值,
但是到了无参数函数时出现问题:xmlhttp.setRequestHeader 类型不匹配 各位帮忙
Function HTTPPOST(functionName,params)
URL = "CustomizedFun.asmx/" & functionName
 Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
 xmlhttp.Open "POST",URL,False
 xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   params_len=LEN(Params)
   xmlhttp.setRequestHeader "Content-Length",params_len
   xmlhttp.Send(params)
   Set x = xmlhttp.responseXML
   alert(x.childNodes(1).text)
   
'那么如何知道是否调用成功呢，状态为200说明调用成功，500则说明出错
 alert(xmlhttp.Status)
'alert(xmlhttp.StatusText)
   Set xmlhttp = Nothing
   HTTPPOST=x.childNodes(1).text
' end if

End Function
Function HLB(row,column,sheet,reportid,year)

 'row1=int(row)
 'column1=int(column)
 'row=5
 'column=6
 'ret="prefix"& DCellWeb1.GetCellDouble(row,column,0)
 'msgbox ret
 'url="CustomizedFun.asmx/HLB?arg1="&arg1
 
str = "row=" & row & "&" & "column=" & column &"&" & "sheet=" & sheet & "&" & "reportid=" & reportid & "&" & "year=" & year
          HLB= HTTPPOST("HLB",str)

end function



Function bb_year(null)  

  bb_year= HTTPPOST("bb_year",null)
end function


   Sub DCellWeb1_CalcFunc(ByVal name, ByVal rettype, ByVal paranum)
             
             Select Case name              Case "HLB"
                paranum=5
                para1 = DCellWeb1.GetFuncDoublePara(0, isDefault)
                para2 = DCellWeb1.GetFuncDoublePara(1, isDefault)
                para3 = DCellWeb1.GetFuncDoublePara(2, isDefault)
                para4 = DCellWeb1.GetFuncStringPara(3, isDefault)
                para5 = DCellWeb1.GetFuncDoublePara(4, isDefault)
                ret=HLB(para1,para2,para3,para4,para5)
                'alert(para1)
                DCellWeb1.SetFuncResult 11,ret,1
                alert(ret)               Case"bb_year"
                 paranum=0
                 ret =bb_year(null) 
                 DCellWeb1.SetFuncResult 11,ret,1
                 alert(ret)
                
              End Select
      
   End Sub
   
Sub getdefinedstr(name)
Select Case name
Case "HLB"                
       fun_para="(double row,double column,double sheet,string reportid,double year)"
       fun_description="说明： 返回指定位置指定年度的值；参数：（行，列，页，报表编号）；返回值类型：数值型"
Case "bb_year"
       fun_para="()"
       fun_description="说明： 返回指打开报表的年度值；参数：无；返回值类型：数值型"
           
 End Select
     
          Str = """自定义函数"" Any " & name & fun_para                 
          Str = Str & vbCrLf & "BEGIN_HELP"
          Str = Str & vbCrLf & name &fun_para
          Str = Str & vbCrLf & "函数内容: "
          Str = Str & vbCrLf & fun_description
          Str = Str & vbCrLf & "END_HELP"
          DCellWeb1.DefineFunctions Str  
      
     End Sub
   
   Sub window_onload
         
          getdefinedstr("HLB")          
          getdefinedstr("bb_year")          
          
   End Sub
     
后台:
[WebMethod]
public string HLB(int row,int column,int sheet,string reportid,int year)
{
return  CustomizedFunction.HLB(row,column,sheet,reportid,year);
}//这个成功了
[WebMethod]
public string bb_year()
{
return  CustomizedFunction.bb_year();
}