<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[lsf5921的专栏]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/lsf5921</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; lsf5921]]></copyright><item><title><![CDATA[极速生成不重复的随机数]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/8089282</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/8089282</guid><author>lsf5921</author><pubDate>Fri, 19 Oct 2012 12:45:43 +0800</pubDate><description><![CDATA['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]]></description><category></category></item><item><title><![CDATA[js 获取当前url]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/7390339</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/7390339</guid><author>lsf5921</author><pubDate>Sat, 24 Mar 2012 16:03:54 +0800</pubDate><description><![CDATA[统一资源定位符 (Uniform Resource Locator, URL) 完整的URL由这几个部分构成：

scheme://host:port/path?query#fragment

scheme:通信协议

常用的http,ftp,maito等

host:主机

服务器(计算机)域名系统 (DNS) 主机名或 IP 地址。

port:端口号

整数，可选]]></description><category></category></item><item><title><![CDATA[asp几个转码函数]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6649666</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6649666</guid><author>lsf5921</author><pubDate>Mon, 01 Aug 2011 09:40:18 +0800</pubDate><description><![CDATA['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]]></description><category></category></item><item><title><![CDATA[xmlHttp.status的值（HTTP状态表）]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6575574</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6575574</guid><author>lsf5921</author><pubDate>Wed, 29 Jun 2011 17:49:00 +0800</pubDate><description><![CDATA[0**：未被始化 1**：请求收到，继续处理 2**：操作成功收到，分析、接受 3**：完成此请求必须进一步处理 4**：请求包含一个错误语法或不能完成 5**：服务器执行一个完全有效请求失败 100——客户必须继续发出请求 101——客户要求服务器根据请求转换HTTP协议版本 200——交易成功 201——提示知道新文件的URL 202——接受和处理、但处理未完成 203——返回信息不确]]></description><category></category></item><item><title><![CDATA[vbscript 微软教程网址]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6364788</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6364788</guid><author>lsf5921</author><pubDate>Tue, 26 Apr 2011 17:06:00 +0800</pubDate><description><![CDATA[<br />http://www.microsoft.com/china/vbscript/vbstutor/vbstutor.htm]]></description><category></category></item><item><title><![CDATA[sqlserver 2000 触发器 存储过程调用外部dll，可以使vb，vc，delphi生成]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6334204</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6334204</guid><author>lsf5921</author><pubDate>Tue, 19 Apr 2011 18:17:00 +0800</pubDate><description><![CDATA[<br /> 使用非SQL格式dll，也就是平时所写的，如果打死也不明白就用他就可以。<br />dll需要事先先注册，<br />注册是：regsvr32 名字.dll<br />卸载是：regsvr32 /u 名字.dll<br />CREATE TRIGGER  [名称] ON [表名] 
AFTER INSERT, UPDATE, DELETE 
AS
DECLARE @hr int
DECLARE @obj int
DECLARE @out varchar(200)
exec @hr ]]></description><category></category></item><item><title><![CDATA[asp,vbscript二叉树排序源码]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6259737</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6259737</guid><author>lsf5921</author><pubDate>Fri, 18 Mar 2011 18:09:00 +0800</pubDate><description><![CDATA[参考某人的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()
		]]></description><category></category></item><item><title><![CDATA[win7，iis7，让500错误显示出来，并且在其他电脑上也显示出来]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6259400</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6259400</guid><author>lsf5921</author><pubDate>Fri, 18 Mar 2011 16:27:00 +0800</pubDate><description><![CDATA[配置完IIS7后，在自己的电脑上可以显示出详细的错误信息，但是在其他电脑上只是显示一个500错误页面，没有像本地测试那样，显示那么详细。在测试过启用父路径，把错误发送到浏览器都设为true，设置500错误至500-100.asp后，却仍然没有达到效果的情况下 。操作方法是1、双击“错误页”，进入后会看到错误处理列表。（第二部设置500错误至500-100.asp，如果已经设置过了直接掠过，看第3步）2、双击500错误，进入后，在“响应状态 ” 选择 “将静态文件中的内容插入错误响应中” 勾选“尝试使用客户端]]></description><category></category></item><item><title><![CDATA[js javascript 二叉树排序方法]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6257015</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6257015</guid><author>lsf5921</author><pubDate>Thu, 17 Mar 2011 17:59:00 +0800</pubDate><description><![CDATA[不是本人原创，来自网络，仅仅整理了下使用方法：第一步：加入以下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]]></description><category></category></item><item><title><![CDATA[vbscript访问函数外类变量和全局变量的方法]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6237210</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6237210</guid><author>lsf5921</author><pubDate>Thu, 10 Mar 2011 13:56:00 +0800</pubDate><description><![CDATA[写asp时，有的时候可能会遇到函数内定义的局部变量和全局变量同名或者类内定义的变量和全局变量同名，我们如何要访问这些变量呢。在函数或来内，要访问全局变量的值，我们需要使用Parent.变量 或者Self.变量来访问类内的函数要访问类内定义的全局变量，需要使用Me.变量来访问切忌，我们不可以用Me.变量来访问函数内定义的局部变量。访问全局变量
Dim Variable
Sub MySub()
    Dim Variable
    Variable = "MySub的变量值"
    Parent]]></description><category></category></item><item><title><![CDATA[写给新人的数据库分页查询]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6225253</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6225253</guid><author>lsf5921</author><pubDate>Sat, 05 Mar 2011 12:19:00 +0800</pubDate><description><![CDATA[<br />select top 分页大小 字段 from 表名 <br />where 分页字段><br />(select max(分页字段) from （select top （当前页数-1） * 分页大小 分页字段 from 表名))]]></description><category></category></item><item><title><![CDATA[关于RecordSet的一些使用方法]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6120278</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6120278</guid><author>lsf5921</author><pubDate>Thu, 06 Jan 2011 14:39:00 +0800</pubDate><description><![CDATA[<br />Dim Rs
Set Rs=Server.Createobject("ADODB.RecordSet")
Rs.Fields.Append "字段名",字段类型,字段长度，字段属性
'字段长度，字段属性可选，如果不设置则默认从“字段类型”继承
Rs.Open
Rs.addNew
Rs("字段名")="值"
Rs.Update
Rs.Fielter="字段名='字段值'"
Rs.Find "条件表达式",跳过多少行,向前搜索还是向后搜索，开始行
'条件表达式和Rs.Fielte]]></description><category></category></item><item><title><![CDATA[关于asp程序优化，变量赋值]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/6048357</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/6048357</guid><author>lsf5921</author><pubDate>Wed, 01 Dec 2010 17:25:00 +0800</pubDate><description><![CDATA[今天一直考虑一个问题 '1:
str=1024*1024*200
str=1024*1024*200
'运行速度相当慢，而且查看内存表，内存消耗很大

'但是我把代码更改下
'2:
str=1024*1024*200
str=Empty
str=1024*1024*200
'与第一个（1）个相比，第二个（2）的内存消耗还是运行速度，明显比第一个（1）快N倍但是后来问题来了我发现'1:
For i=0 To 100000
    a="a"
Next
与
'2:
For i=0]]></description><category></category></item><item><title><![CDATA[动态生成文件，然后下载，备忘]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5895089</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5895089</guid><author>lsf5921</author><pubDate>Sun, 19 Sep 2010 17:18:00 +0800</pubDate><description><![CDATA[<br />head里面加的，按照自己的应用修改，（php）码，网上找的<br />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]]></description><category></category></item><item><title><![CDATA[asp排序算法源码--冒泡排序；快速排序]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5689523</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5689523</guid><author>lsf5921</author><pubDate>Wed, 23 Jun 2010 16:08:00 +0800</pubDate><description><![CDATA[以下源码均自写，有什么不对的地方欢迎指正冒泡排序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
	]]></description><category></category></item><item><title><![CDATA[关于rs.open和conn.execute的性能对比]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5622367</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5622367</guid><author>lsf5921</author><pubDate>Tue, 25 May 2010 11:57:00 +0800</pubDate><description><![CDATA[===============================================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]]></description><category></category></item><item><title><![CDATA[刚刚找出来的相对准确的查找HTML的正则表达式]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5606849</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5606849</guid><author>lsf5921</author><pubDate>Wed, 19 May 2010 10:58:00 +0800</pubDate><description><![CDATA[Dim objReg,objMatches,objMatchSet objReg=new RegExpobjReg.Global=TrueobjReg.IgnoreCase=TrueobjReg.Pattern="])*>"Set objMatches=objReg.Execute(字符串)For Each objMatch In objMatches找到的HTML]]></description><category></category></item><item><title><![CDATA[vb语句，不算最全，有一些没加进去，对于学习的人来说够用了。]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5539751</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5539751</guid><author>lsf5921</author><pubDate>Wed, 28 Apr 2010 17:19:00 +0800</pubDate><description><![CDATA[语句第一类：判断语句。	If...Then...Else...End If	Select Case...	Case...		...	Case Else		...	End Select第二类：循环语句。	Do [While | Until]...	...	[Exit Do]	Loop	While...	...	Wend]]></description><category></category></item><item><title><![CDATA[关于在二级目录下，Cookie不能删除或者使用的解决方法的]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5506599</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5506599</guid><author>lsf5921</author><pubDate>Tue, 20 Apr 2010 13:43:00 +0800</pubDate><description><![CDATA[登陆Response.Cookies("cookname").path="/XXX/" 最后面要加“/”，不加和加是两个cookiesResponse.Cookies("cookname")("name")="XXX"   注销Response.Cookies("cookname").path="/XXX/"  退出时间也要写准path，只有这样，才能保证cookies可以]]></description><category></category></item><item><title><![CDATA[技术备忘录]]></title><link>https://blog.youkuaiyun.com/lsf5921/article/details/5091821</link><guid>https://blog.youkuaiyun.com/lsf5921/article/details/5091821</guid><author>lsf5921</author><pubDate>Mon, 28 Dec 2009 15:57:00 +0800</pubDate><description><![CDATA[asp服务器端的字符串%/>会自动替换成字符串%>，可以不用使用"%"&">"例子 Response.Write "%/>" 等于 Response.Write "%"&">"]]></description><category></category></item></channel></rss>