账号通
    

账号  

密码  

7668

查看

19

回复
主题:[分享]V5.x首页自动生成插件 [收藏主题] 转到:  
小林 当前离线

233

主题

0

广播

2

粉丝
添加关注
级别:二年级

用户积分:2186 分
登录次数:88 次
注册时间:2008/7/19
最后登录:2014/1/11
小林 发表于:2008/10/27 15:33:00   | 只看该作者 查看该作者主题 楼主 
科汛在线商城系统(NET)

刚在使用区发现有用户需要这个功能,现整理了一下提供上来


具体就稍修改一下index.asp即可实现


 


打开index.asp,加以下红色代码


 


    Dim Template,FsoIndex:FsoIndex=KS.Setting(5)
   
    '================================判断自动生成==============================
   
    Const PerTime=1                             '自动生成间隔的时间数,单位为分钟。
      
    If PerTime>0 and Split(FsoIndex,".")(1)<>"asp" Then


     Dim fs:set   fs=Server.CreateObject(KS.Setting(99))  
     Dim f:set    f=fs.getfile(server.MapPath(KS.Setting(5)))
     Dim LastModified:LastModified=f.DateLastModified
    
     if datediff("n",LastModified,Now)>=PerTime Then
        Template = KSR.LoadTemplate(KS.Setting(110))
       FCls.RefreshType = "INDEX" '设置刷新类型,以便取得当前位置导航等
       FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
       Template=KSR.KSLabelReplaceAll(Template)
       Call KS.WriteTOFile(KS.Setting(5),Template)
     End If
    End If
    '===================================自动生成结束======================================


 


 


IF Split(FsoIndex,".")(1)<>"asp" Then
              Response.Redirect KS.Setting(5):Exit Sub
    Else
       Template = KSR.LoadTemplate(KS.Setting(110))
       FCls.RefreshType = "INDEX" '设置刷新类型,以便取得当前位置导航等
       FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
       Template=KSR.KSLabelReplaceAll(Template)
   End IF
   Response.Write Template 


 


 


 


请在iis里,将默认文档index.asp执行优先级设置为最高


 


 

 下载信息  [文件大小:1.05 KB 下载次数: 次]
点击下载文件:index

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
浪迹天涯的云 当前离线

69

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:720 分
登录次数:31 次
注册时间:2008/8/12
最后登录:2010/12/14
浪迹天涯的云 发表于:2008/11/3 17:20:00   | 只看该作者 查看该作者主题 沙发 
科汛在线网校系统

这个有什么用啊  科讯的WAP插件怎么才能调用空间另外一个论坛的帖子啊 WAP首页模板要用什么修改呢

 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
sxshuilong 当前离线

128

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1192 分
登录次数:65 次
注册时间:2008/10/15
最后登录:2010/4/23
sxshuilong 发表于:2008/11/3 8:42:00   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
fzcjh 当前离线

487

主题

0

广播

0

粉丝
添加关注
级别:四年级

用户积分:4637 分
登录次数:198 次
注册时间:2007/12/22
最后登录:2011/2/19
fzcjh 发表于:2008/11/2 18:03:00   | 只看该作者 查看该作者主题 板凳 

留一个脚印...

另外自定义页面如果要实现这样的情况要怎么做

 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
dzme 当前离线

57

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:951 分
登录次数:76 次
注册时间:2006/6/11
最后登录:2010/5/13
dzme 发表于:2008/10/30 12:56:00   | 只看该作者 查看该作者主题 报纸 
科汛在线考试系统(NET)
[payto](seller)476537645@qq.com(/seller)(subject)一二(/subject)(body)无(/body)(price)110(/price)(transport)1(/transport)(ordinary_fee)(/ordinary_fee)(express_fee)(/express_fee)(ww)d_zme@163.com(/ww)(qq)476537645(/qq)(demo)http://www.abc.com(/demo)[/payto]
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cvq 当前离线

704

主题

0

广播

0

粉丝
添加关注
级别:六年级

用户积分:4700 分
登录次数:151 次
注册时间:2008/8/26
最后登录:2016/8/22
cvq 发表于:2008/10/28 10:57:00   | 只看该作者 查看该作者主题 地板 
科汛在线考试系统(NET)
不错,建议下个版本在后台设个开关。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
若水 当前离线

132

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1077 分
登录次数:38 次
注册时间:2007/7/6
最后登录:2009/10/22
若水 发表于:2008/10/28 9:40:00   | 只看该作者 查看该作者主题 7楼 
科汛在线考试系统(NET)
以下是引用mt56在2008-10-27 18:35:00的发言:

具体怎么操作?

怕出现操作错误,放在什么下面或上面。

 

把源文件和LZ提供的下载文件对比一下就可以看出来放在什么位置了(用下载的文件直接替换原index.asp即可)。

 

具体位置如下:

 

    Dim Template,FsoIndex:FsoIndex=KS.Setting(5)   【在此之下】

 

        *******  需加入的代码 **********

 

    IF Split(FsoIndex,".")(1)<>"asp" Then   【在此之上】

 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
8ewzcn 当前离线

135

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1013 分
登录次数:75 次
注册时间:2008/7/31
最后登录:2013/9/15
8ewzcn 发表于:2009/1/15 0:22:00   | 只看该作者 查看该作者主题 8楼 
把它集成到后台管理就好了,谢谢.支持科汛
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mt56 当前离线

4985

主题

53

广播

17

粉丝
添加关注
级别:版主

用户积分:23430 分
登录次数:1621 次
注册时间:2007/2/10
最后登录:2022/9/28
mt56 发表于:2008/10/28 10:46:00   | 只看该作者 查看该作者主题 9楼 
科汛在线考试系统(NET)
以下是引用若水在2008-10-28 9:40:00的发言:

 

把源文件和LZ提供的下载文件对比一下就可以看出来放在什么位置了(用下载的文件直接替换原index.asp即可)。

 

具体位置如下:

 

    Dim Template,FsoIndex:FsoIndex=KS.Setting(5)   【在此之下】

 

        *******  需加入的代码 **********

 

    IF Split(FsoIndex,".")(1)<>"asp" Then   【在此之上】

 

是defaut.asp

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
北极雪人 当前离线

713

主题

19

广播

5

粉丝
添加关注
级别:六年级

用户积分:3270 分
登录次数:773 次
注册时间:2009/3/17
最后登录:2024/9/12
北极雪人 发表于:2009/5/27 16:10:00   | 只看该作者 查看该作者主题 10楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.21777秒 powered by KesionCMS 9.0