<%
connect_db()
Dim news_id
Dim rs_news
news_id = Request("news_id")
If (Not isNumeric(news_id)) Or news_id = "" Then
Response.End
End If
news_id = CLng(news_id)
sql = "select * from news where id = " & news_id & " and catalog_id = 1 and flag = 0"
Set rs_news = Server.CreateObject("ADODB.Recordset")
rs_news.Open sql, conn, 3
If rs_news.BOF And rs_news.EOF Then
Response.End
End If
%>
