- 2006-06-16
也许大家用系统做网站,别人一看生成的文件总是能够找到一点规律.用这个东西,每次添加新闻的时候,随便输入一些乱七八糟的文件名称,是不是另有一种收获呢? 在些时候还是用得着的. 本修改适合FoosunCMS V3.1.0930, 修改前,请备份原文件 . 1 、先在/inc/function.asp中最后
- 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
- 2006-06-16
建立自由标签的时候，你需要选择调用的字段，双击就可以插入字段了，在下面的代码框可以看出来，假如要取消插入，则再次双击字段就可以了。设置栏目的条件也一样 以下图片请点击放大: screen.width-500)this.style.width=screen.width-500;" border=0> 点击下一步之后
- 2006-06-16
实现功能： 1、后台新闻列表中可以按CTRL或shift键批量选择新闻，然后通过右键菜单来统一设置新闻的属性，如推荐新闻，图片新闻，滚动新闻等。 2、假如是设置成图片新闻的话，还会自动给图片新闻添加内容中第一张图为图片新闻的显示图片。 3、新闻类型一字提示功能，这
- 2006-06-16
适用系统：3.0SP2，其它系统应该类似 实现思想：在最终文章列表页显示同级的其它分类 修改文件： /Admin/Refresh/RefreshFunction.asp /Admin/Refresh/SelectFunction.asp /Editer/LableEditer.asp 添加文件：/FunPages/LableClassNavi_last.asp /Images/Lable/Navi2.g
- 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
- 2006-06-16
什么是通用标签？ 简单地说，就是标签中调用标签 如：{FS_{FS_当前类目}_热点} 通用标签有什么用？ 利用通用标签可以让N个类目共同调用一个模板，而显示的内容又各不相同。 它可以大大减少你制作模板的工作，也会给日常的维护带来很大的方便。 通用标签的原理是什么？
- 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=
- 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 %
- 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) "......"
- 2006-06-16
admin/ads/Cls_Ads.asp 316行四周找到以下红色部分删除即可，针对其他的广告是否会产生影响还不大清楚！希望大家自觉点倍份一下文件！修改后对联广告固定在上方 "document.write(' ');" vbCrLf _
- 2006-06-16
黄玲 注：这一种只适合在首页模板中使用， 在模板里边插入以上代码红色部分为文章作者。这里是利用搜索里边的 作者要害字来处理的！ 假如不想和搜索共同用一个页面可以复制一份搜索文件换成其他的名称。 另外一种 个人文集注：这一种适合在新闻浏览页面中使用！ 思路