ASP出现如下错误：错误类型：Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配，请高手指教
ASP代码如下：<%@Language="VBScript"CodePage="65001"%><!--#includefile="conn.asp"--><!DOCTY...
ASP代码如下：
<% @Language="VBScript" CodePage="65001" %>
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>树形组织机构</title>
<link rel="stylesheet" href="style.css" type="text/css"/>
<script language="Javascript" type="text/Javascript" src="DTree.js"></script>
<style type="text/css">
<!--
body {
background-image: url(images/login1.jpg);
}
-->
</style></head>
<body text="#000000" >
<script language="JavaScript" type="text/JavaScript">
<!--
d = new dTree('d');
d.add(0,-1,"组织机构树","../BX_HCM/TABLE_BASICINFO_list.asp","列出所有的下属组织","I1");
<%
'On Error Resume Next
Dim rs,sql,urlstr,urlstr1,urlstr2
Dim str1
Dim str2
Dim orglevel
sql="select * from VIEW_ORGUNIT order by C_ORGLEVEL,C_ORDER"
set rs=server.createobject("adodb.recordset")
rs.open sql,db_conn,1,3
urlstr1="../BX_HCM/TABLE_BASICINFO_list.asp?ctlSearchFor=&a=integrated&id=1&criteria=and&field1=C_DEPT_ID&option1=Equals&value11="
urlstr2="&field2=C_CLASS_ID&option2=Equals&value21="
if not (rs.eof and rs.bof) then
do while not rs.eof
orglevel=rs("C_ORGLEVEL")
str1=rs("PARENTID")
str2=rs("C_ORG_ID")
if orglevel=1 then
urlstr="../BX_HCM/TABLE_BASICINFO_list.asp"
else
if orglevel=2 then
urlstr=urlstr1 & str2
else
urlstr=urlstr1 & str1 & urlstr2 & str2
end if
end if
response.write "d.add(" & rs("C_ORG_ID") & "," & rs("PARENTID") & ",'" & rs("C_SHORTNAME") & "','" & urlstr & "','" & rs("C_NAME") & "','I1'" & ",'Images/folder.gif','Images/folderopen.gif'" & ");" & vbcrlf
rs.MoveNext
Loop
end if
rs.Close
Set rs=Nothing
%>
document.write(d);
//-->
</script>
</body>
</html> 展开
<% @Language="VBScript" CodePage="65001" %>
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>树形组织机构</title>
<link rel="stylesheet" href="style.css" type="text/css"/>
<script language="Javascript" type="text/Javascript" src="DTree.js"></script>
<style type="text/css">
<!--
body {
background-image: url(images/login1.jpg);
}
-->
</style></head>
<body text="#000000" >
<script language="JavaScript" type="text/JavaScript">
<!--
d = new dTree('d');
d.add(0,-1,"组织机构树","../BX_HCM/TABLE_BASICINFO_list.asp","列出所有的下属组织","I1");
<%
'On Error Resume Next
Dim rs,sql,urlstr,urlstr1,urlstr2
Dim str1
Dim str2
Dim orglevel
sql="select * from VIEW_ORGUNIT order by C_ORGLEVEL,C_ORDER"
set rs=server.createobject("adodb.recordset")
rs.open sql,db_conn,1,3
urlstr1="../BX_HCM/TABLE_BASICINFO_list.asp?ctlSearchFor=&a=integrated&id=1&criteria=and&field1=C_DEPT_ID&option1=Equals&value11="
urlstr2="&field2=C_CLASS_ID&option2=Equals&value21="
if not (rs.eof and rs.bof) then
do while not rs.eof
orglevel=rs("C_ORGLEVEL")
str1=rs("PARENTID")
str2=rs("C_ORG_ID")
if orglevel=1 then
urlstr="../BX_HCM/TABLE_BASICINFO_list.asp"
else
if orglevel=2 then
urlstr=urlstr1 & str2
else
urlstr=urlstr1 & str1 & urlstr2 & str2
end if
end if
response.write "d.add(" & rs("C_ORG_ID") & "," & rs("PARENTID") & ",'" & rs("C_SHORTNAME") & "','" & urlstr & "','" & rs("C_NAME") & "','I1'" & ",'Images/folder.gif','Images/folderopen.gif'" & ");" & vbcrlf
rs.MoveNext
Loop
end if
rs.Close
Set rs=Nothing
%>
document.write(d);
//-->
</script>
</body>
</html> 展开
4个回答
展开全部
数据类型不匹配么。 比如字符串类型乘以数字类型
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
就是类型不配，你看一下数据库的字段类型
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
最简单的方法，orglevel="2"
给其中的数字加上双引号。
给其中的数字加上双引号。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你把代码贴全一点
追问
谢谢您的答复，代码已经全部贴上。另外，问题已经解决，if orglevel=1 then改成if cint(orglevel)=1就好了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
