小弟的源代码:
编辑的源代码:
<% set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from news where id='"&Request("id")&"'"
rs.open sql,conn,3,3
if rs.eof then
response.Write("<font style='color:red'> 目前没有记录。</FONT>")
else
%>
<form method="post" action="E_save.asp?id=<% =rs("id") %>" >
<table>
<tr>
<td>标题:<input type="text" name="title" value="<% =rs("title") %>"></td>
</tr>
<tr>
<td>登记人:<input type="text" name="person" value="<% =rs("person") %>"></td>
</tr>
<tr>
<td>内容:<textarea name="message" cols="40" rows="10"><% =rs("message") %>
</textarea></td>
</tr>
<tr>
<td><input type="submit" value="提交"> <input type="reset" value="重填">
</tr>
</table>
</form>
<% end if %>
编辑的源代码:
<% set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from news where id='"&Request("id")&"'"
rs.open sql,conn,3,3
if rs.eof then
response.Write("<font style='color:red'> 目前没有记录。</FONT>")
else
%>
<form method="post" action="E_save.asp?id=<% =rs("id") %>" >
<table>
<tr>
<td>标题:<input type="text" name="title" value="<% =rs("title") %>"></td>
</tr>
<tr>
<td>登记人:<input type="text" name="person" value="<% =rs("person") %>"></td>
</tr>
<tr>
<td>内容:<textarea name="message" cols="40" rows="10"><% =rs("message") %>
</textarea></td>
</tr>
<tr>
<td><input type="submit" value="提交"> <input type="reset" value="重填">
</tr>
</table>
</form>
<% end if %>
<% N_title=Request("title")
N_person=Request("person")
N_message=Request("message")
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from news where id="&Request("id")
rs.open sql,conn,1,3
rs("title")=N_title
rs("pubtime")=now()
rs("person")=N_person
rs("message")=N_message
rs.update
rs.close
set rs=nothing
Response.Write"list.asp?id="&request("id")
%>
问题2:当没有where判断时,总是把数据写入同一条数据。