<%
id=request.QueryString("id")
if not isnumeric(id) then
id="0"
end if
Set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from WR_Art where id="&id
set rs = conn.execute(sql)
if not rs.eof then
Ntitle=rs("Title")
NContent=rs("Content")
NTime=rs("time")
end if
rs.close
set rs=nothing
%>
<%=SiteName%>-<%=Ntitle%>