del.asp

基于asp的 班级同学录主页源代码

<%
'程序名称:cctony mynews v1.0（cctony首页更新 v1.0）
'程序作者:李方进（cctony）
'主页：http://okcool.mycool.net（新生代网络创意）
'OICQ：344827    E-mail：[e-mail]
'本程序是免费程序，您可以任意自由复制，传播。但请您尊重作者劳动，不要修改程序内的版权信息。
%>
<!-- #include file="err.asp" --><%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("mynewsdata.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
id=Request.QueryString("id")
delsql="delete from data where id="&id
conn.execute(delsql)
conn.close
response.redirect"add.asp"
%>