Question

ASP表单修改数据库的问题!

<%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from love_k",conn,1,3
title=request.Form("title")
content=request.Form("content")
rs("title")=title
rs("content")=content
rs.update
response.write"内容修改成功 - ok，请关闭此页"
%>

以上的,可以实现修改,但是,修改的内容一直只是第一条,也就是ID最早的那一条!..
rs.open "Select * from love_k",conn,1,3
在这里,加入了:"rs.open "Select * from love_gbook where id="&id,conn,1,3 "
还是无法实现选择ID的效果!,,提示"查找时,丢失"!

sql="select * from love_gbook where id="&request("id")
rs.open sql,conn,1,3

这样写,也提示查找丢失!!!

"语法错误 (操作符丢失) 在查询表达式 'id=' 中。"

编辑文件是完全可以按ID号来的..就是这个保存文件这里...一直在修改那一条数据!!!

请高手指点下....

如何才能让找到对应的ID进行修改!!!

Answer 1

前面没有获取ID的值，请在修改页的表单action中传弟ID值，写法如下：
form action=修改页名.asp?id=<%=id%>
注意此处要先获得ID值。

然后在此页读取ID：

<%
dim rs,id
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
rs.open "Select * from love_k" where id="&id,conn,1,3
title=request.Form("title")
content=request.Form("content")
rs("title")=title
rs("content")=content
rs.update
response.write"内容修改成功 - ok，请关闭此页"
%>

Answer 2

<%
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "Select * from love_k where id="&request.from("id"),conn,1,3
title=request.Form("title")
content=request.Form("content")
rs("title")=title
rs("content")=content
rs.update
response.write"内容修改成功 - ok，请关闭此页"
%>
这样是可以修改的 但是你要保证你的ID传值过来了 如果保证不了
你就这样做 最最前面加上这两句
sql = "Select * from love_k where id="&request.from("id")
response.write sql
看看打印出来的有没有ID值 如果没有 就说明是你没有传值过来 那 你修改是只能修改第一条 明白么？

Answer 3

参考一下我给的代码，你自己根据实际情况修改一下。不懂hi我，或者加入菜鸟大树QQ论坛，116372402
<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit '强制声明变量
Response.Buffer = True '开启缓存
Session.CodePage=936 '设定编码
Dim Conn
Sub ConnectionDatabase
Dim Db,ConnStr
on error resume next
Db="db/bbs.mdb" '数据库路径
Set conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
Conn.Open ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据连接错误!"
Response.End
End If
End Sub

Function Execute(T_Sql)
If Not IsObject(Conn) Then ConnectionDatabase
Set Execute = Conn.Execute(T_Sql)
End Function

%>
<%
'查询语句
'dim rs
'set rs=Execute("select id,struserid from tbusers where id=1")
'response.write rs(0)
'rs.close
'Set Rs=Nothing

dim title,content
title=request.Form("title")
content=request.Form("content")
Execute("update 表名 set 字段名='"&title&"',字段名='"&content&"' where=条件")
response.write "更新成功"
%>