主题:新手问题很多,帮帮忙。
我用连接的形式传递参数过去
<a href='cllyasp.asp?id="&<%=rs1("id")%>&"&action=del' onClick="javascript:return confirm('该操作将永远删除该条留言')">删除</a>
可是的不到action的值是怎么回事啊
留言和回复我用表单给值,可以得到。
===============================
但运行回复时出现错误:
错误类型:
Microsoft JET Database Engine (0x80040E14)
UPDATE 语句的语法错误。
/新建文件夹/wwwroot/cllyasp.asp, 第 34 行
===============================
运行留言出现错误:
错误类型:
Microsoft JET Database Engine (0x80004005)
操作必须使用一个可更新的查询。
/新建文件夹/wwwroot/cllyasp.asp, 第 23 行
===============================
这是怎么回事啊,高手帮下忙,我是新手。求教。
<!--#include file=Connections/conn.asp-->
<%
dim action
action=request("action")
if action="message" then
message
elseif action="answer" then
answer
elseif action="del" then
del
else
response.Redirect"clly.asp"
end if
sub message
dim title
dim content
dim username
title=request.Form("Title")
content=request.Form("Content")
username=request.Form("Name")
sql="insert into message(Title,Content,Name)values('"&title&"','"&content&"','"&username&"')"
set rs=server.CreateObject("ADODB.RECORDSET")
rs.open sql,conn,3,3 (这是23行)
response.Write"留言成功!"
rs.close
set rs=nothing
end sub
'''''''''''''''''''''''''''''
sub answer
dim answer
answer=request.Form("answer")
sql="update message set Answer="&answer&""
conn.execute(sql) (这是34行)
response.Write"回复成功!"
end sub
'''''''''''''''''''''''''''''''''''
sub del
dim id
id=request("id")
sql="delete from message where id="&id&""
conn.Execute(sql)
response.Write"删除留言成功!"
conn.close
set conn=nothing
end sub
'''''''''''''''''''''''''''''''''
%>
<% rs.close
set rs=nothing%>
<a href='cllyasp.asp?id="&<%=rs1("id")%>&"&action=del' onClick="javascript:return confirm('该操作将永远删除该条留言')">删除</a>
可是的不到action的值是怎么回事啊
留言和回复我用表单给值,可以得到。
===============================
但运行回复时出现错误:
错误类型:
Microsoft JET Database Engine (0x80040E14)
UPDATE 语句的语法错误。
/新建文件夹/wwwroot/cllyasp.asp, 第 34 行
===============================
运行留言出现错误:
错误类型:
Microsoft JET Database Engine (0x80004005)
操作必须使用一个可更新的查询。
/新建文件夹/wwwroot/cllyasp.asp, 第 23 行
===============================
这是怎么回事啊,高手帮下忙,我是新手。求教。
<!--#include file=Connections/conn.asp-->
<%
dim action
action=request("action")
if action="message" then
message
elseif action="answer" then
answer
elseif action="del" then
del
else
response.Redirect"clly.asp"
end if
sub message
dim title
dim content
dim username
title=request.Form("Title")
content=request.Form("Content")
username=request.Form("Name")
sql="insert into message(Title,Content,Name)values('"&title&"','"&content&"','"&username&"')"
set rs=server.CreateObject("ADODB.RECORDSET")
rs.open sql,conn,3,3 (这是23行)
response.Write"留言成功!"
rs.close
set rs=nothing
end sub
'''''''''''''''''''''''''''''
sub answer
dim answer
answer=request.Form("answer")
sql="update message set Answer="&answer&""
conn.execute(sql) (这是34行)
response.Write"回复成功!"
end sub
'''''''''''''''''''''''''''''''''''
sub del
dim id
id=request("id")
sql="delete from message where id="&id&""
conn.Execute(sql)
response.Write"删除留言成功!"
conn.close
set conn=nothing
end sub
'''''''''''''''''''''''''''''''''
%>
<% rs.close
set rs=nothing%>