將 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
新聞熱點
疑難解答