2008 年 9月 19 日随笔档案 - 孤独的猫

实现ASP缓存技术

摘要： 1.服务器端缓存ListBox=Application("ListBox")If ListBox<>"" thenResponse.Write "本次通过服务器缓存读取数据:<BR>"End IfIf ListBox="" thenResponse.Write "本次为第一次读取数据，从数据库中读取:<BR>" Response.Write "另外打开窗口读取或者刷新页面即可验证从服务器缓存中读取数据<BR>"Set Conn= 阅读全文

posted @ 2008-09-19 15:22 孤独的猫阅读(364) 评论(0) 推荐(0)

定时自动关闭弹出窗口

摘要： 1.window对象的setTimeOut方法window对象的setTimeOut方法用于延迟执行某一操作，其语法是:SetTimeOut(express,secdelay[,language])其中express是一个字符串，可包含热呵呵对函数、方法或者单个Javascript语句的调用；secdelay是以毫秒为单位的运行间隔时间,language指定脚本语言，如为Javascript，可不指定此参数2.定时关闭的弹出窗口<script language="Javascript">function closewindow(){window.close(); 阅读全文

posted @ 2008-09-19 15:17 孤独的猫阅读(388) 评论(0) 推荐(0)

弹出自定义窗口

摘要： 1.window对象的open方法　window的open方法用于创建一个新窗口，语法如下window.open(URL,windowname[,windowFeatures][,replaceFlag])URL: 弹出窗口的URL地址windowname:弹出窗口的名称，可为空windowFeature:字符串值，是由逗号分隔的属性赋值表达式，下表为window.open方法的属性属性类型说明height　整型窗口高度width整型窗口宽度top整型窗口距离屏幕上方的像素值left整型窗口距离屏幕左侧的像素值toolbarBoolean是否显示工具栏，1或yes为显示，0或no为不显示men 阅读全文

posted @ 2008-09-19 15:00 孤独的猫阅读(282) 评论(0) 推荐(0)

利用Stream下载文件

摘要： Function dl(f,n)On error resume NextSet s=CreateObject("Adodb.Stream")s.Mode=3s.Type=1s.Opens.Loadformfile(f)if Err..Number>0 thenResponse.status="404"ElseResponse.ContentType="application/octet-stream"Response.AddHeader "Content-Disposition:","attachm 阅读全文

posted @ 2008-09-19 14:54 孤独的猫阅读(541) 评论(0) 推荐(0)

验证整数

摘要： Function IsInt(str)If IsNumeric(str) or (len(str)>5) thenIsInt=FalseExit FunctionElseIf (len(str)<5) thenIsInt=TrueExit FunctionElseIf CInt(left(str,4))>3276 thenIsInt=FalseExit FunctionElseIf CInt(Left(str,4))=3276 and CInt(Right(str,1))>7 thenIsInt=FalseExit FunctionElseIsInt=TrueEnd I 阅读全文

posted @ 2008-09-19 14:32 孤独的猫阅读(139) 评论(0) 推荐(0)

在同一页面处理提交代码

摘要：可用Request.ServerVariables("Request_Method")="POST"判断是否提交，如下dice.asp页面<html><head><title>测试Request_Method</title></head><body><%Session("point")=6If Request.ServerVariables("Request_Method")="POST" then%><f 阅读全文

posted @ 2008-09-19 14:21 孤独的猫阅读(195) 评论(0) 推荐(0)

孤独的猫

公告