%
'Title=request.QueryString("Title")
ID=replace(Trim(request.QueryString("ID")),"'","")
Set rs = Server.CreateObject("ADODB.Recordset")
if ID="" or not IsNumeric(ID) then
sql="select top 1 * from okuoo_Aboutus"
else
sql="select * from okuoo_Aboutus where ID="&ID
end if
rs.open sql,conn,1,3
HeadTitle=rs("Title")
if HeadTitle<>"" then
SiteTitleAll= HeadTitle & "-" & SiteTitle
else
SiteTitleAll=SiteTitle
end if
%>
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select * from okuoo_Aboutus where Title<>'联系我们' order by Aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
<%rslist.movenext
loop%> |
|
|
|
<%=HeadTitle%>--卡博尼干洗加盟十大连锁品牌 |
当前位置:首页 >> 关于我们 > <%=HeadTitle%> |
|
|