少爷别傲娇 txt下载:Microsoft VBScript 运行时错误 错误 '800a000d' 请高手帮忙

在进行产品类别添加的时候 提示
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'UpdateCategoryJs'

/Manage_Enter/Category/Category.asp，行 22

代码如下:<%CL(5)
Set Rs1=Server.CreateObject("adodb.recordset")
dim Category_Name,SubCategory_Name,Category_id
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if Request("act")="AddCategory" then'添加大类
Call WriteAdminLog(Session(Safe_Session & "Admin_Name"),"添加产品大类")
Category_Name=CS(Request("Category_Name"),1,50,0,1,0)
Set Rs=Conn.Execute("Select Category_id From Sef_Category where Category_Name='" & Category_Name & "'")
if Rs.eof and Rs.bof then
Rs.close
Conn.Execute("Insert into Sef_Category (Category_Name) values ('" & Category_Name & "')")
UpdateCategoryJs (此句为16行代码)
UpdateCategorySubCategoryJs
Session("Msg")="添加大类别成功！"
Response.Redirect("Category.asp")
Else
Rs.close
UpdateCategoryJs
UpdateCategorySubCategoryJs
Session("Msg")="此类别已存在，不能重复添加！"
Response.Redirect("Category.asp")
End if
End if
if Request("act")="AddSubCategory" then
Call WriteAdminLog(Session(Safe_Session & "Admin_Name"),"添加产品子类")
SubCategory_Name=CS(Request("SubCategory_Name"),1,50,0,1,0)
Category_id=CS(Request("Category_id"),1,3,1,1,0)
Set Rs=Conn.Execute("Select Category_id From Sef_SubCategory where SubCategory_Name='" & SubCategory_Name & "' and Category_id=" & Category_id)
if Rs.eof and Rs.bof then
Rs.close
Conn.Execute("Insert into Sef_SubCategory (Category_id,SubCategory_Name) values (" & Category_id & ",'" & SubCategory_Name & "')")
UpdateCategoryJs
UpdateCategorySubCategoryJs
Session("Msg")="添加子类别成功！"
Response.Redirect("Category.asp")
Else
Rs.close
UpdateCategoryJs
UpdateCategorySubCategoryJs
Session("Msg")="此子类别已存在，不能重复添加！"
Response.Redirect("Category.asp")
End if
End if%>
补充一下:

在进行产品类别添加的时候 可以把数值添加进数据库