新闻系统数据编辑问题~~ 多人解决没有成功~

[xiexieo]

问题就是：把access数据库的值调出进行编辑：
提值页面：
<!--#include file="bconn.asp"-->
<%
dim id,sql
id=request.QueryString("id")
sql="select * from lyl where id="&id
rs.open sql,conn,1,1
%>
<form action="bjtongzichilixitong.asp" method="post" name="hoho">
<table>
<tr>
<td>

<textarea name="zhuren" ><%=rs("zrnr")%></textarea>
</td>
</tr>
<tr><td align="center"><input type="submit" value="提交" >
<input type="reset" value="重做" ></td></tr>
</table>
</form>
－－－－－－－－
bjtongzichilixitong.asp的代码如下：
＿＿＿
<!--#include file="bconn.asp"-->
<%dim hehe,id
haha=replace(request.form("zhuren"),"'","' ")
id=request.QueryString("id")
sql="update lyl set zrnr='"&haha&"'where id="&id
rs.open sql,conn,1,1
%>
<script>
alert("o-y，操作成功！-_-")
location.href="tongzi.asp"
</script>

bconn.asp的代码如下：
<%
dbpath=server.mappath("ly.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
%>
－－－－－－
错误（怎么修改都不行）
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/tongzi/bjtongzichilixitong.asp, line 5, column 27
sql="update lyl set zrnr='"&haha&"'where id="&id

[yan11cn]

发现2个问题：
1. id这个值怎么传给这两个页面的，至少从提取页面到bjtongzichilixitong.asp就没有传过去，可以将<form action="bjtongzichilixitong.asp" method="post" name="hoho"> 替换为：
<form action="bjtongzichilixitong.asp?id=<%id%>" method="post" name="hoho">
但是提取页面的id怎么得到的呢 这个得不到的话 那也是传不到bjtongzichilixitong.asp的
2.这儿有个小问题，不知道你看出来没
<%dim hehe,id
haha=replace(request.form("zhuren"),"'","' ")

[syjeffdyg]

1.你的ID=request.querystring("ID")，表示什么意思？能取到值吗？
2.dim hehe？hehe变量用到了吗？
3.试试response.write sql，看看得到的sql正确吗？

[yan11cn]

上面写错了，修改如下：<form action="bjtongzichilixitong.asp?id=<%=id%>" method="post" name="hoho">

[xiexieo]

小白 把QQ给我
我把程序发给你 你给我改啊~~
还是不可以的啊~

[yan11cn]

我上班 上不了的。。。
发我邮箱吧[e-mail]

[kkjjww]

rs.open sql,conn,1,1

rs.open sql,conn,1,3

[sniper1534]

rs.open sql,conn,1,1 只能查询,改成1,3

[R_zhanche]

[Quote=引用 3 楼 yan11cn 的回复:]
上面写错了，修改如下： <form action="bjtongzichilixitong.asp?id= <%=id%>"method="post" name="hoho">


[/Quote]

支持 id的值没有传到修改处理页面 还可以使用隐藏域
<input type="hidden" name="id" value="<%= id %>" />

[xiexieo]

小白
已经确认一下~`

[xiexieo]

小白
原文件已经发送
望确认~~

[xiexieo]

本人可以把原文件打包发给高手~~大小(504KB)来解决这个问题~~~
酬劳是本人可以免费提供10MB的空间以做酬谢~~
我的空间都是我花钱买的~~ 续费3年的~~~
稳定 速度快~~~
我QQ:763437353~
要高手~~
以后有跟多的问题要请教~~`
今天一直在线等~~~

[blizzf99]

<!--#include file="bconn.asp"-->
<%
dim id,sql
id=request.QueryString("id")
sql="select * from lyl where id="&cint(id)
rs.open sql,conn,1,1
%>
<form action="bjtongzichilixitong.asp?id= <%=id%>" method="post" name="hoho">
<table>
<tr>
<td>

<textarea name="zhuren" > <%=rs("zrnr")%> </textarea>
</td>
</tr>
<tr> <td align="center"> <input type="submit" value="提交" >
<input type="reset" value="重做" > </td> </tr>
</table>
</form>
－－－－－－－－
bjtongzichilixitong.asp的代码如下：
＿＿＿
<!--#include file="bconn.asp"-->
<%dim hehe,id
haha=replace(request.form("zhuren"),"'","' ")
id=request.QueryString("id")
sql="update lyl set zrnr='"&haha&"'where id="&cint(id )
conn.execute(sql)
%>
<script>
alert("o-y，操作成功！-_-")
location.href="tongzi.asp"
</script>

bconn.asp的代码如下：
<%
dbpath=server.mappath("ly.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
%>

[weqp]

<!--#include file="bconn.asp"-->
<%
dim id,sql
id=request.QueryString("id")
sql="select * from lyl where id in ('"&id&"')
rs.open sql,conn,1,1
%>
<form action="bjtongzichilixitong.asp?id= <%=id%>" method="post" name="hoho">
<table>
<tr>
<td>

<textarea name="zhuren" > <%=rs("zrnr")%> </textarea>
</td>
</tr>
<tr> <td align="center"> <input type="submit" value="提交" >
<input type="reset" value="重做" > </td> </tr>
</table>
</form>
－－－－－－－－
bjtongzichilixitong.asp的代码如下：
＿＿＿
<!--#include file="bconn.asp"-->
<%dim hehe,id
haha=replace(request.form("zhuren"),"'","' ")
id=request.QueryString("id")
sql="update lyl set zrnr='"&haha&"'where where id in ('"&id&"')
conn.execute(sql)
%>
<script>
alert("o-y，操作成功！-_-")
location.href="tongzi.asp"
</script>

bconn.asp的代码如下：
<%
dbpath=server.mappath("ly.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
%>

[weqp]

sql="update lyl set zrnr='"&haha&"'where id in ('"&id&"')

多了个 where ,把他去掉

[weqp]

晕,还是没写全从新写下查询语句:
sql="select * from lyl where id in ('"&id&"') "

更新语句
sql="update lyl set zrnr='"&haha&"' where id in ('"&id&"') "

[wei_june]

45

[MOXWOSE]

[Quote=引用 3 楼 yan11cn 的回复:]
上面写错了，修改如下： <form action="bjtongzichilixitong.asp?id= <%=id%>"method="post" name="hoho">


[/Quote]
同意！