28,390
社区成员
发帖
与我相关
我的任务
分享
<%
sub del(id)
check=msgbox("您确定要删除信息吗?",1,"删除信息")
if check=1
DbPath=Server.MapPath("Database.mdb")
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DbPath
conn.open connstr
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="delete * From main where [no]="&id
rs.Open SQL,connstr,3,2
end if
end sub
%>
<a href="<%del(" & rs("no") &")%>" >册除</a>
<a href="对应删除地址" onClick="if(confirm('你确定删除么')){return true;}else{return false;}">删除</a>