首页 > 网站 > 建站经验 > 正文

修正下载载栏目中,对软件名称的字数控制没有作用

2024-08-30 19:06:05
字体:
来源:转载
供稿:网友
方法如下:

将 refreshfunction.asp 中的函数 LastDownList() 中

'LastDownList = LastDownList & "<td " & RowHeightStr & ">" & GetOneDownLoadList(LastDownListObj,DownListStyleStr,ClassSaveFilePath,"","",OpenTypeStr,NaviPicStr,CSSStyleStr) & "</td>" & Chr(13) & Chr(10)

修改为:


LastDownList = LastDownList & "<td " & RowHeightStr & ">" & GetOneDownLoadList(LastDownListObj,DownListStyleStr,ClassSaveFilePath,"","",OpenTypeStr,NaviPicStr,CSSStyleStr,TitleNumberStr) & "</td>" & Chr(13) & Chr(10)

注:与GetOneDownLoadList()有关的函数均要添加“,TitleNumberStr”,(“”内部的字符)与上述修改类似。否则会出错。
同时修改函数GetOneDownLoadList()声明为:

function GetOneDownLoadList(TitleNumberStr,AlreadyDownListObj,StyleID,ClassSaveFilePath,ClassCNName,DateRuleStr,OpenTypeStr,NaviPicStr,CSSStyleStr)

并将其中语句:

'StyleContent = Replace(StyleContent,"{DownLoad_Name}",NaviPicStr & ClassCNName & "<div style=word-break:break-all;><a Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyDownListObj("ClassEName") & "/" & AlreadyDownListObj("FileName") & "." & AlreadyDownListObj("DownLoadFileExtName") & """ " & OpenTypeStr & ">" & AlreadyDownListObj("Name") & "</a></div>")

修改为

<!--这是原创者的-->
StyleContent = Replace(StyleContent,"{DownLoad_Name}",NaviPicStr & ClassCNName & "<div style=word-break:break-all;><a Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyDownListObj("ClassEName") & "/" & AlreadyDownListObj("FileName") & "." & AlreadyDownListObj("DownLoadFileExtName") & """ " & OpenTypeStr & ">" & GotTopic(AlreadyDownListObj("Name"),TitleNumberStr) & "</a></div>")

<!--这是我在原创者基础上修正的-->
StyleContent = Replace(StyleContent,"{DownLoad_Name}",NaviPicStr & ClassCNName & "<div style=word-break:break-all;><a Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyDownListObj("ClassEName") & "/" & AlreadyDownListObj("FileName") & "." & AlreadyDownListObj("DownLoadFileExtName") & """ title="""& AlreadyDownListObj("Name")&""" "& OpenTypeStr & ">" & GotTopic(AlreadyDownListObj("Name"),TitleNumberStr) & "</a></div>")'添加提示doudou888

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表