% NID=Request("NID") If NID="" or not isnumeric(NID) then Response.Redirect "../Index.asp" Response.End() End If Set Rsc=Server.CreateObject("ADODB.Recordset") Sqlc="select * from Netsys_News_Cn where NID="&NID Rsc.open Sqlc,Conn,1,3 If Not Rsc.eof and Not Rsc.bof then Rsc("NViews")=Rsc("NViews")+1 NTitle = Rsc("NTitle") NAuthor = Rsc("NAuthor") NSource = Rsc("NSource") NViews = Rsc("NViews") NTime = Rsc("NTime") ClassID = Rsc("ClassID") NContent = Rsc("NContent") Rsc.update Else Response.Write "" Response.End End If %>