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

来源:模板无忧 作者:风讯科技 更新时间:2006-06-16 点击:
方法如下:

将 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教程:
最新评论:
loading.. 评论加载中....
发表评论:不能超过250字节,请自觉遵守互联网相关政策法规.
  • 昵称: 验证:

最新风讯CMS教程