求助asp友情连接问题 我想让它一排显示文字一排显示图片

来源:百度知道 编辑:UC知道 时间:2024/09/22 19:42:16
过程名:ShowFriendLinks
'作 用:显示友情链接站点
'参 数:LinkType ----链接方式,1为LOGO链接,2为文字链接
' SiteNum ----最多显示多少个站点
' Cols ----分几列显示
' ShowType ----显示方式。1为向上滚动,2为横向列表,3为下拉列表框
'==================================================
sub ShowFriendLinks(LinkType,SiteNum,Cols,ShowType)
dim sqlLink,rsLink,SiteCount,i,strLink
if LinkType<>1 and LinkType<>2 then
LinkType=2
else
LinkType=Cint(LinkType)
end if
if SiteNum<=0 or SiteNum>100 then
SiteNum=10
end if
if Cols<=0 or Cols>20 then
Cols=10
end if
if ShowType=2 then'
strLink=strLink & "<div id=rolllink style=overflow:hidden;height:100;width:100><div id=rolllink1>" '新增加的代码
elseif ShowType=3 then
strLink=strLink & "<select name='FriendSite' onchange=""if(this.options[this.selectedIndex].val

不知道你的意图是什么,代码有错还是什么?不用这么复杂吧,你只要是图片的,从数据库读出来,一列显示多少个,超过个数的就换行,文字链接的也一样。你可以看看我的站“欢乐世界—笑话—短信—网文—经典”,最底下的友情链接,虽然粗糙,但是还是有用。自己写的。