admin_infodel.asp

一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风格,是大家非常值得学习的一个网站.

<!--#include file="adminconn.inc"-->
<%
c_id = request.querystring("id")
sql = "Select * from news where id="&c_id
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3

filepath=rs("c_filepath")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath(filepath))
Set fso = nothing

rs.delete
rs.close 
Set rs = Nothing

%>
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "delete * from NEWS where id="&request.QueryString("id"),conn,1
set rs=nothing
conn.close
set conn=nothing
response.write "<script language='javascript'>" & chr(13)
		response.write "alert('成功删除！');" & Chr(13)
		response.write "window.document.location.href='admin_info.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
%>