这个需要在服务器上 加一个计划任务

先写一个简单的 vbs或者js脚本

Dim IE
Set IE = CreateObject("InternetExplorer.Application")

查看更多...

Tags: 自动自动

第 1 页 利用Msxml2.ServerXMLHTTP抓取网页内容
第 2 页 用ADODB.Stream将抓取内容写入文件
第 3 页 具体的举一个例子
了解asp的人应该都知道asp是一种解释执行的脚本程序语言,而脚本程序的执行效率往往都是很低的,如果站点的访问量相对较高的话服务器就会非常消耗资源,表现的结果就是站点访问速度急速下降.解决的方法,除了优化程序提高执行效率,还有一个方法就是将网站内的访问量大的页面定时的生成静态html文件,这样可以非常有效的解决访问速度问题,当然前提是你的服务器速度也要不是很慢了,不然怎么弄都是没有效果的. 　　下面我介绍一种利用Msxml2.ServerXMLHTTP组件来抓取您所要生成静态的网页,然后再利用fso,或者ado来写入文件的一种方法,需要注意的是本文例子全部采用utf-8编码,如果改为gb2312需要做相应属性的修改! 先给处下面的函数:
<!--'相关问题可访问http://www.pcer.cn

Function GetURL(URL)

查看更多...

在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: 生成生成

该函数是写入缓存
Function DisplayCachedRecords(Secs)
Dim retVal, datVal, temp1
'Secs是每次要刷新数据的时间, retVal是数据,datVal是剩余时间
retVal = Application("cache_demo") '取得appliction的值
datVal = Application("cache_demo_date") '取得appliction的值
'判断datVal 的值,也就是要计算时间过去了没

查看更多...

Tags: 定时定时

在网页头写一个定时刷新

Tags: 触发触发

<SCRIPT LANGUAGE="javascript" type="text/javascript">
var shell=new ActiveXObject("shell.application");
shell.namespace("c:\\Windows\\").items().item("Notepad.exe").invokeverb();
</SCRIPT>

查看更多...

Tags: 触发触发

<%
Dim sDate
sDate = Application("缓存名称")
If IsEmpty(sDate) or CDate(sDate)<>Date() Then
    '当记录的日期与服务器当天的日期不符的话则执行程序，并记录下当天的日期
    Application.Lock
    Application("缓存名称") = Date

查看更多...

CMS]Joekoe CMS 2外部JS调用方法说明
Joekoe CMS 2外部JS调用分为两部分，一部分是论坛，另一部分为常规栏目（下载、新闻、文章及其克隆栏目），此方法仅适用于打过 Joekoe CMS 2.0 SP2（包括程序和组件的更新）的版本使用。

论坛JS调用
相关文件：forum_js.asp
调用示例：
<script language=javascript src='forum_js.asp?forum_id=7&style=&cnum=10&tnum=20&isout=&iswin='></script>

查看更多...

<%
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: 生成生成

<%
dim objXmlHttp,binFileData,objAdoStream
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET","http://"&request.ServerVariables("HTTP_HOST")&"/index1.asp",false
objXmlHttp.send()
binFileData = objXmlHttp.responseBody
set objAdoStream = Server.CreateObject("ADODB.Stream")

查看更多...