亚洲午夜精品久久久久,牛牛本精品99久久精品,午夜极品

Tsys1.1正式版使用經(jīng)驗 [ 日期: 2005-05-14 1:11:41 AM | 作者: admin | 來源: Original |

]

注意：我并沒有把所有的東西都嘗試過更改，作這個收集只為了方便大家的查找

建議前請備份原文件，死定了別怪我啊~~

1.如何去掉資源標題日期？

答：打開updateSite目錄下的page01.asp，找到

" strHtml=strHtml&"·[" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/c9ozetgccsir") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a> " & vbCrLf "

修改為" strHtml=strHtml&"·<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a> " & vbCrLf "

其實也就是去掉了取當前系統(tǒng)日期的代碼" [" & StrClass.FormatMyDate(Rs("AddTime"),"{m}/c9ozetgccsir") & "] "

2.如何增加頁面資源更新時的欄目？

答：呵呵，其實這個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}/c9ozetgccsir") & "]<a href=""" & Rs("FilePath") & """ target=""_blank"">" & Rs("Title") & "</a> " & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing "

注意，F(xiàn)unction update01() 這里，是按照數(shù)字順序排列下來的。如果有相同的數(shù)字，頁面資源更新時就會報錯。如果你增加了或者刪除了相應(yīng)的資源更新代碼，別忘了同時也要修改下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條后，有點疑問。那么page02.asp、page03.asp、page04.asp有什么用呢？

答：請看資源更新頁面，即manage目錄下的updatepage.asp文件。該頁面上有4個更新選項。而這4個更新選項所控制的正是page01.asp、page02.asp、page03.asp和page04.asp。

4.如何更換Tsys的編輯器？

答：有2種方法。

第一，更換為ewebeditor編輯器。詳細請看：http://bbs.tsyschina.com/forum_posts.asp?TID=232&PN=1

第二，請看：http://bbs.tsyschina.com/forum_posts.asp?TID=707&PN=1

5.如何修改靜態(tài)頁面生成格式？

答：一般我覺得不用修改。但如果你想把原來2004/0730/****.htm的格式改成20040730/****.htm 的話，請找到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í)行錯誤： " & tPath & "路徑不存在,請核對。"
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í)行錯誤： " & tPath & "路徑不存在,請核對。"
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í)行錯誤： " & tPath & "路徑不存在,請核對。"
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í)行錯誤： " & tPath & "路徑不存在,請核對。"
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í)行錯誤： " & tPath & "路徑不存在,請核對。"
Response.End
End If
End If "

6.頁面資源更新的時候出現(xiàn)：

"Microsoft VBScript 運行時錯誤錯誤 ‘800a0035‘

文件未找到

/tsys/manage/Include/Tkl_TemplateClass.asp，行 82 "

提示，該如何解決？

答：出現(xiàn)這個提示的原因，主要是因為沒有找到指定更新文件，因而無法更新所造成的。請找到updatesite目錄下的page 01.asp文件。找到" TemplateFilePath=Server.MapPath("../../../default.htm") "代碼。請確認其路徑下有default.htm這個文件。每個資源欄目更新時可以靈活制定其更新頁面。其修改方法也就是修改上面所提到的這行代碼。但必須保證代碼中所涉及到的目錄和文件都存在。否則更新時只會報錯！

7.如何制作Tsys的模板？Tsys頁面如何更新？

答：請參考http://bbs.tsyschina.com/forum_posts.asp?TID=1025&PN=1

標題限制字數(shù)可更改顏色+最新專題功能

TSYS官方下載地址：
　　http://www.tsyschina.com/Down/user/tsyssp.rar

3、在每個page0*.asp的更新加...

例子：藍色是注意的紅色加的紫色是更改的

‘//修改舉例

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""> " & left(Rs("Title"),10) & " </a> " & vbCrLf
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing

With TClass
.OpenTemplate(TemplateFilePath)
.StartElement=""
.EndElement=""
.Value=strHtml
.ReplaceTemplate()
.Save()
End With
Set TClass=Nothing
End Function

4、限制字數(shù)方法

StrClass.CutStr(Rs("Title"),5) （這種可以在后面加...三個點）

left(Rs("Title"),5) <這種沒有...三個點>

意思：是從右邊開始截取幾個字符

說明：更新后在News_Add.asp里加了一項可以添顏色的表單

添加方法直接添顏色的值如 #FF0000 或者red 等等

自動生成分類文件夾

功能：在設(shè)置分類列表的時候，可以自動生成分類文件夾。

加這段代碼本來是為了自己方便，如果大家覺得有用的話也可以加上。

在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

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。

九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区