简易ASP文件缓存技术
注意：系统需要FSO权限、XMLHTTP权限
系统包括两个文件，其实可以合并为一个。之所以分为两个是因为部分杀毒软件会因为里边含有FSO、XMLHTTP操作而被认为是脚本木马。
调用时，需要在ASP页面的最上边包含主文件，然后在下边写下以下代码
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 '修改过期时间设置为5个小时
if MyCatch.CatchNow(Rev) then
response.write MyCatch.CatchData
response.end
end if
set MyCatch=nothing
复制代码
文件一：FileCatch.asp 的代码
<!--#include file="FileCatch-Inc.asp"-->
<%
'---- 本文件用于签入原始文件，实现对页面的文件Catch
'---- 1、如果文件请求为POST方式，则取消此功能
'---- 2、文件的请求不能包含系统的识别关键字
'---- 3、作者 何直群 (www.wozhai.com)
Class CatchFile
Public Overdue,Mark,CFolder,CFile '定义系统参数
Private ScriptName,ScriptPath,ServerHost '定义服务器/页面参数变量
Public CatchData '输出的数据
Private Sub Class_Initialize '初始化函数
'获得服务器及脚本数据
ScriptName=Request.Servervariables("Script_Name") '识别出当前脚本的虚拟地址
ScriptPath=GetScriptPath(false) '识别出脚本的完整GET地址
ServerHost=Request.Servervariables("Server_Name") '识别出当前服务器的地址
'初始化系统参数
Overdue=30 '默认30分钟过期
Mark="NoCatch" '无Catch请求参数为 NoCatch
CF
相关文档：
废话少说,见代码
<%=request.ServerVariables("LOGON_USER")%>
首先IIS所在的服务器要加入域,其次是IIS服务器的设置.见图1
图2
服务器设置好后, IIS所在的服务器使用
<%=request.ServerVariables("LOGON_USER")%>
就能获取到域名称和用户名了.
如果访问者没有加入域,会提示登录,如下图.� ......
ASP高级技术精选集
一、GetRows的使用方法：
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from 表名",conn,0,1 &nb ......
<!--#include file="zheboconn.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<title>asp和mysql分页代码</title>
<style type="text/css">
<!--
.STYLE3 {
fon ......
ASP导出Excel数据的四种方法
来源： aspsky 作者： tonny
一、使用OWC
什么是OWC？
OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些� ......
<%
'//////////// GPS：Get Picture Size //////////////
'//////////////利用ADODB.stream获取图片尺寸//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......
