将 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
新闻热点
疑难解答