lsf5921-优快云博客

原创极速生成不重复的随机数

'istart 最小数字'iend 最大数字'isnum 获取个数Function rndstr(istart,iend,isum) Dim NumList(),i,n,c,GetList() c = iend-istart ReDim NumList(c) ReDim GetList(isum - 1) For i = 0 To c NumList(i) = istart

2012-10-19 12:45:43 597

转载 js 获取当前url

统一资源定位符 (Uniform Resource Locator, URL) 完整的URL由这几个部分构成：scheme://host:port/path?query#fragmentscheme:通信协议常用的http,ftp,maito等host:主机服务器(计算机)域名系统 (DNS) 主机名或 IP 地址。port:端口号整数，可选

2012-03-24 16:03:54 791

原创 asp几个转码函数

'UTF转GB function UTF2GB(UTFStr) for Dig=1 to len(UTFStr) if mid(UTFStr,Dig,1)="%" then if len(UTFStr) >= Dig+8 then GBStr=GBS

2011-08-01 09:40:18 5290

原创 xmlHttp.status的值（HTTP状态表）

0**：未被始化 1**：请求收到，继续处理 2**：操作成功收到，分析、接受 3**：完成此请求必须进一步处理 4**：请求包含一个错误语法或不能完成 5**：服务器执行一个完全有效请求失败 100——客户必须继续发出请求 101——客户要求服务器根据请求转换HTTP协议版本 200——交易成功 201——提示知道新文件的URL 202——接受和处理、但处理未完成 203——返回信息不确

2011-06-29 17:49:00 641

原创 vbscript 微软教程网址

http://www.microsoft.com/china/vbscript/vbstutor/vbstutor.htm

2011-04-26 17:06:00 735

原创 sqlserver 2000 触发器存储过程调用外部dll，可以使vb，vc，delphi生成

使用非SQL格式dll，也就是平时所写的，如果打死也不明白就用他就可以。 dll需要事先先注册， 注册是：regsvr32 名字.dll 卸载是：regsvr32 /u 名字.dll CREATE TRIGGER [名称] ON [表名] AFTER INSERT, UPDATE, DELETE ASDECLARE @hr intDECLARE @obj intDECLARE @out varchar(200)exec @hr

2011-04-19 18:17:00 4248

原创 asp,vbscript二叉树排序源码

参考某人的js二叉树写的asp的二叉树，有问题欢迎提出Class TreeSort Private LeftNode Private MiddleNode Private RightNode Private Sub Class_Initialize() Set LeftNode = Nothing Set RightNode = Nothing MiddleNode = Null End Sub Private Sub Class_Terminate()

2011-03-18 18:09:00 1000

原创 win7，iis7，让500错误显示出来，并且在其他电脑上也显示出来

配置完IIS7后，在自己的电脑上可以显示出详细的错误信息，但是在其他电脑上只是显示一个500错误页面，没有像本地测试那样，显示那么详细。在测试过启用父路径，把错误发送到浏览器都设为true，设置500错误至500-100.asp后，却仍然没有达到效果的情况下。操作方法是1、双击“错误页”，进入后会看到错误处理列表。（第二部设置500错误至500-100.asp，如果已经设置过了直接掠过，看第3步）2、双击500错误，进入后，在“响应状态 ” 选择 “将静态文件中的内容插入错误响应中” 勾选“尝试使用客户端

2011-03-18 16:27:00 1722

原创 js javascript 二叉树排序方法

不是本人原创，来自网络，仅仅整理了下使用方法：第一步：加入以下js代码第二步：定义数组例如 var arr=[9,8,7,6,5,4,3,2,1,0];第三步：执行 arr.treeSort();此时数组已经排序完成，如果数字有排序错误。那是因为数组内保存的值，js当做字符处理了，需要进行转换for (var i=0;i{arr[i]=Numberarr[i];}然后在执行arr.treeSort();function TreeSort(){ this.left=null; this.ri

2011-03-17 17:59:00 4560

原创 vbscript访问函数外类变量和全局变量的方法

写asp时，有的时候可能会遇到函数内定义的局部变量和全局变量同名或者类内定义的变量和全局变量同名，我们如何要访问这些变量呢。在函数或来内，要访问全局变量的值，我们需要使用Parent.变量或者Self.变量来访问类内的函数要访问类内定义的全局变量，需要使用Me.变量来访问切忌，我们不可以用Me.变量来访问函数内定义的局部变量。访问全局变量Dim VariableSub MySub() Dim Variable Variable = "MySub的变量值" Parent

2011-03-10 13:56:00 5179

原创写给新人的数据库分页查询

select top 分页大小字段 from 表名 where 分页字段> (select max(分页字段) from （select top （当前页数-1） * 分页大小分页字段 from 表名))

2011-03-05 12:19:00 5415

原创关于RecordSet的一些使用方法

Dim RsSet Rs=Server.Createobject("ADODB.RecordSet")Rs.Fields.Append "字段名",字段类型,字段长度，字段属性'字段长度，字段属性可选，如果不设置则默认从“字段类型”继承Rs.OpenRs.addNewRs("字段名")="值"Rs.UpdateRs.Fielter="字段名='字段值'"Rs.Find "条件表达式",跳过多少行,向前搜索还是向后搜索，开始行'条件表达式和Rs.Fielte

2011-01-06 14:39:00 4902

原创关于asp程序优化，变量赋值

今天一直考虑一个问题 '1:str=1024*1024*200str=1024*1024*200'运行速度相当慢，而且查看内存表，内存消耗很大'但是我把代码更改下'2:str=1024*1024*200str=Emptystr=1024*1024*200'与第一个（1）个相比，第二个（2）的内存消耗还是运行速度，明显比第一个（1）快N倍但是后来问题来了我发现'1:For i=0 To 100000 a="a"Next与'2:For i=0

2010-12-01 17:25:00 2636

原创动态生成文件，然后下载，备忘

head里面加的，按照自己的应用修改，（php）码，网上找的 header("Content-Type: application/vnd.ms-excel; charset=UTF-8"); header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Content-Type: ap

2010-09-19 17:18:00 761

原创 asp排序算法源码--冒泡排序；快速排序

以下源码均自写，有什么不对的地方欢迎指正冒泡排序Sub BubbleSort(ByRef arrName) If Not(IsArray(arrName)) Then Exit Sub Dim intA,intMax,intKey,blnFlag intMax=UBound(arrName)-1 Do While True blnFlag=False For intA=0 To intMax If arrName(intA)>arrName(intA+1) Then

2010-06-23 16:08:00 1936 3

原创关于rs.open和conn.execute的性能对比

===============================================Dim t1,t2,t3,i,Rs,a1,a2,a3t1=timerOpenConnFor i=1 To 1000Set Rs=Conn.Execute("SELECT COUNT(*) FROM CE_Admin")Rs.Close:Set Rs=NothingNextt2=timert3=cstr(i

2010-05-25 11:57:00 1597

原创刚刚找出来的相对准确的查找HTML的正则表达式

Dim objReg,objMatches,objMatchSet objReg=new RegExpobjReg.Global=TrueobjReg.IgnoreCase=TrueobjReg.Pattern="])*>"Set objMatches=objReg.Execute(字符串)For Each objMatch In objMatches找到的HTML

2010-05-19 10:58:00 746

原创 vb语句，不算最全，有一些没加进去，对于学习的人来说够用了。

语句第一类：判断语句。 If...Then...Else...End If Select Case... Case... ... Case Else ... End Select第二类：循环语句。 Do [While | Until]... ... [Exit Do] Loop While... ... Wend

2010-04-28 17:19:00 1070

原创关于在二级目录下，Cookie不能删除或者使用的解决方法的

登陆Response.Cookies("cookname").path="/XXX/" 最后面要加“/”，不加和加是两个cookiesResponse.Cookies("cookname")("name")="XXX" 注销Response.Cookies("cookname").path="/XXX/" 退出时间也要写准path，只有这样，才能保证cookies可以

2010-04-20 13:43:00 958

原创技术备忘录

asp服务器端的字符串%/>会自动替换成字符串%>，可以不用使用"%"&">"例子 Response.Write "%/>" 等于 Response.Write "%"&">"

2009-12-28 15:57:00 594

原创关于asp函数和过程的变量是值还是指针

指针在C中经常提到，但是任何一种语言中都隐藏着指针。asp也是如此，在我们传递参数给function或者sub时，我们如果传递的是一个变量，那么asp会把这个变量地址传过去，所以如果你在函数和过程里面更改这个参数，那么原变量也会改变。函数例子Dim i1,i2i1=1=======================Function toadd(i)或者toadd(By

2009-11-24 20:12:00 665

原创关于Null、Empty、vbNullString、Nothing差别

这篇博客根据网友那里获取来的，不是本人亲写亲测。Null：Null是一个象Integer或者String一样的变量类型，它表示一个没有合法数据的变量。这有别于zero、Nothing、Empty或者vbNullString。许多数值与Null结合在一起，都将产生Null结果。比如：　　表达式结果 Null - Null Null Null + 7 7

2009-11-02 00:13:00 1373

原创 ASP完美优化（不断更新）

经过本人将ASP运行速度内存占用大小放大到200M的测试关于定义变量：1、定义变量，尽量不要定义全局变量，私有变量在运行速度以及空间占用上面比公共变量速度快，以及赋值上面速度问题（下面介绍）2、变量赋值：给变量赋值尽量一次赋完，比如：Dim strstr="1"str=str&"2"str=str&"3"str=str&"4"str=str

2009-11-01 23:07:00 3171

原创 40种网站设计常用技巧

1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键 no 可用于Table 2. 取消选取、防止复制 3. onpaste="return false" 不准粘贴 4. oncopy="return false;" oncut="

2008-09-01 18:26:00 803

原创 php常用函数

Abs: 取得绝对值。Acos: 取得反余弦值。ada_afetch: 取得数据库的返回列。 ada_autocommit: 开关自动改动功能。ada_close: 关闭 Adabas D 链接。ada_commit: 改动 Adabas D 数据库。ada_connect: 链接至 Adabas D 数据库。ada_exec: 执行 SQL 指令。ada_f

2008-09-01 18:03:00 512

原创 asp创建xml

首先创建个XML对象set oXml = Server.CreateObject("Microsoft.XMLDOM")因为MS的类比较多，所以 Microsoft.XMLDOM 可以用其他类来代替比如：msxml.DomDocumentmsxml.FreeThreadedDOMDocumentmsxml2.DomDocumentmsxml2.FreeTh

2008-09-01 17:56:00 694

原创 SQL SERVER性能优化综述

一、分析阶段一般来说，在系统分析阶段往往有太多需要关注的地方，系统各种功能性、可用性、可靠性、安全性需求往往吸引了我们大部分的注意力，但是，我们必须注意，性能是很重要的非功能性需求，必须根据系统的特点确定其实时性需求、响应时间的需求、硬件的配置等。最好能有各种需求的量化的指标。另一方面，在分析阶段应该根据各种需求区分出系统的类型，大的方面，区分是OLTP（联机事务

2008-09-01 17:38:00 378

原创 linux 学习本

linux目录架构 / 根目录 /bin 常用的命令 binary file 的目錄 /boot 存放系统启动时必须读取的档案，包括核心 (kernel) 在内 /boot/grub/menu.lst GRUB设置 /boot/vmlinuz 内核 /bo

2008-09-01 17:33:00 514

原创 insertAdjacentHTML和insertAdjacentText

添加html内容(insertAdjacentHTML和insertAdjacentText) 添加html内容(insertAdjacentHTML和insertAdjacentText) dhtml提供了两个方法来进行添加，insertAdjacentHTML和insertAdjacentText insertAdjacentHTML方法：在指定的地方插入html标签语句。原型：

2008-08-29 10:13:00 1132

原创 javascript一些常用介绍

事件源对象 event.srcElement.tagName event.srcElement.type 捕获释放 event.srcElement.setCapture(); event.srcElement.releaseCapture(); 事件按键 event.keyCode event.shiftKey event.altKey event.ctrlKey 事件返回值 event.

2008-08-29 10:12:00 738

原创 event 使用

Event/window.Event属性和方法2008年05月26日星期一 13:22Event属性和方法：type：事件的类型，如onlick中的click； srcElement/target：事件源，就是发生事件的元素； button：声明被按下的鼠标键，整数，1代表左键，2代表右键，4代表中键，如果按下多个键，酒把这些值加起来，所以3就代表左右键同时按下；（firefox中 0代表

2008-08-29 10:12:00 565

原创 javascript函数小集锦

javascript函数一共可分为五类：　　·常规函数　　·数组函数　　·日期函数　　·数学函数　　·字符串函数　　1.常规函数　　javascript常规函数包括以下9个函数：　　(1)alert函数：显示一个警告对话框，包括一个OK按钮。　　(2)confirm函数：显示一个确认对话框，包括OK、Cancel按钮。　　(3)escape函数：将字符转换成Unicode码。　　(4)eval函

2008-08-29 10:10:00 450

原创 fso 使用说明

FSO方法使用说明Set fso = Server.CreateObject("Scripting.FileSystemObject")*****************FSO文件****************----------显示文件列表------------Set f = fso.GetFolder(folderspec)Set fc = f.FilesFor Each f1 i

2008-08-29 10:09:00 823

原创一个比较通用的ajax，以作准确修改

function AJAXRequest() { var xmlPool=[],AJAX=this,ac=arguments.length,av=arguments; var xmlVersion=["MSXML2.XMLHTTP","Microsoft.XMLHTTP"]; var emptyFun=function(){}; var av=ac>0?typeof(av[0])=="objec

2008-08-29 10:05:00 501

原创 ajax实现无限级联动针对select做得，其他可以仿照修改

//obj:主select菜单对象;//aspaddress:asp处理文件地址以及要传递的参数;//toobj:从select菜单对象;//firstxml:返回的第一个XML节点名;//secondxml:返回的第二个XML节点名;//toobjoptionlength:从select菜单对象初始option个数;//注意：在传递各个对象值得时候，尽量使用$(id)，比

2008-08-29 10:02:00 1252

原创正则表达是常用表达式

匹配中文字符的正则表达式： [u4e00-u9fa5] 　　评注：匹配中文还真是个头疼的事，有了这个表达式就好办了　　匹配双字节字符(包括汉字在内)：[^x00-xff] 　　评注：可以用来计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）　　匹配空白行的正则表达式：ns*r 　　评注：可以用来删除空白行　　匹配HTML标记的正则表达式：]*>.*?| 　　评

2008-08-29 10:01:00 422

原创 ajax

/*AJAXRequest类部分*/function AJAXRequest() { var xmlPool=[],AJAX=this,ac=arguments.length,av=arguments; var xmlVersion=["MSXML2.XMLHTTP","Microsoft.XMLHTTP"]; var emptyFun=function(){}; var av=ac>0?type

2008-03-12 14:50:00 489

原创动态添加行

2008-03-12 14:48:00 2068 1

EditPlus的asp语法以及自动完成功能20100930修正补全版

自己写的一个EditPlus的asp VBScript自动完成代码。包含最常用的If、For、While、Do、Sub、Function、Class、Resonse等等，只要将文件添加到Editplus文件里，打开EditPlus，选择Tools（工具），选择Configure User Tools（用户工具)，选择Files，选择Settings & Syntax，选择Files下面的VbScript，在Auto completion里面选择vb.acp，最后点击Apply，点击确定即可

2010-09-30