大哥大姐帮我看看这个----错误 '800a000d'，不睡觉也搞不定。

[zhukunfeng]

我是菜菜鸟，所以问题简单大家也请讲明白些。
我做的一个网页，提交修改后的记录时显示以下错误信息：

Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'changechr'

我不知道是不是下面的某处写法错了，请大家帮我看一下：

<%if request("action")="modzp" then
id=changechr(Request.Form("id"))
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "zp Where id = "&id,Conn,3,3
zptext=htmlencode2(request("zptext"))
if zptext="" then Response.End
。。。。。。。。

[白夜花寒]

changechr,这个是你自己定义的函数,在哪呢???

[shine2000]

提示類型不匹配，那就去看看changechr的類型啊

[chinawn]

asp程序错误详细说明例表

平时写程序的时候出错时的解决方法,不太全,但是一般问题应该都有了,呵呵,欢迎大加添加新的错误信息及解决方法
ActiveServerPages,ASP0126(0x80004005)-->找不到包含文件

MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)-->sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不存在于conn打开的数据库中)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E07)-->sql语句出错(要插入或更新的字段的类型与变量数据类型不匹配)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E57)-->sql语句出错(要插入或更新的数据溢出)
MicrosoftOLEDBProviderforODBCDrivers(0x80040E10)-->sql语句出错(update字段名或要更新的数据类型错误)
MicrosoftOLEDBProviderforODBCDrivers(0x80004005)-->sql语句出错(要插入或更新的字段的数值不能为空值)
MicrosoftOLEDBProviderforODBCDrivers(0x80004005)　-->打开数据库出错，没有在指定目录发现数据库
MicrosoftOLEDBProviderforODBCDrivers(0x80040E37)-->没有发现表


MicrosoftVBscript运行时错误(0x800A000D)-->错误引用rs变量(rs对像已关闭或未定义)
MicrosoftVBscript运行时错误(0x800A01C2)-->vbscript脚本错误(vbscript语句出错)
MicrosoftVBscript运行时错误(0x800A0006)-->vbscript脚本错误(溢出错误)
MicrosoftVBscript编译器错误(0x800A040E)-->缺少loop
MicrosoftVBscript编译器错误(0x800A03EA)-->缺少if或endif
MicrosoftVBscript编译器错误(0x800A03EE)-->　语句未结束(缺少"")
MicrosoftVBscript编译器错误(0x800A03F6)-->if语句出错(缺少endif)
MicrosoftVBscript运行时错误(0x800A005B)-->缺少set
MicrosoftVBscript运行时错误(0x800A0005)-->变量未定义
MicrosoftVBscript编译器错误(0x800A03F9)-->if语句缺少then
MicrosoftVBscript编译器错误(0x800A0411)-->dim语句定义错误
MicrosoftVBscript编译器错误(0x800A0408)-->sql语句错误（?????????????????)


ADODB.Recordset(0x800A0BB9)-->sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误)
ADODB.Recordset(0x800A0CC1)-->rs对像出错(rs对像本身不存在或错误地引用了一个不存在的字段名)
ADODB.Recordset(0x800A0BCD)-->rs对像出错(记录集中没有记录却对记录集进行操作)
ADODB.Recordset(0x800A0E78)-->rs对像出错(记录集不存在,缺少rs.open语句)
ADODB.Recordset(0x800A0CC1)　-->rs对像出错(引用了一个不存在的字段名)
ADODB.Recordset(0x800A0E7D)-->conn定义错误
ADODB.Recordset(0x800A0CB3)-->数据库以只读方式打开，无法更新数据

[cncca]

类型不匹配啊，都提示了，认真看看咯！~

[kindwell]

刚才查了下MSDN，也没发现有changechr这个函数或者方法，
就像 白夜花寒(远藤花已谢,白夜花未寒) 所说的，要使这个
方法是你自己写的，把这段代码也贴出来看看吧。

[sfwxw0456]

你定义的changechr函数和你里面的request.form("id")不匹配吧!
你看一下,要没改一下changechr函数,要么改一下request.form("id")

[zhukunfeng]

谢谢各位的热心帮助，我是初学者，找来这些代码学习的。
不过没看到原作者对changechr作出什么定义啊，整个页面的代码贴不出来，
我把相关的贴出来，大家帮我看一下：



<!--#include file="../include/Conn.asp"-->
<!--#include file="../Include/Char.asp" -->
<!--#include file="../include/md5.asp"-->
<!--#include file="Admin_IsLogin.asp" -->

<%if request("action")="modzp" then
id=changechr(Request.Form("id"))
set rdsInfo = Server.CreateObject("ADODB.Recordset")
rdsInfo.Open "zp Where id = "&id,Conn,3,3
zptext=htmlencode2(request("zptext"))
if zptext="" then Response.End
job=request("job")
zpnum=request("zpnum")
gzdd=request("gzdd")
zhiweiming=request("zhiweiming")
nianlings=request("nianlings")
zyes=request("zyes")
edus=request("edus")
moneys=request("moneys")
youxiaos=request("youxiaos")
jobtypes=request("jobtypes")
sexs=request("sexs")
shisus=request("shisus")
hkas=request("hkas")
hkbs=request("hkbs")
languages=request("languages")
computers=request("computers")
marrys=request("marrys")
pthuas=request("pthuas")
rdsInfo("uname")=uname
rdsInfo("zptext")=zptext
rdsInfo("jobtypes")=jobtypes
rdsInfo("edus")=edus
rdsInfo("shisus")=shisus
rdsInfo("zyes")=zyes
rdsInfo("nianlings")=nianlings
rdsInfo("languages")=languages
rdsInfo("hkas")=hkas
rdsInfo("pthuas")=pthuas
rdsInfo("hkbs")=hkbs
rdsInfo("sexs")=sexs
rdsInfo("marrys")=marrys
rdsInfo("computers")=computers
rdsInfo("job")=job
rdsInfo("moneys")=moneys
rdsInfo("youxiaos")=youxiaos
rdsInfo("zpnum")=zpnum
rdsInfo("gzdd")=gzdd
rdsInfo.update
rdsInfo.close
Response.Write "资料修改成功..."
Response.Write("<script>alert(""资料修改成功..."");location.href='edit_company.asp?id="&Request("id")&"';</script>")
response.end
end if
%>
<html>
<head>
<title></title>
<META http-equiv=Content-type content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">

[小赵]

<!--#include file="../Include/Char.asp" -->

changechr函数是不是在这个我文件里

他们要你帖出来的就是这个包含文件里面有　changechr函数

你把这一页帖出来还是看不出来什么的

[zhukunfeng]

谢谢大家的热心帮助，虽然我按照大家所授的方式都试了一下，但问题还是没解决掉。不过在这个过程中确实学到了很多东西，再次感谢大家的热心帮助。分不多，给大家分一下。