% id=ReplaceUnsafe(request.QueryString("id")) if not IsNumeric(id) then response.write"" response.End end if set arrs=server.createobject("adodb.recordset") arsql="select * from article where id="&id arrs.open arsql,conn,1,3 if arrs.eof then response.write"" response.End end if classname=arrs("classname") classid=arrs("classid") arttitle=arrs("title") if arrs("keywords")<>"" then Keywords=arrs("keywords") else Keywords=arrs("title")&"_"&website end if if arrs("Descrip")<>"" then Descrip=arrs("Descrip") else descrip=arrs("content") descrip=gotTopic(RemoveHTML(descrip),150) end if %>
|
|