finfo_del.asp

很漂亮的一个网络公司的源码

<!--#include file="check.asp"-->
<!--#include file=Conn.asp-->
<!--#include file=../Function/function.asp-->
<%
if CheckAdmin then
	Dim strSQL
	Dim NewsID
	NewsID=Request.Querystring("ID")
	If Not IsNumeric(NewsID) Then
		Response.Write "非法操作！"
		Response.End
	End if
	strSQL="DELETE * FROM FeedBack WHERE pid=" & Clng(NewsID)
	Conn.Execute strSQL
	MessageBox "你选择信息己删除成功！",105
	Call connclose() '关闭数据库连接
Else
	Response.Write "操作失败"
End if
%>