<% @LANGUAGE='VBSCRIPT' CODEPAGE='65001' %>
<!--#include file="../conn/conn.asp"-->
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>
<LINK REL="stylesheet" HREF="../style.css" TYPE="text/css">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>depart_apply_ok</title>
<%
logname=Session("logname")
m_no=request.form("m_no")
signempno=request.form("signempno")
new_empno=trim(request.form("new_empno"))
newsignempno=request.form("newsignempno")
b_code=request.form("b_code")
depart=request.form("depart")
new_dept=trim(rsr("dept_cd"))
response.write trim(new_empno)
response.write new_dept
dim rsr,sql
set rsr=server.createobject("adodb.recordset")
sql="select dept_cd from user where empno='" & trim(new_empno) & "'"
rsr.open sql,conn,1,1
if logname = new_empno then
%>
<script language="javascript">
alert("之前部门和移动后部门，之前的使用者和移动后的使用者不能相同.")
history.back()
</script>
<%
end if
%>
asdfasdf
</head>
</html>
这个代码一运行就出现如下错误：
Microsoft VBScript runtime error '800a000d'
Type mismatch
/TCMS_update/move/move_depart_ok.asp, line 23
就是这行，new_dept=trim(rsr("dept_cd"))
我的conn.asp导入是对的，在其它代码里都能正常实现，但就在这个代码里就报这个错误。
请问是为什么？在线等，谢谢。
3 个解决方案
#1
new_dept=trim(
rsr("dept_cd"))
你这个数据集在什么地方呢？？
好好检查下！！是不是request.form啊？？
你这个数据集在什么地方呢？？
好好检查下！！是不是request.form啊？？
#2
new_dept=trim(rsr("dept_cd"))
这个是在相同代码中select 出来的啊，
dim rsr,sql
set rsr=server.createobject("adodb.recordset")
sql="select dept_cd from user where empno='" & trim(new_empno) & "'"
rsr.open sql,conn,1,1
我respont.write trim(new_empno)是正常的，
所以select 出来的结果集肯定有数据的，但不知为什么会报错。
这个是在相同代码中select 出来的啊，
dim rsr,sql
set rsr=server.createobject("adodb.recordset")
sql="select dept_cd from user where empno='" & trim(new_empno) & "'"
rsr.open sql,conn,1,1
我respont.write trim(new_empno)是正常的，
所以select 出来的结果集肯定有数据的，但不知为什么会报错。
#3
new_dept=trim(rsr("dept_cd"))
你这个放在rsr.open sql,conn,1,1 的上面了，你说能对吗？？？
你这个放在rsr.open sql,conn,1,1 的上面了，你说能对吗？？？
#1
new_dept=trim(
rsr("dept_cd"))
你这个数据集在什么地方呢？？
好好检查下！！是不是request.form啊？？
你这个数据集在什么地方呢？？
好好检查下！！是不是request.form啊？？
#2
new_dept=trim(rsr("dept_cd"))
这个是在相同代码中select 出来的啊，
dim rsr,sql
set rsr=server.createobject("adodb.recordset")
sql="select dept_cd from user where empno='" & trim(new_empno) & "'"
rsr.open sql,conn,1,1
我respont.write trim(new_empno)是正常的，
所以select 出来的结果集肯定有数据的，但不知为什么会报错。
这个是在相同代码中select 出来的啊，
dim rsr,sql
set rsr=server.createobject("adodb.recordset")
sql="select dept_cd from user where empno='" & trim(new_empno) & "'"
rsr.open sql,conn,1,1
我respont.write trim(new_empno)是正常的，
所以select 出来的结果集肯定有数据的，但不知为什么会报错。
#3
new_dept=trim(rsr("dept_cd"))
你这个放在rsr.open sql,conn,1,1 的上面了，你说能对吗？？？
你这个放在rsr.open sql,conn,1,1 的上面了，你说能对吗？？？