28,406
社区成员
发帖
与我相关
我的任务
分享ASP删除记录出错
问题在第21行报错以下信息
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'Del'
/SystemLogin/books/Books_List.asp, 第 21 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; GTB6; TencentTraveler 4.0; .NET CLR 1.1.4322; CIBA)
网页：
GET /SystemLogin/books/Books_List.asp
时间：
2009年10月27日, 20:15:59
详细信息：
Microsoft 支持
以下是源代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/session.asp"-->
<!--#include file="../Include/conn.asp"-->
<%
'循环删除
If Trim(Request.Form("Action"))="Del_Loop" Then
Dim ID
ID = Trim(Request.Form("ID"))
If ID = Empty then
Response.write("<script>alert('系统提示:\n\n请选择删除文件！');location='?';</script>")
Response.End
Else
Call Del_Loop("Books",ID,"?")
End if
End if
'删除单个
If Trim(Request.QueryString("Action"))="Del" Then
ID = Trim(Request.QueryString("ID"))
Call Del("Books",ID,"?") '''''''''这是第21行，老在这里考错''''''
End if
Dim Rs,Sql
Dim Key
Key = Trim(Request.Form("Key"))
set Rs=server.createobject("adodb.recordset")
IF Key = Empty Then
Sql="select * from Books order by Id desc"
Else
Sql="select * from Books Where UserName like '%"&key&"%'order by Id desc"
End IF
Rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../CSS/Style.css" rel="stylesheet" type="text/css">
</head>
<body oncontextmenu="return false">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
<tr>
<td bgcolor="#D7DEF8">
<fieldset style="padding: 5">
<legend><strong>服务频道</strong>
</legend>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="Search" method="post" action="" onSubmit="return input_ok(this)">
<tr>
<td width="100" height="22" align="center"> <img src="../Image/Buttom/Ico.gif" width="20" height="19" border="0" align="absmiddle">
频道类别：</td>
<td width="150">
<strong><font color="#FF0000">回复留言</font></strong>
</td>
<td width="100" align="center"><img src="../Image/Buttom/Search.gif" width="20" height="20" border="0" align="absmiddle">搜索留言</td>
<td>
<input name="key" type="text" size="20" maxlength="20" Title="按留言姓名搜索">
<input type="submit" name="Submit" value="搜索(S)" accesskey="S">
</td>
</tr>
</form> </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#D7DEF8">
<tr bgcolor="#FFFFFF">
<td width="50" height="22" align="center">编号</td>
<td width="150" align="center">姓名</td>
<td align="center">内容</td>
<td width="150" align="center" bgcolor="#FFFFFF">留言时间</td>
<td width="40" align="center">已回复</td>
<td width="30" align="center">回复</td>
<td width="30" align="center">删除</td>
</tr>
<%
dim I
For I=1 to rs.pagesize
IF rs.eof THEN EXIT FOR
%>
<tr bgcolor="#FFFFFF" style="cursor:hand" OnMouseOver="this.bgColor='#F0F0F0'" OnMouseOut="this.bgColor='#FFFFFF'">
<td height="22" align="center"><%= rs("id") %></td>
<td> <%= rs("UserName") %></td>
<td> <%= Left(rs("Content"),20) %></td>
<td align="center"><%= rs("DateTime") %></td>
<td align="center">
<% If Rs("Flag") = 0 Then %>
<img src="../Image/Buttom/Err.gif" width="12" height="11" border="0" align="absmiddle">
<% Else %>
<img src="../Image/Buttom/Ok.gif" width="16" height="16" border="0" align="absmiddle">
<% End If %> </td>
<td align="center"> <a href="Books_Reply.asp?ID=<%= rs("ID") %>"><img src="../Image/Buttom/Edit.gif" width="12" height="12" border="0" alt="回复留言"></a> </td>
<td align="center"> <img src="../Image/Buttom/del.gif" width="16" height="16" border="0" onClick="{if(confirm('确定删除吗?')){location='?Action=Del&ID=<%= rs("id") %>';return true;}return false;}"> </td>
</tr>
<%
rs.MoveNext
NEXT
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" height="30" align="center" valign="middle">『
<%
if not rs.eof then
rs.pagesize=10
sum=rs.recordcount
nowpage=request("page")
if nowpage="" or nowpage<1 then
nowpage=1
elseif nowpage>rs.pagecount then
nowpage=rs.pagecount
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
end if
for k=1 to rs.pagecount
if k<> nowpage then%>
<a href="?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if
next%>
』
</td>
<td align="center">
<input type="submit" name="Submit_OK" value="删除(D)" accesskey="a" onClick="location='SinglePage_Insert.asp?SS_ID=<%= SS_ID %>'">
<input type="button" name="reset" value="刷新(R)" accesskey="R" onClick="javascript:location.reload();">
<input name="Action" type="hidden" value="Del_Loop">
</td>
</tr>
</table>
</td>
</tr>
</form></table>
</fieldset>
</td>
</tr>
</table>
</body>
</html>
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'Del'
/SystemLogin/books/Books_List.asp, 第 21 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; GTB6; TencentTraveler 4.0; .NET CLR 1.1.4322; CIBA)
网页：
GET /SystemLogin/books/Books_List.asp
时间：
2009年10月27日, 20:15:59
详细信息：
Microsoft 支持
以下是源代码：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/session.asp"-->
<!--#include file="../Include/conn.asp"-->
<%
'循环删除
If Trim(Request.Form("Action"))="Del_Loop" Then
Dim ID
ID = Trim(Request.Form("ID"))
If ID = Empty then
Response.write("<script>alert('系统提示:\n\n请选择删除文件！');location='?';</script>")
Response.End
Else
Call Del_Loop("Books",ID,"?")
End if
End if
'删除单个
If Trim(Request.QueryString("Action"))="Del" Then
ID = Trim(Request.QueryString("ID"))
Call Del("Books",ID,"?") '''''''''这是第21行，老在这里考错''''''
End if
Dim Rs,Sql
Dim Key
Key = Trim(Request.Form("Key"))
set Rs=server.createobject("adodb.recordset")
IF Key = Empty Then
Sql="select * from Books order by Id desc"
Else
Sql="select * from Books Where UserName like '%"&key&"%'order by Id desc"
End IF
Rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../CSS/Style.css" rel="stylesheet" type="text/css">
</head>
<body oncontextmenu="return false">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
<tr>
<td bgcolor="#D7DEF8">
<fieldset style="padding: 5">
<legend><strong>服务频道</strong>
</legend>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="Search" method="post" action="" onSubmit="return input_ok(this)">
<tr>
<td width="100" height="22" align="center"> <img src="../Image/Buttom/Ico.gif" width="20" height="19" border="0" align="absmiddle">
频道类别：</td>
<td width="150">
<strong><font color="#FF0000">回复留言</font></strong>
</td>
<td width="100" align="center"><img src="../Image/Buttom/Search.gif" width="20" height="20" border="0" align="absmiddle">搜索留言</td>
<td>
<input name="key" type="text" size="20" maxlength="20" Title="按留言姓名搜索">
<input type="submit" name="Submit" value="搜索(S)" accesskey="S">
</td>
</tr>
</form> </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form1" method="post" action="">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#D7DEF8">
<tr bgcolor="#FFFFFF">
<td width="50" height="22" align="center">编号</td>
<td width="150" align="center">姓名</td>
<td align="center">内容</td>
<td width="150" align="center" bgcolor="#FFFFFF">留言时间</td>
<td width="40" align="center">已回复</td>
<td width="30" align="center">回复</td>
<td width="30" align="center">删除</td>
</tr>
<%
dim I
For I=1 to rs.pagesize
IF rs.eof THEN EXIT FOR
%>
<tr bgcolor="#FFFFFF" style="cursor:hand" OnMouseOver="this.bgColor='#F0F0F0'" OnMouseOut="this.bgColor='#FFFFFF'">
<td height="22" align="center"><%= rs("id") %></td>
<td> <%= rs("UserName") %></td>
<td> <%= Left(rs("Content"),20) %></td>
<td align="center"><%= rs("DateTime") %></td>
<td align="center">
<% If Rs("Flag") = 0 Then %>
<img src="../Image/Buttom/Err.gif" width="12" height="11" border="0" align="absmiddle">
<% Else %>
<img src="../Image/Buttom/Ok.gif" width="16" height="16" border="0" align="absmiddle">
<% End If %> </td>
<td align="center"> <a href="Books_Reply.asp?ID=<%= rs("ID") %>"><img src="../Image/Buttom/Edit.gif" width="12" height="12" border="0" alt="回复留言"></a> </td>
<td align="center"> <img src="../Image/Buttom/del.gif" width="16" height="16" border="0" onClick="{if(confirm('确定删除吗?')){location='?Action=Del&ID=<%= rs("id") %>';return true;}return false;}"> </td>
</tr>
<%
rs.MoveNext
NEXT
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" height="30" align="center" valign="middle">『
<%
if not rs.eof then
rs.pagesize=10
sum=rs.recordcount
nowpage=request("page")
if nowpage="" or nowpage<1 then
nowpage=1
elseif nowpage>rs.pagecount then
nowpage=rs.pagecount
else
nowpage=cint(nowpage)
end if
rs.absolutepage=nowpage
end if
for k=1 to rs.pagecount
if k<> nowpage then%>
<a href="?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if
next%>
』
</td>
<td align="center">
<input type="submit" name="Submit_OK" value="删除(D)" accesskey="a" onClick="location='SinglePage_Insert.asp?SS_ID=<%= SS_ID %>'">
<input type="button" name="reset" value="刷新(R)" accesskey="R" onClick="javascript:location.reload();">
<input name="Action" type="hidden" value="Del_Loop">
</td>
</tr>
</table>
</td>
</tr>
</form></table>
</fieldset>
</td>
</tr>
</table>
</body>
</html>
...全文
请发表友善的回复…
发表回复
