"
response.End()
else
set rs=server.createobject("adodb.recordset")
rs.open "select * from xwfb where id="&request("id"),conn,1,3
If rs.EOF AND rs.BOF Then
response.Write "
"
response.End()
else
xwbt=rs("xwbt")
fbsj=rs("fbsj")
nr=rs("content")
bh=rs("bh")
pic=rs("pic")
lmid=rs("lmid")
set rs=nothing
end if
end if
%>
<%
if bh<>"" then
sql2="select * from bhlm where bh="&bh&""
set rs2=conn.execute(sql2)
if not rs2.eof then
lmmc=">> "&rs2("bhmc")
lm=rs2("bhmc")
'dh=dh&" > "&rs2("bhmc")
end if
end if
if lmid<>"" then
'读取二级栏目
sql2="select * from xwlm where lmid="&lmid&""
set rs2=conn.execute(sql2)
if not rs2.eof then
lmmc=lmmc&" >> "&rs2("lmmc")
lm=rs2("lmmc")
dh=dh&" "&rs2("lmmc")
end if
end if
%>
<%=xwbt%>
