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
%>