修正下载载栏目中,对软件名称的字数控制没有作用_风讯Cms教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!
方法如下:

将 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

查看更多 风讯cms教程  风讯cms模板

来源:模板无忧//所属分类:风讯Cms教程/更新时间:2006-06-16
相关风讯Cms教程