用ASP删除ACCESS数据库中某一字段内容
发布网友
发布时间：2022-04-12 17:51
共7个回答
热心网友
时间：2022-04-12 19:20
</head><body><ctenter>
<%Dim Db,StrSQL,Rs
Set Db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq="&Server.Mappath("数据库名称.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
Dim action,ID
ID=trim(request.QueryString ("ID"))
action=trim(request.QueryString ("action"))
IF action="del" then
StrSQL="delete from 123 where ID=" & ID
Db.execute(StrSQL)
End IF
StrSQL="Select * From 123 order by ID"
Set Rs=Db.execute(StrSQL)
Response.Write"<table wIDth='500' bordercolor='#003333' border='1'><tr>"
Response.Write "<td><font color=red>ID</font></td>"
Response.Write "<td><font color=red>第1字段名称</font></td>"
Response.Write "<td><font color=red>第2字段名称</font></td>"
Response.Write "<td><font color=red>操作</font></td></tr>"
DO While Not Rs.eof
Response.Write "<tr><td><font color=red>"&rs("ID")&"</font></td>"
Response.Write "<td>"&rs("第1字段名称")&"</td>"
Response.Write "<td>"&rs("第2字段名称")&"</td>"
Response.Write "<td><a href='?action=del&ID=" & rs("ID") & "'>删除</a></td>"
Rs.MoveNext
Loop
Response.Write "</table>"
Db.close
Set Db=nothing
%>
</center>
</body></html>
花了一个半小时的时间，经测试通过，看看行不？有不明白的地方可以问我。
热心网友
时间：2022-04-12 20:38
conn.execute("delete from table123 where id=3")
热心网友
时间：2022-04-12 22:13
<%
if Request("action")="delete" then call del()
Sub del()
id=Request("id")
conn.execute("delete from [123] where id="&id)
End sub
%>
热心网友
时间：2022-04-13 00:04
热心网友
时间：2022-04-13 02:12
热心网友
时间：2022-04-13 04:37
