   | ||
| 注意：我并沒(méi)有把所有的東西都嘗試過(guò)更改，作這個(gè)收集只為了方便大家的查找 建議前請(qǐng)備份原文件，死定了別怪我啊~~  1.如何去掉資源標(biāo)題日期？ 答：打開(kāi)updateSite目錄下的page01.asp，找到 " strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/moiyehiw") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf " 修改為" strHtml=strHtml&"·<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf " 其實(shí)也就是去掉了取當(dāng)前系統(tǒng)日期的代碼" [" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/moiyehiw") & "] " 2.如何增加頁(yè)面資源更新時(shí)的欄目？ 答：呵呵，其實(shí)這個(gè)N簡(jiǎn)單的。找到updateSite目錄下的page01.asp，增加如下代碼： " Function update01() Dim TemplateFilePath TemplateFilePath=Server.MapPath("../../../default.htm") Dim TClass,strHtml Set TClass=New Tkl_TemplateClass strHtml="" Dim Rs,Sql Sql="select Top 8 Title,FilePath,AddTime From view_NewsInfo where Class In (34" & AllChildClass(34) & ") Order By Id DESC" Set Rs=Conn.ExeCute(Sql) While Not Rs.Eof strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/moiyehiw") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a><br>" & vbCrLf Rs.MoveNext Wend Rs.Close Set Rs=Nothing " 注意，F(xiàn)unction update01() 這里，是按照數(shù)字順序排列下來(lái)的。如果有相同的數(shù)字，頁(yè)面資源更新時(shí)就會(huì)報(bào)錯(cuò)。如果你增加了或者刪除了相應(yīng)的資源更新代碼，別忘 了同時(shí)也要修改下page01.asp中的 " select Case Request("Work") Case "update01" : update01() updateOk() Case "All" : update01() update02() update03() update04() update05() update06() update07() update08() updateOk() End select "代碼。 3.看了第2條后，有點(diǎn)疑問(wèn)。那么page02.asp、page03.asp、page04.asp有什么用呢？ 答：請(qǐng)看資源更新頁(yè)面，即manage目錄下的updatepage.asp文件。該頁(yè)面上有4個(gè)更新選項(xiàng)。而這4個(gè)更新選項(xiàng)所 控制的正是page01.asp、page02.asp、page03.asp和page04.asp。 4.如何更換Tsys的編輯器？ 答：有2種方法。 第一，更換為ewebeditor編輯器。詳細(xì)請(qǐng)看：http://bbs.tsyschina.com/forum_posts.asp?TID=232&PN=1 第二，請(qǐng)看：http://bbs.tsyschina.com/forum_posts.asp?TID=707&PN=1 5.如何修改靜態(tài)頁(yè)面生成格式？ 答：一般我覺(jué)得不用修改。但如果你想把原來(lái)2004/0730/****.htm的格式改成20040730/****.htm 的話，請(qǐng)找到Manage/Include目錄下的createFile_Fun.asp文件。先找到生成文件邏輯存放路徑那一 段的 " tPath = Directory & "/" & Year(AddTime) & "/" & create_id(AddTime)&"/"&NewsId & Def_FileExtension " 代碼。 將其修改為： " tPath = Directory & "/" & Year(AddTime) & create_id(AddTime)&"/"&NewsId & Def_FileExtension " 然后再找到生成文件物理存放路徑那一段的 " tPath = Server.MapPath(Directory) If Not Fso.FolderExists(tPath) Then Fso.createFolder(tPath) If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then Response.Write "執(zhí)行錯(cuò)誤：<br><b>" & tPath & "</b>路徑不存在,請(qǐng)核對(duì)。" Response.End End If End If tPath=tPath & "/" & Year(AddTime) If Not Fso.FolderExists(tPath) Then Fso.createFolder(tPath) If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then Response.Write "執(zhí)行錯(cuò)誤：<br><b>" & tPath & "</b>路徑不存在,請(qǐng)核對(duì)。" Response.End End If End If tPath=tPath & "/" & create_id(AddTime) If Not Fso.FolderExists(tPath) Then Fso.createFolder(tPath) If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then Response.Write "執(zhí)行錯(cuò)誤：<br><b>" & tPath & "</b>路徑不存在,請(qǐng)核對(duì)。" Response.End End If End If "代碼。 將其修改為： " tPath = Server.MapPath(Directory) If Not Fso.FolderExists(tPath) Then Fso.createFolder(tPath) If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then Response.Write "執(zhí)行錯(cuò)誤：<br><b>" & tPath & "</b>路徑不存在,請(qǐng)核對(duì)。" Response.End End If End If tPath=tPath & "/" & Year(AddTime) & create_id(AddTime) If Not Fso.FolderExists(tPath) Then Fso.createFolder(tPath) If Def_createNewsFiles_ShowFolderError And Err.Number<>0 Then Response.Write "執(zhí)行錯(cuò)誤：<br><b>" & tPath & "</b>路徑不存在,請(qǐng)核對(duì)。" Response.End End If End If " 6.頁(yè)面資源更新的時(shí)候出現(xiàn)： "Microsoft VBScript 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 ‘800a0035‘ 文件未找到 /tsys/manage/Include/Tkl_TemplateClass.asp，行 82 " 提示，該如何解決？ 答：出現(xiàn)這個(gè)提示的原因，主要是因?yàn)闆](méi)有找到指定更新文件，因而無(wú)法更新所造成的。請(qǐng)找到updatesite目錄下的page 01.asp文件。找到" TemplateFilePath=Server.MapPath("../../../default.htm") "代碼。請(qǐng)確認(rèn)其路徑下有default.htm這個(gè)文件。每個(gè)資源欄目更新時(shí)可以靈活制定其更新頁(yè)面。其修改方法也就是修改上 面所提到的這行代碼。但必須保證代碼中所涉及到的目錄和文件都存在。否則更新時(shí)只會(huì)報(bào)錯(cuò)！ 7.如何制作Tsys的模板？Tsys頁(yè)面如何更新？ 答：請(qǐng)參考http://bbs.tsyschina.com/forum_posts.asp?TID=1025&PN=1 標(biāo)題限制字?jǐn)?shù)可更改顏色+最新專題功能 TSYS官方下載地址： http://www.tsyschina.com/Down/user/tsyssp.rar 3、在每個(gè)page0*.asp的更新加... 例子：藍(lán)色是注意的 紅色加的 紫色是更改的 ‘//修改舉例 Function update01() Dim TemplateFilePath TemplateFilePath=Server.MapPath("更新文件路徑") Dim TClass,strHtml Set TClass=New Tkl_TemplateClass strHtml="" Dim Rs,Sql Sql="select Top 6 Title,Color,ClassTitle2,ClassUrl,FilePath,AddTime From view_NewsInfo where Class In (64" & AllChildClass(64) & ") Order By Id DESC" Set Rs=Conn.ExeCute(Sql) While Not Rs.Eof strHtml=strHtml&"·[" & Rs("ClassTitle2") & "]<a href=""" & Rs("FilePath") & """ target=""_blank""> <font color=" & Rs("Color") &"> " & left(Rs("Title"),10) & "</font> </a><br>" & vbCrLf Rs.MoveNext Wend Rs.Close Set Rs=Nothing With TClass .OpenTemplate(TemplateFilePath) .StartElement="<!--標(biāo)簽:start-->" .EndElement="<!--標(biāo)簽:end-->" .Value=strHtml .ReplaceTemplate() .Save() End With Set TClass=Nothing End Function 4、限制字?jǐn)?shù)方法 StrClass.CutStr(Rs("Title"),5) （這種可以在后面加...三個(gè)點(diǎn)） left(Rs("Title"),5) <這 種沒(méi)有...三個(gè)點(diǎn)> 意思：是從右邊開(kāi)始截取幾個(gè)字符 說(shuō)明：更新后在News_Add.asp里加了一項(xiàng)可以添顏色的表單 添加方法 直接添顏色的值 如 #FF0000 或者red 等等 自動(dòng)生成分類文件夾 功能：在設(shè)置分類列表的時(shí)候，可以自動(dòng)生成分類文件夾。 加這段代碼本來(lái)是為了自己方便，如果大家覺(jué)得有用的話也可以加上。 在Class_Mdy.asp文件480行和553行處 也就是 Rs("Directory")=Request("Directory")后面加： Dim Fso Set Fso = Server.createObject(Def_FsoObjectStr) If Not Fso.FolderExists(Server.Mappath(Request("Directory"))) Then Fso.createFolder(Server.Mappath(Request("Directory"))) End If Set Fso=Nothing
| ||
聯(lián)系客服
