小弟的源代码:
编辑的源代码:
<% 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 %>
解决方案 »
- 托盘问题
- 急!请问在vc.net中为什么找不到iostream.h这个头文件了?
- 面向过程的程序中一个小问题:
- 如果局域网里设置了代理器,有的代理上网需要登录的,有的设置不要的,怎么得到需要不需要登录呢?
- 知道窗口句柄如何取得其线程句柄?
- 帮帮忙,请!
- 哪里能下载到《MFC Internals:Inside the Microsoft(c) Foundation Class Architecture》
- 请问可以用VC管理VB程序的线程吗?
- 急!用到ADO安装打包需要哪几个文件???
- VC中怎样实现不同的层,如:第一层用来显示位图,第二层显示其它控件,对第一层用Invalidate不会导致第二层也被Invalidate?
- 马上要考试,明天就不能上网了,估计1个月内再也没有机会上网了。散分
- 关于动态链接库使用_declspec(dllexport)导出函数的一个问题。
<% 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判断时,总是把数据写入同一条数据。