<%@ Language=VBScript %>
<%
If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf not IsNumeric(Request("id")) Then
	ef=True
	ec="编号必须是数字"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_News where username='"&session("agentusername")&"' and id='"&Request("id")&"'"
		ds.Open Sql,conn,1,3
if ds.Eof then
	ef=True
	ec="没找到要删除的ID！"
end if

if not ef then
ds.delete
ds.Update
ds.Close
set ds=nothing
conn.Close 
set conn=nothing
Response.Redirect "setnews.asp"
end if

end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>