通州区私营个体经济协会
<%set RsInfo=server.CreateObject ("adodb.recordset")
SqlInfo="select Info_Title,Info_Subhead,Info_time,Info_Author,Info_Origin,Info_Content from vi_tb_info where Info_ID="&Info_ID
RsInfo.open SqlInfo,conn,1,3
if not RsInfo.EOF then
if StrKeyWord<>"" and StrKeyWord<>"%" then
InfoTitle=replace(RsInfo("Info_Title"),StrKeyWord,""&StrKeyWord&"")
InfoContent=replace(RsInfo("Info_Content"),StrKeyWord,""&StrKeyWord&"")
else
InfoTitle=RsInfo("Info_Title")
InfoContent=RsInfo("Info_Content")
end if
Infotime=RsInfo("Info_time")
InfoOrigin=RsInfo("Info_Origin")
InfoAuthor=RsInfo("Info_Author")
InfoSubhead=RsInfo("Info_Subhead")
else
InfoTitle=""
InfoContent=""
Infotime=""
InfoOrigin=""
InfoAuthor=""
InfoSubhead=""
end if
RsInfo.Close
set RsInfo=nothing%>