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

来源：百度知道 编辑：UC知道 时间：2024/06/08 18:18:45
<%
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>

<%
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.create