Question

ADODB.Command (0x800A0D5D) 应用程序在当前操作中使用了错误类型的值。

我在用DW做留言本的时候，进行留言管理，不是分三个页面嘛：回复（YMreply.asp）、修改（YMedit.asp）、删除（YMdelete.asp）。结果前两个页面都对，就做删除页面出现问题。
比如，删除一个记录后，我是转入到留言查看的页面xx2.asp。但是，就显示不了了。很奇怪。具体错误显示为：
错误类型：
ADODB.Command (0x800A0D5D)
应用程序在当前操作中使用了错误类型的值。
/aiju/YourMessages/GuanLi/xx2.asp, 第 39 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; MAXTHON 2.0)

网页：
GET /aiju/YourMessages/GuanLi/xx2.asp

-------------------------------------------------
其中第前40行代码为：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Connections/YM.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="YMlogin.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim xx__MMColParam
xx__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
xx__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim xx
Dim xx_cmd
Dim xx_numRows

Set xx_cmd = Server.CreateObject ("ADODB.Command")
xx_cmd.ActiveConnection = MM_YM_STRING
xx_cmd.CommandText = "SELECT * FROM main WHERE id = ?"
xx_cmd.Prepared = true
xx_cmd.Parameters.Append xx_cmd.CreateParameter("param1", 5, 1, -1, xx__MMColParam) ' adDouble
-------------------------------------------------------------
由于是初学者，不懂代码。真是苦恼，有高手帮忙解决吧？谢谢
出错代码为xx_cmd.Parameters.Append xx_cmd.CreateParameter("param1", 5, 1, -1, xx__MMColParam) ' adDouble

Answer 1

服务器行为--删除记录--唯一健列 数值 不要打勾