<%@ CODEPAGE=65001 %> <% Session.CodePage = 65001 Response.Charset="utf-8" %> <% sys_root = "/" flash_width = 975 Flash_height = 160 Flash_Style=1 if Flash_Style = 0 then set rs_news=server.createobject("adodb.recordset") sql="select * from links" rs_news.open sql,conn,1,1 files = "" banners = "" texts = "" guodu = 0 if not rs_news.EOF then do while Not rs_news.EOF banners=banners & rs_news("link") files=files & "" & rs_news("img") rs_news.MoveNext if not rs_news.eof then banners=banners & "|" files=files & "|" texts=text&"|" end if loop end if rs_news.close set rs_news=nothing call closeconn %> var focus_width=942; var focus_height=80; var text_height=0; var swf_height = focus_height+text_height; var pics = "<%=files%>"; var banners = "<%=banners%>"; var texts = "<%=texts%>"; document.write(''); document.write(' '); document.write(''); document.write(''); document.write(''); document.write(''); <% end if if Flash_style = 1 then set rs_news=server.createobject("adodb.recordset") sql="select * from links" rs_news.open sql,conn,1,1 files = "" banners = "" texts = "" guodu = 0 if not rs_news.EOF then do while Not rs_news.EOF banners=banners & rs_news("link") files=files & "" & rs_news("img") rs_news.MoveNext if not rs_news.eof then banners=banners & "|" files=files & "|" texts=text&"|" end if loop end if rs_news.close set rs_news=nothing call closeconn %> var swf_width=<%=flash_width%>; var swf_height=<%=flash_height%>; var files='<%=files%>'; var banners='<%=banners%>'; var texts='<%=texts%>'; document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); document.write(''); <%End If%> <%If Flash_Style = 2 then%> <% If request("act") = "xml" then flashimage = "" %> <% 'set rs_news=server.createobject("adodb.recordset") 'sql="select * from [links]" 'rs_news.open sql,conn,1,1 set rs_news = conn.execute("select * from [banners]") files = "" links = "" texts = "" if not rs_news.EOF then idd = 1 do while Not rs_news.EOF links=replace(rs_news("link"),site_url,"") files=replace(rs_news("img"),site_url,"") names = replace(rs_news("name"),site_url,"") %> <% idd = idd + 1 rs_news.MoveNext loop end if rs_news.close set rs_news=nothing call closeconn %> <%else%> function swf_obj(src,w,h,swfid){ swf_html = ''; swf_html += ''; swf_html += ''; swf_html += ''; swf_html += ''; swf_html += ''; swf_html += ''; swf_html += ''; swf_html += ''; document.write(swf_html); } xml_url = "/pages/showpic.asp?act=xml"; swf_obj('/pages/images/main_bn.swf?xml_url='+xml_url,'<%=Flash_Width%>','<%=Flash_Height%>'); <%end if%> <%end if%>