UC知道asp图片链接
来源：百度知道 编辑：UC知道 时间：2024/06/06 04:36:04
'函数名:友情链接
'函数返回值:文章或软件的分类标题调用。
'参数:displayNum 总的个数,perLineNum 每行显示个数.
'Author:marquee 2005-5-5
'********************************************************
Function displaySiteLink(txtLinkNum,txtPerLineNum,imgLinkNum,imgPerLineNum,lr)
Dim displayContent,i,noneLinkFlag
'图片链接
noneLinkFlag = False
displayContent= displayContent & "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""0"">" & Vbcrlf _
& "<tr>" & Vbcrlf _
& "<td width=""7%"" valign=""middle""> </td>" & Vbcrlf _
& "<td height=""40"" valign=""middle"">" & Vbcrlf
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * from ZD_SiteLink where type=true and l
'函数返回值:文章或软件的分类标题调用。
'参数:displayNum 总的个数,perLineNum 每行显示个数.
'Author:marquee 2005-5-5
'********************************************************
Function displaySiteLink(txtLinkNum,txtPerLineNum,imgLinkNum,imgPerLineNum,lr)
Dim displayContent,i,noneLinkFlag
'图片链接
noneLinkFlag = False
displayContent= displayContent & "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""0"">" & Vbcrlf _
& "<tr>" & Vbcrlf _
& "<td width=""7%"" valign=""middle""> </td>" & Vbcrlf _
& "<td height=""40"" valign=""middle"">" & Vbcrlf
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "select * from ZD_SiteLink where type=true and l
width 是控制宽度，height是控制高度，
这是td（单元格）的高度和宽度值。
valign是单元格中内容的垂直对齐方式
middle是中间对齐
Function displaySiteLink(txtLinkNum,txtPerLineNum,imgLinkNum,imgPerLineNum,lr) '(定义函数名，所需参数)
Dim displayContent,i,noneLinkFlag '（定义变量）
'图片链接
noneLinkFlag = False '(设定变量nonelinkflag的值是：false)
displayContent= displayContent & "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""0"">" & Vbcrlf _
& "<tr>" & Vbcrlf _
& "<td width=""7%"" valign=""middle""> </td>" & Vbcrlf _
& "<td height=""40"" valign=""middle"">" & Vbcrlf '(这一行语句是组织一个表格的HTML代码，并将这些代码作为值，赋值给变量：displaycontent)
Set Rs = Server.CreateObject("Adodb.Recordset") '(创建记录集)
Sql = "select * from ZD_