请高手看看这段代码有什么错误 - ASP技术论坛

andrew518

等　级：新手上路
帖　子：144
专家分：0
注　册：2005-10-5

楼主

问题点数：0 回复次数：4

请高手看看这段代码有什么错误

<%@LANGUAGE="VBSCRIPT"%> <style type="text/css">  </style> <title>删除留言</title><div align="center" class="style1">删除留言 </div>  <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.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 %> <%

if(Request("id") <> "") then Command1__strid = Request("id")

%> <%

set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_liuyan_STRING Command1.CommandText = "DELETE FROM liuyandata WHERE id=" + Replace(Command1__strid, "'", "''") + "" Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute()

%> <% if（commdel_strid<>""）then set Commdel=Server.CreateObject（"ADODB。Command"） Commdel。ActiveConnection=MM_connliuyandb_STRING Commdel。CommandText="DELET FROM liuyandata WHERE id="+Replace（Commdel_strid，"''"，"''"）+ "" Commdel。CommandType=4 Commdel。CommandTimeout=0 Commdel。Prepared=ture Commdel。Execute() end if '执行删除操作后，转到其他页面 reponse。Redirect（"admin。asp"） %> 这是留言本中的del.asp删除页面的代码,但我打开时却显示不了,怎么回事?

搜索更多相关主题的帖子: 代码　

2005-10-14 19:17

andrew518

等　级：新手上路
帖　子：144
专家分：0
注　册：2005-10-5

第 3 楼

得分:0

惭愧,但改了还是不行

2005-10-14 21:21

andrew518

等　级：新手上路
帖　子：144
专家分：0
注　册：2005-10-5

第 5 楼

得分:0

错误类型： Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'id=' 中。 第 46 行 第46行是:Command1.Execute() 全页代码是如下 <%@LANGUAGE="VBSCRIPT"%> <style type="text/css">  </style> <title>删除留言</title> <div align="center" class="style1"></div>  <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.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 %> <%

if(Request("id") <> "") then Command1__strid = Request("id")

%> <%

set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_liuyan_STRING Command1.CommandText = "DELETE FROM liuyandata WHERE id=" + Replace(Command1__strid, "'", "''") + " " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute()

%> <%

if(Request("id") <> "") then Command1__strid = Request("id")

%> <% if(commdel_strid<>"")then set Commdel=Server.CreatObject("ADODB.Command") Commdel.ActiveConnection=MM_connliuyandb_STRING Commdel.commandText="DELETE FROM liuyandata WHERE id="+Replace(Commdel_strid,"","")+"" Commdel.CommandType+4 Commdel.CommandTimeout+0 Commdel.Prepared=true Commdel.Execute() end if '执行删除操作后，转到其他页面 response.Redirect("admin.asp") %> <html> <head> <meta http-equiv="content-Type"content="text/html:charset=gb2312"> </head> <body>

</body> </html> 我是在DW中做的编辑,我设的SQL是DELETE FROM liuyandata WHERE id=strid 请高手帮忙

2005-10-16 10:29