deltel1.asp

来自「个人备忘系统一个不错的备忘软件.专供刚学ASP的人学习. 代码简单易懂 m」· ASP 代码 · 共 24 行

<!--#include file="conn.asp"-->
<%

nam=request.querystring("id")
if nam="" then    '判断是否非法提交
response.write("<script>alert('非法提交！');window.location.href('myhome.asp')</script>")
response.end
else

'插入数据库数据
'____________________________________________________________
set rs=server.CreateObject("adodb.recordset")
'r    
cmd="select * from  tel where 姓名='"&nam&"'"
rs.open cmd,conn,1,3
rs.delete
rs.update
rs.close
conn.close
response.write("<script>alert('删除联系人成功！');window.location.href('myfriend.asp')</script>")
end if
'_____________________________________________________________

%>