方法如下:
将 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()声明为:
functionGetOneDownLoadList(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模板