-
3.1-增加可自定義每篇新聞的文件名功能
2006-06-16也許大家用系統(tǒng)做網(wǎng)站,別人一看生成的文件總是能夠找到一點(diǎn)規(guī)律.用這個(gè)東西,每次添加新聞的時(shí)候,隨便輸入一些亂七八糟的文件名稱,是不是另有一種收獲呢? 在些時(shí)候還是用得著的. 本修改適合FoosunCMS V3.1.0930, 修改前,請備份原文件 . 1 、先在/inc/function.asp中最后 -
3.1-添加視頻文件,高度自定義
2006-06-16找到 editer/video.asp 第47行 str1=str1 "embed src=" document.VideoForm.url.value " width=" document.VideoForm.width. value "height =" document.VideoForm.height.value " autostart=true loop=true" 改為 str1=str1 "embed src=" document.VideoForm.url.valu -
3.1自由標(biāo)簽建立的簡單介紹
2006-06-16建立自由標(biāo)簽的時(shí)候,你需要選擇調(diào)用的字段,雙擊就可以插入字段了,在下面的代碼框可以看出來,假如要取消插入,則再次雙擊字段就可以了。設(shè)置欄目的條件也一樣 以下圖片請點(diǎn)擊放大: screen.width-500)this.style.width=screen.width-500;" border=0> 點(diǎn)擊下一步之后 -
3.1-增加批量設(shè)置新聞屬性功能
2006-06-16實(shí)現(xiàn)功能: 1、后臺新聞列表中可以按CTRL或shift鍵批量選擇新聞,然后通過右鍵菜單來統(tǒng)一設(shè)置新聞的屬性,如推薦新聞,圖片新聞,滾動新聞等。 2、假如是設(shè)置成圖片新聞的話,還會自動給圖片新聞添加內(nèi)容中第一張圖為圖片新聞的顯示圖片。 3、新聞?lì)愋鸵蛔痔崾竟δ埽@ -
3.0SP2-顯示同級欄目修改方法
2006-06-16適用系統(tǒng):3.0SP2,其它系統(tǒng)應(yīng)該類似 實(shí)現(xiàn)思想:在最終文章列表頁顯示同級的其它分類 修改文件: /Admin/Refresh/RefreshFunction.asp /Admin/Refresh/SelectFunction.asp /Editer/LableEditer.asp 添加文件:/FunPages/LableClassNavi_last.asp /Images/Lable/Navi2.g -
3.0SP2-實(shí)現(xiàn)公用標(biāo)簽,超簡單
2006-06-16適用系統(tǒng):3.0SP2,其它系統(tǒng)應(yīng)該類似 實(shí)現(xiàn)思想:一個(gè)標(biāo)簽應(yīng)用于所有模版,自動讀取所生成類別下(包含子類)的內(nèi)容 修改文件:Admin/Refresh/RefreshFunction.asp 實(shí)現(xiàn)方法(三行代碼解決問題,呵呵): 第一步、打開Admin/Refresh/RefreshFunction.asp文件 查找 Funct -
風(fēng)訊系統(tǒng)自建標(biāo)簽的方法和使用
2006-06-16. 在RefreshFunciton.asp文件里建立一個(gè)想要的函數(shù),需要傳遞值的在后邊跟上,比如Function YourFunction(str1,str2,str3),最好是帶上值哪怕沒有用,否則在首頁用時(shí)會被屏蔽掉 2. 然后到SelectFunction.asp文件里加上個(gè)Case "YourFunction" 這是因?yàn)槌绦蛞呀?jīng)將標(biāo)簽轉(zhuǎn) -
添加新聞時(shí)自動添加關(guān)鍵字
2006-06-16我是先做抓取新聞時(shí)自動添加要害字后,想到手工添加新聞時(shí)也可以把這個(gè)功能用上去。所以兩段程序可以說是完全一樣的,只是應(yīng)用的場所不同~ 請先備份: Admin/Info/NewsWords.asp 下面開始修改: 1、打開Admin/Info/NewsWords.asp,拉到倒數(shù)第二行(也就是%的前面), -
采集新聞時(shí),自動添加關(guān)鍵字
2006-06-16這段程序是 根據(jù)采集到的新聞的標(biāo)題 數(shù)據(jù)庫中現(xiàn)有的要害字 匹配 來實(shí)現(xiàn)的。只怕會不符合有些朋友的需求。請見諒了!還有,采用這段程序會相應(yīng)增加一點(diǎn)采集的時(shí)間。(我沒具體測量過,但操作中感覺不出處理時(shí)間有明顯增加) 怎么實(shí)現(xiàn)的呢:把數(shù)據(jù)表Routine中的記錄一一 -
防止被采集的代碼
2006-06-16% user_agent=Request.ServerVariables("HTTP_USER_AGENT") http_reffer=Request.ServerVariables("HTTP_REFERER") server_name=Request.ServerVariables("SERVER_NAME") '檢查當(dāng)前用戶是否是蜘蛛人 function check(user_agent) allow_agent=split("Baiduspider,Scoote -
標(biāo)題過長,在后面加上省略號
2006-06-16直接修改根/inc/Function.asp中的: Function GotTopic(Str,StrLen) Dim l,t,c, i,LableStr,regEx,Match,Matches ,tLen if IsNull(Str) then GotTopic = "" Exit Function end if if Str = "" then GotTopic="" Exit Function end if Set regEx = New RegExp regEx.Pat -
3.1-制作強(qiáng)大的通用標(biāo)簽
2006-06-16什么是通用標(biāo)簽? 簡單地說,就是標(biāo)簽中調(diào)用標(biāo)簽 如:{FS_{FS_當(dāng)前類目}_熱點(diǎn)} 通用標(biāo)簽有什么用? 利用通用標(biāo)簽可以讓N個(gè)類目共同調(diào)用一個(gè)模板,而顯示的內(nèi)容又各不相同。 它可以大大減少你制作模板的工作,也會給日常的維護(hù)帶來很大的方便。 通用標(biāo)簽的原理是什么? -
3.0Sp1刪除下載、新聞的同時(shí),刪除遠(yuǎn)程存圖的圖片
2006-06-16功能簡介:刪除下載、新聞的同時(shí),刪除遠(yuǎn)程存圖的圖片補(bǔ)丁下載:screen.width-500)this.style.width=screen.width-500;border=0>點(diǎn)擊瀏覽該文件補(bǔ)丁運(yùn) -
遠(yuǎn)程存圖按日期目錄存放
2006-06-16本文討論區(qū):http://bbs.foosun.net/dispbbs.asp?boardID=22ID=7958page=1 方法: 1、修改圖片新聞文件:admin/Info/NewsPic.asp A、查找: If ISavePic = "1" then INewsAddObj("Content") = ReplaceRemoteUrl(Save_Content,"/" UpFiles "/" BeyondPicDir,RsNewsConfi -
增加指定文件名功能
2006-06-16方法:在文件Admin\Info\NewsWords.asp中 (1)在 option % if IFileExtName = "asp" then Response.Write("Selected") % value="asp"asp/option /select/td /tr 后加入代碼 tr td height="30" div align="center"font color="#FF0000"指定文件名/font/div/td td height= -
3.0SP1如果沒有修改下載,下載修改時(shí)間顯示的是00.00.0.,修改成添加時(shí)間
2006-06-16解決方法: 在文件Admin\Info\DownLoad.asp中 在 if IDownLoadID "" then IDownObj("EditTime") = Formatdatetime(IEditTime) 后插入 else IDownObj("EditTime") = Formatdatetime(IAddTime) -
修改站點(diǎn)管理退出時(shí)的地址轉(zhuǎn)向
2006-06-16方法:在文件Admin\loginout.asp中 把 % Session.abandon Response.Redirect "login.asp" % 改成 % dim Url if Request("UrlAddress")"" then Url = Request("UrlAddress") else Url = "login.asp" end if Session.abandon Response.Redirect Url % -
3.0SP1下載列表內(nèi)容簡介字?jǐn)?shù)修改控制
2006-06-16方法:在文件Admin\Refresh\RefreshFunction.asp中 找到函數(shù)Function GetOneDownLoadList ( 把 If len(TempStr)40 then TempStr = left(TempStr,40) "......" 中的40改成你要的數(shù)字(我的改成110) If len(TempStr)110 then TempStr = left(TempStr,110) "......" -
3.0SP1不讓對聯(lián)廣告浮動
2006-06-16admin/ads/Cls_Ads.asp 316行四周找到以下紅色部分刪除即可,針對其他的廣告是否會產(chǎn)生影響還不大清楚!希望大家自覺點(diǎn)倍份一下文件!修改后對聯(lián)廣告固定在上方 "document.write(' ');" vbCrLf _ -
3.0SP1變相使用搜索做文集
2006-06-16黃玲 注:這一種只適合在首頁模板中使用, 在模板里邊插入以上代碼紅色部分為文章作者。這里是利用搜索里邊的 作者要害字來處理的! 假如不想和搜索共同用一個(gè)頁面可以復(fù)制一份搜索文件換成其他的名稱。 另外一種 個(gè)人文集注:這一種適合在新聞瀏覽頁面中使用! 思路
- 相關(guān)鏈接:
- 欄目說明:
風(fēng)訊CMS教程:提供風(fēng)訊CMS相關(guān)經(jīng)驗(yàn)教程,是您學(xué)習(xí)風(fēng)訊CMS教程的最佳選擇。