admin_news_edit_del.asp 水族产品用品经营类企业网站asp源代码程序 - ASP源码程序

www.gusucode.com > 水族产品用品经营类企业网站asp源代码程序 > admin/admin_news_edit_del.asp

    <!--#INCLUDE VIRTUAL="/comm.asp"-->
<body background="../image/admin_bj.gif">
<%
myadmin()
id=request("id")
if mycheckchar(id,"0123456789")="#nosafe#" then response.Redirect("/error.asp?p=id非纯数字")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from content where id=" & id
rs.open sql,conn,3,2
if rs.eof then response.Redirect("/error.asp?p=id不存在")
rs.delete
rs.close
response.Write("删除成功　　<a href='admin_text_list.asp'>返回</a>")

%>