www.gusucode.com > 木犁IT产品管理系统 1.0 beta1码程序 > hd.asp
<% set rshd=server.createobject("adodb.recordset") sql="select top 10 * from pic where fl=0 order by ID DESC" rshd.open sql,conn,1,1 if rshd.recordcount<2 then Response.Write "幻灯无法正常显示,请后台添加至少2张以上幻灯图片!" else j=0 do while not rshd.eof j=j+1 hdstr1=hdstr1&replace(rshd("pic1"),"../","")&"|" hdstr2=hdstr2&rshd("Title")&"|" hdstr3=hdstr3&rshd("link")&"|" rshd.movenext loop rshd.close set rshd=nothing len1=left(hdstr1,len(hdstr1)-1) len2=left(hdstr2,len(hdstr2)-1) len3=left(hdstr3,len(hdstr3)-1) fdhtml="<script type=text/javascript>"& vbCrLf fdhtml=fdhtml&"var focus_width=798"& vbCrLf fdhtml=fdhtml&"var focus_height=100"& vbCrLf fdhtml=fdhtml&"var text_height=0"& vbCrLf fdhtml=fdhtml&"var swf_height = focus_height+text_height"& vbCrLf fdhtml=fdhtml&"var pics='"&len1&"'"& vbCrLf fdhtml=fdhtml&"var links='"&len3&"'"& vbCrLf fdhtml=fdhtml&"var texts='"&len2&"'"& vbCrLf fdhtml=fdhtml&"document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""'+ focus_width +'"" height=""'+ swf_height +'"">');"& vbCrLf fdhtml=fdhtml&"document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""focus.swf""><param name=""quality"" value=""high""><param name=""bgcolor"" value=""#ffffff"">');"& vbCrLf fdhtml=fdhtml&"document.write('<param name=""menu"" value=""false""><param name=wmode value=""opaque"">');"& vbCrLf fdhtml=fdhtml&"document.write('<param name=""FlashVars"" value=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"">');"& vbCrLf fdhtml=fdhtml&"document.write('<embed src=""focus.swf"" wmode=""opaque"" FlashVars=""pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'"" width=""'+ focus_width +'"" height=""'+ focus_height +'"" menu=""false"" bgcolor=""#ffffff"" quality=""high"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');"& vbCrLf fdhtml=fdhtml&"document.write('</object>');"& vbCrLf fdhtml=fdhtml&"</SCRIPT>"& vbCrLf response.write fdhtml end if %>