if nClassID="" then '类别id为空
FEditCheck=1
ErrorStr="类别id不能为空！"
exit Function
else
if sClassName="" then '类名为空
FEditCheck=1
ErrorStr="类名不能为空！"
exit Function
else
if nParentID<>0 then
set temprs=conn.execute("select ClassID From ArticleClass where ClassID=" & nParentID) '父类别不存在
if temprs.eof then
FAddCheck=1
ErrorStr="所属类别不存在或已经被删除！"
exit Function
else
set rs=conn.execute("select ClassID from ArticleClass where ClassName='"& sClassName &"' and ClassID<>"& nClassID &"and ParentID="& nParentID)
if not rs.eof then '类名重复
