asp开发工具4.0版下载地址：http://www.aspbc.com/soft/showsoft.asp?id=181
今天用asp开发工具生成弄修改功能，加上前三个，完成增加，删除，列表，修改的全部功能。
修改功能分两个部分：
第一，根据传来的ID，查询这条新闻的所有字段，显示到表单中。
第二，将表单中的内容，保存到数据库中。
假设新闻表单页如下图：
如果表单的字段多的话，可以通过asp开发工具中的表单选项来生成表单，然后在生成的表单上进行修改，可以省一半时间。这里大家自己动手去操作试试，很方便。
第一：我们查询一条新闻，把相关的内容并显示到表单中。这里我们需要查询
在asp开发工具上连接上数据库，点击“查询” 选项，进入查询代码生成。
【代码类型】 - 选择非函数。
【表名】- 选择news表。
【字段名】- 由于生成news的表，所以需要选择news_id，news_title，news_from，news_hits 四个字段名。
【类型】- 由于修改只修改一条新闻，所以这里选择一条
【数量】 -默认为1，不要填写其他的。
【WHERE】按纽 - 由于我们修改一条新闻，是根据新闻的ID字段（news_id）来修改的。点击where按纽进入条件选择对话框。
字段名：选择news_id
运算符：选择等于号
来 源：由于修改页面来自管理页面中，通过点击“修改”文字，通过地址参数传过来的，所以这里的来源选择querystring。
参数属性：因为地址是news_edit.asp?id=2是使用id作为参数来传的，这里填写id。这里要根据自己的参数来填写。
然后点击确定，关闭where对话框。
【sql语句】- 显示生成的sql语句，不要修改里面的任何东西，这里可以复制它段名等信息，用于其它地方。
设置如下图：
这样查询设置就好了，点击“生成代码”来得到查询的代码。把这代码粘贴到表单上面，并加上连接数据库代码和关闭数据库代码，具体代码如下：
编辑新闻页面名为：news_edit.asp
<!--#include file="../include/conn.asp"-->
<%
conn=openConn()'连接数据库
id = request.Querystring("id")
Set Rs = Server.CreateObject("Adodb.RecordSet")
sql="select top 1 news_content,news_from,news_hits,news_id,news_time,news_title from news Where 1=1 And news_id = " & id & " order by news_id asc"
Rs.Open sql,conn,1,1
If Not Rs.EOF Then
news_content=Rs("news_content")
news_from=Rs("news_from")
news_hits=Rs("news_hits")
news_id=Rs("news_id")
news_time=Rs("news_time")
news_title=Rs("news_title")
'上面的变量可以用在页面的任何地方，请注意不要重名
End if
Rs.Close
Set Rs = Nothing
%>
<body>
<form id="form1" name="form1" method="post" action="news_modify.asp?id=<%=news_id%>"> 注意这里这里的action，要填写修改页面和id
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>新闻标题：</td>
<td><input name="news_title" type="text" id="news_title" value="<%=news_title%>" /></td>
</tr>
<tr>
<td>新闻内容：</td>
<td><textarea name="news_content" id="news_content" cols="45" rows="5"><%=news_content%></textarea></td>
</tr>
<tr>
<td>来源：</td>
<td><input name="news_from" type="text" id="news_from" value="<%=news_from%>" /></td>
</tr>
<tr>
<td>点击数：</td>
<td><input name="news_hits" type="text" id="news_hits" value="<%=news_hits%>" /></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="button" id="button" value="提交" /></td>
</tr>
</table>
</form>
<%
closeConn(conn) '关闭数据库连接
%>
(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)这样就把新闻的内容放到表单中了。
接下来我们要把修改后的结果保存到数据库中
保存修改页面名为 news_modify.asp
点击“修改”选项，进入生成修改代码。
【代码类型】 - 选择非函数。
【表名】- 选择news表。
【字段名】-这里选择要修改的字段news_title，news_from，news_hits，news_time 四个字段名。
【WHERE】按纽 - 由于我们修改一条新闻，是根据新闻的ID字段（news_id）来修改的。点击where按纽进入条件选择对话框。
字段名：选择news_id
运算符：选择等于号
来 源：由于修改页面来自管理页面中，通过点击“修改”文字，通过地址参数传过来的，所以这里的来源选择querystring。
参数属性：因为地址是news_edit.asp?id=2是使用id作为参数来传的，这里填写id。这里要根据自己的参数来填写。
然后点击确定，关闭where对话框。
然后点击“生成修改代码”，把它粘贴到一个新页面中去，加上数据库连接和关闭数据库。具体代码如下：
<!--#include file="../include/conn.asp"-->
<%
conn=openConn()
%>
<%
id = request("id")
news_content = trim(request("news_content"))
news_from = trim(request("news_from"))
news_hits = trim(request("news_hits"))
news_title = trim(request("news_title"))
sql="Select news_content,news_from,news_hits,news_title From news Where 1=1 And news_id = " & id & ""
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open sql,Conn,1,3
Rs("news_content") = news_content
Rs("news_from") = news_from
Rs("news_hits") = news_hits
Rs("news_title") = news_title
Rs.Update
Rs.Close
Set Rs =Nothing
%>
<%
response.write "修改成功"
closeConn(conn)
%>
(鼠标移到代码上去，在代码的顶部会出现四个图标，第一个是查看源代码，第二个是复制代码，第三个是打印代码，第四个是帮助)保存为news_modify.asp，这样就可以了，运行一下试试 。