<% Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "No-Cache" %> <% flowNo = 1 if flowNo <> "" then set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from xmlWeb where flowNo="&flowNo rs.Open rs.Source,conn,1,1 end if %> <%=rs("webTitleCn")%> "> "> <%if rs("jc")<>"false" then%> <%end if%>

点击查看详情
<%=rs("js")%> <%=rs("website_color")%> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select top 10 * from xmlNewsList ORDER BY flowNo DESC" rs.Open rs.Source,conn,1,1 for i=1 to rs.recordcount if not rs.eof then %> " target="_blank"><%=rs("newsTitle")%> <% end if rs.movenext next %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select top 10 * from xmlserverList ORDER BY flowNo DESC" rs.Open rs.Source,conn,1,1 for i=1 to rs.recordcount if not rs.eof then %> " target="_blank"><%=rs("newsTitle")%> <% end if rs.movenext next %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select top 10 * from xmlphotoList1 ORDER BY flowNo DESC" rs.Open rs.Source,conn,1,1 for i=1 to rs.recordcount if not rs.eof then %> " target="_blank"><%=rs("nameCn")%> <% end if rs.movenext next %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select top 10 * from xmlphotoList ORDER BY flowNo DESC" rs.Open rs.Source,conn,1,1 for i=1 to rs.recordcount if not rs.eof then %> " target="_blank"><%=rs("nameCn")%> <% end if rs.movenext next %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from xmlMenuType" rs.Open rs.Source,conn,1,1 for i=1 to rs.recordcount if not rs.eof then %> <%if rs("contentEn")="" then%> " target="_blank"><%=rs("typeTitle")%> <%end if%> <% end if rs.movenext next %> <% set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from xmlContent where flowNo=1" rs.Open rs.Source,conn,1,1%> <%=rs("description")%> <% rs.Close Set rs=nothing conn.Close Set conn=nothing %>