赛艾诺（中国）管理咨询有限公司

<%@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 %>

<%if myrs("newsimg")<>"" then%> <%end if%>

执行力自我宣言
<%=myrs("title")%>



下一页>>>
〖关闭本页〗

<% conn.execute "UPDATE t_news_purpose SET hits=hits+1 where id=" & news_id myrs.Close set myrs=nothing else Response.Write "

对不起!该新闻不存在或已删除!

" end if end if %>