<%@Codepage=65001%>
<%
conninit
dim category,sql,topage
id=request("id")
if id="" or not isnumeric(id) then response.end
sql = "Select id,title,body,category from news where switch=1 and id=" &id
set rs=Server.Createobject("ADodb.recordset")
rs.open sql,conn,1
%>
