• 3.1-增加可自定義每篇新聞的文件名功能

        2006-06-16
        也許大家用系統做網站,別人一看生成的文件總是能夠找到一點規律.用這個東西,每次添加新聞的時候,隨便輸入一些亂七八糟的文件名稱,是不是另有一種收獲呢? 在些時候還是用得著的. 本修改適合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自由標簽建立的簡單介紹

        2006-06-16
        建立自由標簽的時候,你需要選擇調用的字段,雙擊就可以插入字段了,在下面的代碼框可以看出來,假如要取消插入,則再次雙擊字段就可以了。設置欄目的條件也一樣 以下圖片請點擊放大: screen.width-500)this.style.width=screen.width-500;" border=0> 點擊下一步之后
      • 3.1-增加批量設置新聞屬性功能

        2006-06-16
        實現功能: 1、后臺新聞列表中可以按CTRL或shift鍵批量選擇新聞,然后通過右鍵菜單來統一設置新聞的屬性,如推薦新聞,圖片新聞,滾動新聞等。 2、假如是設置成圖片新聞的話,還會自動給圖片新聞添加內容中第一張圖為圖片新聞的顯示圖片。 3、新聞類型一字提示功能,這
      • 3.0SP2-顯示同級欄目修改方法

        2006-06-16
        適用系統:3.0SP2,其它系統應該類似 實現思想:在最終文章列表頁顯示同級的其它分類 修改文件: /Admin/Refresh/RefreshFunction.asp /Admin/Refresh/SelectFunction.asp /Editer/LableEditer.asp 添加文件:/FunPages/LableClassNavi_last.asp /Images/Lable/Navi2.g
      • 3.0SP2-實現公用標簽,超簡單

        2006-06-16
        適用系統:3.0SP2,其它系統應該類似 實現思想:一個標簽應用于所有模版,自動讀取所生成類別下(包含子類)的內容 修改文件:Admin/Refresh/RefreshFunction.asp 實現方法(三行代碼解決問題,呵呵): 第一步、打開Admin/Refresh/RefreshFunction.asp文件 查找 Funct
      • 風訊系統自建標簽的方法和使用

        2006-06-16
        . 在RefreshFunciton.asp文件里建立一個想要的函數,需要傳遞值的在后邊跟上,比如Function YourFunction(str1,str2,str3),最好是帶上值哪怕沒有用,否則在首頁用時會被屏蔽掉 2. 然后到SelectFunction.asp文件里加上個Case "YourFunction" 這是因為程序已經將標簽轉
      • 添加新聞時自動添加關鍵字

        2006-06-16
        我是先做抓取新聞時自動添加要害字后,想到手工添加新聞時也可以把這個功能用上去。所以兩段程序可以說是完全一樣的,只是應用的場所不同~ 請先備份: Admin/Info/NewsWords.asp 下面開始修改: 1、打開Admin/Info/NewsWords.asp,拉到倒數第二行(也就是%的前面),
      • 采集新聞時,自動添加關鍵字

        2006-06-16
        這段程序是 根據采集到的新聞的標題 數據庫中現有的要害字 匹配 來實現的。只怕會不符合有些朋友的需求。請見諒了!還有,采用這段程序會相應增加一點采集的時間。(我沒具體測量過,但操作中感覺不出處理時間有明顯增加) 怎么實現的呢:把數據表Routine中的記錄一一
      • 防止被采集的代碼

        2006-06-16
        % user_agent=Request.ServerVariables("HTTP_USER_AGENT") http_reffer=Request.ServerVariables("HTTP_REFERER") server_name=Request.ServerVariables("SERVER_NAME") '檢查當前用戶是否是蜘蛛人 function check(user_agent) allow_agent=split("Baiduspider,Scoote
      • 標題過長,在后面加上省略號

        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-制作強大的通用標簽

        2006-06-16
        什么是通用標簽? 簡單地說,就是標簽中調用標簽 如:{FS_{FS_當前類目}_熱點} 通用標簽有什么用? 利用通用標簽可以讓N個類目共同調用一個模板,而顯示的內容又各不相同。 它可以大大減少你制作模板的工作,也會給日常的維護帶來很大的方便。 通用標簽的原理是什么?
      • 3.0Sp1刪除下載、新聞的同時,刪除遠程存圖的圖片

        2006-06-16
        功能簡介:刪除下載、新聞的同時,刪除遠程存圖的圖片補丁下載:screen.width-500)this.style.width=screen.width-500;border=0>點擊瀏覽該文件補丁運
      • 遠程存圖按日期目錄存放

        2006-06-16
        本文討論區: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如果沒有修改下載,下載修改時間顯示的是00.00.0.,修改成添加時間

        2006-06-16
        解決方法: 在文件Admin\Info\DownLoad.asp中 在 if IDownLoadID "" then IDownObj("EditTime") = Formatdatetime(IEditTime) 后插入 else IDownObj("EditTime") = Formatdatetime(IAddTime)
      • 修改站點管理退出時的地址轉向

        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下載列表內容簡介字數修改控制

        2006-06-16
        方法:在文件Admin\Refresh\RefreshFunction.asp中 找到函數Function GetOneDownLoadList ( 把 If len(TempStr)40 then TempStr = left(TempStr,40) "......" 中的40改成你要的數字(我的改成110) If len(TempStr)110 then TempStr = left(TempStr,110) "......"
      • 3.0SP1不讓對聯廣告浮動

        2006-06-16
        admin/ads/Cls_Ads.asp 316行四周找到以下紅色部分刪除即可,針對其他的廣告是否會產生影響還不大清楚!希望大家自覺點倍份一下文件!修改后對聯廣告固定在上方 "document.write(' ');" vbCrLf _
      • 3.0SP1變相使用搜索做文集

        2006-06-16
        黃玲 注:這一種只適合在首頁模板中使用, 在模板里邊插入以上代碼紅色部分為文章作者。這里是利用搜索里邊的 作者要害字來處理的! 假如不想和搜索共同用一個頁面可以復制一份搜索文件換成其他的名稱。 另外一種 個人文集注:這一種適合在新聞瀏覽頁面中使用! 思路
      共10頁/198條記錄首頁上頁1234567下頁末頁