Question

asp如何直接在本页中修改数据库记录

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("vdreg.mdb")
%>

<%
if request("action")="del" and request("id")<>"" then
id=request("id")
if isnumeric(id) then
id=cint(id)
else
id=0
end if
if id>0 then
sql="delete from users where id="&id
conn.execute(sql)
response.Redirect("v.asp")
end if
end if
%>
<%
exec="select * from users order by ID desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%do while not rs.eof%><ul>
<li><%=rs("id")%></li>
<li><%=rs("mail")%></li>
<li><%=rs("name")%></li>
<li><%=rs("address")%></li>
<li><%=rs("chief")%></li>
<li><%=rs("contact")%></li>
<li><%=rs("time")%></li>
<li><input style="color:#FF0000;border:#7EC5F6 1px solid;width:30px;" type="text" value="<%=rs("yz")%>">  <a onclick="return confirm('你确定要修改此记录吗？')" href="" title="<%=rs("id")%>">改</a></li>

<li><a onclick="return confirm('你确定要删除此记录吗？')" href="?action=del&id=<%=rs("id")%>" title="<%=rs("id")%>">删</a></li>
</ul>
<%
rs.movenext
loop
%>
--------------------------------怎么增加个修改记录--------------
<li><input type="text" value="<%=rs("yz")%>">  <a onclick="return confirm('你确定要修改此记录吗？')">改</a></li>
本来提交上来的时候yz值为no～

Answer 1

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("vdreg.mdb")
%>

<%
'--------------以下是修改代码开始
if request("act")="edit" then

conn.execute("update users set yz="&request("yz")&" where id="&request("id")&"")

end if
'--------------修改代码结束

if request("action")="del" and request("id")<>"" then
id=request("id")
if isnumeric(id) then
id=cint(id)
else
id=0
end if
if id>0 then
sql="delete from users where id="&id
conn.execute(sql)
response.Redirect("v.asp")
end if
end if
%>
<%
exec="select * from users order by ID desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%do while not rs.eof%><ul>
<li><%=rs("id")%></li>
<li><%=rs("mail")%></li>
<li><%=rs("name")%></li>
<li><%=rs("address")%></li>
<li><%=rs("chief")%></li>
<li><%=rs("contact")%></li>
<li><%=rs("time")%></li>
<li>
<input style="color:#FF0000;border:#7EC5F6 1px solid;width:30px;" type="text" value="<%=rs("yz")%>" name="yz" > <a onclick="return confirm('你确定要修改此记录吗？')" href="?action=edit&id=<%=rs("id")%>" title="<%=rs("id")%>">改</a></li>

<li><a onclick="return confirm('你确定要删除此记录吗？')" href="?action=del&id=<%=rs("id")%>" title="<%=rs("id")%>">删</a></li>
</ul>
<%
rs.movenext
loop
%>

另外文本框名称帮你加了"yz"

Answer 2

楼上的方法可以，但不好，因为把修改、删除等功能都放到一个页面内，不方便阅读，如果出错，差错也不方便
可以这样：在页面内加一个iframe，设置height=0 width=0 就不会显示，把修改，删除放到iframe内进行