<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
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
set myrs=server.CreateObject("adodb.recordset")
sqlstr = "select id,title from t_news_purpose where newsort=2 order by id"
myrs.open sqlstr,conn
aboutList = myrs.getRows
myrs.close
if news_id="" or not isnumeric(news_id)then
sqlstr = "select top 1 * from t_news_purpose where newsort=2 order by id"
else
news_id=cint(news_id)
sqlstr = "select top 1 * from t_news_purpose where id=" & news_id
end if
myrs.Open sqlstr,conn,1,1
%>
服务承诺|选矿设备系列产品|球磨机|分级机|浮选机|磁选机|破碎机----恒远重工有限公司选矿设备网
