<%
id = request("id")
fl = id
if id="" then id=241 end if
s = "联系我们 | Contact Us"
set rs = server.CreateObject("adodb.recordset")
sql="select id,d_title,d_fl,d_content,d_hit,d_addtime from displayin where id="&id
rs.open sql,conn,1,1
d_content = rs("d_content")
if isNull(d_content) then
explain = d_content
else
explain = replace(d_content,vbCrLf," ")
end if
set rs_vi = server.CreateObject("adodb.recordset")
sql_vi="select top 7 id,d_title,d_fl,d_content,d_hit,d_addtime from displayin where d_fl='11'"
rs_vi.open sql_vi,conn,1,1
set rs_ser = server.CreateObject("adodb.recordset")
sql_ser="select top 7 id,d_title,d_fl,d_content,d_hit,d_addtime from displayin where d_fl='13'"
rs_ser.open sql_ser,conn,1,1
%>