<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 1 * from zlgl where cataid=92 order by addtime desc,id desc"
rs.open sql,conn,1,1
if not rs.eof then
id=rs("id")
pic=rs("picpath")
end if
%>
<%
while not rs.eof
%>
 " width="220" height="90" hspace="3" border="0">
<%
rs.movenext
wend
rs.close
set rs=nothing
%> |
 |
关于我们 |
|
 |
<%
set rs=server.CreateObject("adodb.recordset")
sql="select id,id1,menuname from cata where id1=33 order by url,id"
rs.open sql,conn,1,1
if trim(request.QueryString("cataid"))="" then
cataid=89
else
cataid=request("cataid")
end if
while not rs.eof
if rs("id")=cint(cataid) then
menuname=rs("menuname")
end if
%>
 " class="xm"><%=rs("menuname")%> |
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
|
|
|
|
|
|
<%
if trim(request("cataid"))="" then
cataid=81
else
cataid=request("cataid")
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from cata where id="&cataid
rs.open sql,conn,1,1
ispic=rs("ispic")
rs.close
set rs=nothing
if ispic=1 then
call listnew(cataid,15,32,true," ",false,20,"../images/dot.gif",1)
elseif ispic=2 then
call viewtp(cataid,3,3,180,150,"center",15)
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from zlgl where cataid="&cataid
rs.open sql,conn,1,1
if not rs.eof then
content=rs("content")
else
content="暂无相关资料！"
end if
%>
<%=content%>
<%
rs.close
set rs=nothing
end if
%> |
|
|