delete.asp

来自「梦想世界虚拟社区」· ASP 代码 · 共 10 行

<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
name1 = request ("t1")
rs.open "delete FROM 资料 WHERE 昵称='" & name1 & "'",cnn
response.write ("删除成功")
cnn.close
%>