%
id=cstr(replace(trim(request("id")),"'",""))
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sql="select * from okuoo_news where id="&id
rsnews.Open sql,conn,1,3
if rsnews.eof and rsnews.bof then
response.write""
else
rsnews("Hits")=rsnews("Hits")+1
rsnews.update
title=rsnews("title")
BigClass=rsnews("BigClassName")
SmallClass=rsnews("SmallClassName")
if SmallClass="" then
HeadTitle=BigClass&"-"&title
else
HeadTitle=BigClass&"-"&SmallClass&"-"&title
end if
%>
<%
const ChannelID=2
if HeadTitle<>"" then
SiteTitleAll= HeadTitle & "-" & SiteTitle
else
SiteTitleAll=SiteTitle
end if
%>
<%Set rs0=Server.CreateObject("Adodb.RecordSet")
sql0="select * from okuoo_peixun order by Aboutusorder"
rs0.Open sql0,conn,1,1
while not rs0.eof%>
" href="http://www.kaboni.cn/peixun.asp?id=<%=rs0("id")%>"><%=rs0("title")%>
<%rs0.movenext
if not rs0.eof then response.Write(" | ")
wend
rs0.close
set rs0=nothing%>
<%Set rs0=Server.CreateObject("Adodb.RecordSet")
sql0="select * from okuoo_fuwu order by Aboutusorder"
rs0.Open sql0,conn,1,1
while not rs0.eof%>
" href="http://www.kaboni.cn/fuwu.asp?id=<%=rs0("id")%>"><%=rs0("title")%>
<%rs0.movenext
if not rs0.eof then response.Write(" | ")
wend
rs0.close
set rs0=nothing%>
<%Set rs0=Server.CreateObject("Adodb.RecordSet")
sql0="select * from okuoo_xiyi order by Aboutusorder"
rs0.Open sql0,conn,1,1
while not rs0.eof%>
" href="http://www.kaboni.cn/xiyi.asp?id=<%=rs0("id")%>"><%=rs0("title")%>
<%rs0.movenext
if not rs0.eof then response.Write(" | ")
wend
rs0.close
set rs0=nothing%>
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select BigClassID,BigClassName from okuoo_BigClass_New order by BigClassID"
rslist.open sql,conn,1,3
do while not rslist.eof
%>