<%@language="VBscript"%>
<%Response.Expires=0%>
赛艾诺（中国）管理咨询有限公司
<%news_id=Request.QueryString("id")
function htmlencode2(str) '转化字符串
if isNULL(str) then
htmlencode2=""
exit function
end if
dim result
result=str
result=replace(result,chr(13)," ")
result=replace(result," ",chr(9))
result=replace (result,chr(9)," ")
htmlencode2=result
end function
if news_id="" or not isnumeric(news_id)then
Response.Write "
对不起!该新闻不存在或已删除!
"
else
news_id=cint(news_id)
sqlstr="select t_news_sort.newsort as boardname,t_news_purpose.* from t_news_purpose,t_news_sort where t_news_purpose.newsort=t_news_sort.id and t_news_purpose.id=" & news_id
set myrs=server.CreateObject("adodb.recordset")
myrs.Open sqlstr,conn,1,1
if myrs.RecordCount<>0 then
%>
*/