ASP生成文件夹

作者:cmscn 日期:2009-03-26

sub MakeNewsDir(foldername)
  dim folderos,fileos,myfolder
  set fileos=createobject(fso_sys_var)
  if foldername<>"" then
    myfolder=server.mappath(foldername)
    if not fileos.folderexists(myfolder) then
      set folderos=fileos.createfolder(myfolder)

Tags: 生成生成

分类:Cms | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 495

windows计划任务自动生成静态首页收藏

作者:cmscn 日期:2009-02-27

indexplan.vbs：脚本程序，调用ie组建执行生成首页的程序这里强调的是必须打开ie,要用到ie的组建，遨游好像不行。然后把这个脚本程序添加到windows计划任务里，设置好执行时间间隔，看你首页跟新的快慢了，自己把握。

view plaincopy to clipboardprint?
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
ie.navigate("http://localhost:80/createindex.asp")-这里在服务器换成你的域名指向你的生成文件
ie.visible=0

Tags: 生成生成

分类:Asp | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 615

首页生成htm

作者:cmscn 日期:2009-02-26

Tags: 生成生成

分类:Asp | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 459

如何实现每隔1个小时自动生成一次index.htm

作者:cmscn 日期:2009-02-26

在index.htm用JS方式引用一个ASP文件
<script language="JavaScript" src="save.asp"></script>
在save.asp写判断程序~~
<%
Dim sDate,Fso,Fout
sDate = Application("缓存名称")
If IsEmpty(sDate) or CDate(sDate)<>Date() Then

Tags: 生成生成

分类:Asp | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 451

ASP定时生成静态页(HTML)-按时间段定时生成静态页

作者:cmscn 日期:2009-02-24

<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("time.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
times=txt.ReadLine
Else

Tags: 生成生成

分类:Asp | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 450