|
|
|
|
<%
strSQL="Select * From menu Where m_id=4942"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
if rs.recordcount<=0 then
ShowMsg "您访问的信息不存在！"
end if%>
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function
%>
<%=left(rs("mn_content"),1800)%>.... |
<%call GetIndMenu(22,cid1,cname1,mnid1,qf1,"web_news_class")%>
<%if cname1<>"" then%>
<%=cname1%> |
<%call GetIndMenuMore(cid1,cname1,mnid1,qf1)%> |
|
|
|
|
|
<%end if%>
<%call GetIndMenu(23,cid2,cname2,mnid2,qf2,"web_news_class")%>
<%if cname2<>"" then%>
<%=cname2%> |
<%call GetIndMenuMore(cid2,cname2,mnid2,qf2)%> |
|
|
|
|
|
<%end if%>
<%call GetIndMenu(24,cid3,cname3,mnid3,qf3,"web_news_class")%>
<%if cname3<>"" then%>
<%=cname3%> |
<%call GetIndMenuMore(cid3,cname3,mnid3,qf3)%> |
|
|
|
|
|
<%end if%>
<%call GetIndMenu(25,cid4,cname4,mnid4,qf4,"web_news_class")%>
<%if cname4<>"" then%>
<%=cname4%> |
<%call GetIndMenuMore(cid4,cname4,mnid4,qf4)%> |
|
|
|
|
|
<%end if%>
<%call GetIndMenu(26,cid5,cname5,mnid5,qf5,"web_news_class")%>
<%if cname5<>"" then%>
<%=cname5%> |
<%call GetIndMenuMore(cid5,cname5,mnid5,qf5)%> |
|
|
|
<%end if%>
|
|
