<%if ietitle<>"" then%><%=ietitle%><%else%><%=rs("title")%>_<%=xohome%><%end if%>

<%thisclass="about"%> <% id=request.QueryString("id") if id=2 then thisclass="lianxi" end if if id=10 then thisclass="qywh" end if if id="" or not isnumeric(id) then response.write "" Response.End() end if set rs=server.createobject("adodb.recordset") exec="select * from about where id="&id rs.open exec,conn,1,1 ietitle=rs("ietitle") keywords=rs("keywords") description=rs("description") %> <%if ietitle<>"" then%><%=ietitle%><%else%><%=rs("title")%>_<%=xohome%><%end if%>

栏目导航

<%=xoabout_list%>

<%=rs("title")%>

当前位置 -> ,首页 -> <%=rs("title")%>

<%dim body body=Delurl(rs("body")) set rskey=server.CreateObject("adodb.recordset") sqlkey="select * from keyname where len(keyname)>1 and len(keyname)<20 order by len(keyname) desc" rskey.open sqlkey,conn,1,1 while not rskey.eof body=replace(body,rskey("keyname"),"##"&rskey("keyid")&"##",1,1) rskey.movenext wend set rskey=server.CreateObject("adodb.recordset") sqlkey="select * from keyname order by len(keyname) desc" rskey.open sqlkey,conn,1,1 while not rskey.eof body=replace(body,"##"&rskey("keyid")&"##",""&rskey("keyname")&"",1,1) rskey.movenext wend response.Write(delstyle(body)) %>