UC知道求助ASP，怎么能删除信息提示确定删除？
来源：百度知道 编辑：UC知道 时间：2024/05/18 20:24:31
<%
Dim Db,StrSQL,Rs
Set Db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq="&Server.Mappath("data.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 Upfile_Table where ID=" & ID
Db.execute(StrSQL)
End IF
StrSQL="Select * From Upfile_Table order by ID desc"
Set Rs=Db.execute(StrSQL)
Response.Write"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='2'>"
Response.Write "<td><font color=red>ID</font></td>"
Response.Write "<td><font color=red>主题</font></td>"
Response.Write "<td><font color=red>文件名称</font></td>
Dim Db,StrSQL,Rs
Set Db=Server.CreateObject("ADODB.Connection")
Db.Open "Dbq="&Server.Mappath("data.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 Upfile_Table where ID=" & ID
Db.execute(StrSQL)
End IF
StrSQL="Select * From Upfile_Table order by ID desc"
Set Rs=Db.execute(StrSQL)
Response.Write"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='2'>"
Response.Write "<td><font color=red>ID</font></td>"
Response.Write "<td><font color=red>主题</font></td>"
Response.Write "<td><font color=red>文件名称</font></td>
改下面那句替换
Response.Write "<td><a href='?action=del&ID=" & rs("ID") & "' onclick(return confirm('确定删除？'))>删除</a></td>"
<a href="cyy.asp?action=del&id=<%=rs("WL_SayID")%>&editpage=<%=page%>" onClick="return confirm('您确实要删除吗？')">删除</a>
“求助ASP，怎么能删除信息提示确定删除？”
“求助ASP，怎么能删除信息————提示确定删除？”
“求助ASP，怎么能删除————信息提示确定删除？”