del_cd.asp

线上售货网管理模组

<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If session("password")<>"test" Then
  Response.write "<center><font size=7 color=red>密码错误</font></center>"
  Response.End
End If
datano=request("datano")
'  开主资料表取部份资料
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from DATA where datano='" & datano & "'"
rs.open sqlstr,conn,3,2
rs.delete
rs.Update
rs.close
conn.close
response.redirect "new_cd.asp"
%>