2008-04-15 17:51

asp实现不间断图片滚动

2008-04-14 15:14

MAQUEE会产生一段空白，现用ASP实现连续滚动图片

<%

dim str

function menu(id)

set rs=Object("set")

sql="select * from menu where id1="&id&" order by url,id"

sql,conn,1,1

str=str+"

"+chr(13)

i=1

while not

ChildCount=e("select count(*) from menu where

id1="&rs("id"))(0)

if ChildCount=0 then

if i=count then

menutype="file1"

else

menutype="file"

end if

menuname="

target='_blank'>"&rs("menuname")&""

onmouseup=""

else

if i=count then

menutype="menu3"

listtype="list1"

onmouseup=" onMouseUp=change1('a"&rs("id")&"','b"&rs("id")&"');"

else

menutype="menu1"

listtype="list"

onmouseup=" onMouseUp=change2('a"&rs("id")&"','b"&rs("id")&"');"

end if

menuname=rs("menuname")

end if

str=str+"

"+chr(13)

if ChildCount>0 then

str=str+"

"+chr(13)

end if

xt

i=i+1

wend

str=str+"

class='"&menutype&"'"&onmouseup&">"&menuname&"

class='"&listtype&"'>"+chr(13) menu(rs("id")) str=str+"

"+chr(13)

set rs=nothing

end function

menu(0)

set fso=Object("stemobject")

set f1=xtfile(h(""),2,true)

("

'/TR/html4/'>")

("")

("")

("")

("")

("")

("

content='sems,************************'>")("")

("")

("")

("")

("

target='_blank'>爱厦门人才网《

href='/news/'>厦门人才网》

")

(str)

("")

("")

set fso=nothing

ct("")

%