如何清理asp站点缓存的代码
<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>开始执行清理当前站点缓存</b>：")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInfo","更新 <b>"&cachelist(i)&"</b> 完成")
Next
Call InnerHtml("UpdateInfo","更新了"& UBound(cachelist)-1 &"个缓存对象<br>")
Else
Call InnerHtml("UpdateInfo","<b>当前站点全部缓存清理完成。</b>。")
End If
End Sub
Function GetallCache()
Dim Cacheobj
For Each Cacheobj in Application.Contents
GetallCache = GetallCache & Cacheobj & ","
Next
End Function
Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(MyCaheName)
Application.unLock
End Sub
Sub InnerHtml(obj,msg)
Response.Write "<li>"&msg&"</li>"
Response.Flush
End Sub
%>
相关文档：
今天重新整理电脑，找到一个文件，看了下日期（2006.11.5） ，怕不小心再丢了，存到网上来晒晒。
安装与配置
1.5.1安装IIS
控制面板_ 添加删除程序_添加删除Windows组件_
"internet信息服务(IIS)"对话框_详细信息——"Word Wide Web服务器" _ 单击两个“确定”—&mda ......
<script language="javascript">
function CheckAll(form)
{ ///定义函数checkall,参数为form
for (var i=0;i<form.elements.length;i++)
///循环,form.elements.length得到表单里的控件个数
{
///把表单里的内容依依付给e这个变量
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = for ......
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
代码解释：
Request.ServerVariables("HTTP_REFERER")是获取上� ......
用ASP实现SQL SERVER数据库的远程更新
江苏省通州职业高级中学 刘计衡
微软的SQL Server 是一个大型的关系数据库系统，它为在复杂环境下有效地实现重要商业应用提供了一个强有力的客户/服务器平台。它结合Microsoft Windows NT操作系统的能力，提供了一个安全、可扩展、易管理、高端性能的客户/服务器数据库平台。� ......
