运行一个ASP页面时 Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数: 'left' /include/func.asp，行 953
<%
end sub
sub hits(id)
set rsdate=server.CreateObject("adodb.recordset")
rsdate.open "select * from huiyuan where id="&id&"",conn,1,3
rsdate("znum")=rsdate("znum")+1
enddate=rsdate("enddate")
if enddate<>"" then
enddate=left(enddate,instrrev(enddate,"-")-1) /*第953行*/
nowdate=left(now(),instrrev(now(),"-")-1)
if nowdate=enddate then rsdate("monmun")=rsdate("monmun")+1 else rsdate("monmun")=1
end if
rsdate("enddate")=now()
rsdate.update
rsdate.close
set rsdate=nothing
end sub sub paihang(sql,background,monty)
%>
请ASP高人帮忙看看