<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request("id")<>"" and isnumeric(request("id"))=true then set rs=server.CreateObject("adodb.recordset") sql="select * from bigclass where id="&request("id") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.Write("没有此栏目！") response.End() else bigclass=rs("classname") end if rs.close set rs=nothing end if if request("id2")<>"" and isnumeric(request("id2"))=true then set rs=server.CreateObject("adodb.recordset") sql="select * from smallclass where id="&request("id2") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.Write("没有此栏目！") response.End() else smallclass=rs("classname") end if rs.close set rs=nothing end if function getlist(qq,ww) set rs=server.CreateObject("adodb.recordset") sql="select top 10 * from article where sheng='"&qq&"' and shi='"&ww&"'" if request("zj")=1 then sql=sql&" and zj='在建'" end if sql=sql&" order by id desc" rs.open sql,conn,1,1 if not(rs.eof and rs.bof) then list="" i=1 do while not rs.eof list=list&rs("title") if i

<% set rs=server.CreateObject("adodb.recordset") sql="select * from gclb" rs.open sql,conn,1,1 if not(rs.eof and rs.bof) then do while not rs.eof %> zj=1&<% end if %>gclb=<%=rs("leibie")%>"><%=rs("leibie")%> <% rs.movenext loop end if rs.close set rs=nothing %>

当前位置：首页 <% if request("zj")<>1 then %> >> 企业业绩 >> 工程展示 >> 山西 <% else %> >> 企业动态 >> 在建工程 >> 山西 <% end if %> shanxi2<% else %>map2<% end if %>.gif" width="269" height="462" border="0" usemap="#Map">