通过数组给您的文件排序
[ 2007-10-06 13:13:24 | 作者: admin ]
当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
' 设定一个演示目录，：）
CONST DIRECTORY = "/"
' 用常数定义排序方式
CONST FILE_NAME = 0 '按照名字排序……依次类推
CONST FILE_EXT = 1
...
阅读全文…
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
' 设定一个演示目录，：）
CONST DIRECTORY = "/"
' 用常数定义排序方式
CONST FILE_NAME = 0 '按照名字排序……依次类推
CONST FILE_EXT = 1
...
阅读全文…
asp下的数组排序，一维和二维例子
[ 2007-10-06 13:09:10 | 作者: admin ]
一维...
阅读全文…
引用
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
KeepChecking = True
Do Until KeepChecking = False
KeepChecking = False
For I = 0 To UBound(ary)
IF I = UBound(ary) Then Exit For
IF ary(I) > ary(I + 1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
KeepChecking = True
Do Until KeepChecking = False
KeepChecking = False
For I = 0 To UBound(ary)
IF I = UBound(ary) Then Exit For
IF ary(I) > ary(I + 1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
阅读全文…
asp中遍历一些对象（request,session,Application）
[ 2007-09-15 08:49:12 | 作者: admin ]
一 遍历Request
方式1:
<%
For Each r In Request.QueryString
Response.Write "Request("""&r&""") = " & Request(r)
Response.Write "<p>"
Next
%>
方式2:
<%
For i = 1 To Request.QueryString.Count
Response.Write "Request("""&Request.QueryString.Key(i)&""") = " & Request.QueryString(Request.QueryString.Key(i))
Response.Write "<p>"
Next
%>
将QueryString改为Form，即可遍历Post变量。
二 遍历Session
...
阅读全文…
方式1:
<%
For Each r In Request.QueryString
Response.Write "Request("""&r&""") = " & Request(r)
Response.Write "<p>"
Next
%>
方式2:
<%
For i = 1 To Request.QueryString.Count
Response.Write "Request("""&Request.QueryString.Key(i)&""") = " & Request.QueryString(Request.QueryString.Key(i))
Response.Write "<p>"
Next
%>
将QueryString改为Form，即可遍历Post变量。
二 遍历Session
...
阅读全文…
cint, clng
[ 2007-08-23 12:20:26 | 作者: admin ]
cint范围 -32,768 到 32,767。
clng范围 -2,147,483,648 到 2,147,483,647。
clng范围 -2,147,483,648 到 2,147,483,647。
函数提取客户端浏览器信息（asp版本）
[ 2007-08-10 19:36:54 | 作者: admin ]
p.s. 代码模糊处理过的，仔细看会头晕
现网上的那些代码都比较乱，并且浏览器一升级，就需要及时跟着修改才可。
作者写的模糊匹配的方式来获得浏览器名称的方法，不仅效率高，而且精确到具体的版本。
http://hi.baidu.com/sincs/blog/item/d01f855879ead9de9d820451.html
阅读全文…
现网上的那些代码都比较乱，并且浏览器一升级，就需要及时跟着修改才可。
作者写的模糊匹配的方式来获得浏览器名称的方法，不仅效率高，而且精确到具体的版本。
http://hi.baidu.com/sincs/blog/item/d01f855879ead9de9d820451.html
function lIII()
dim l0,l1,l2,l3,I1,I2,I3,i
l0=request.ServerVariables("http_user_agent")
l0=replace(l0,"(",")")
I1=split(l0,")")
I3=ubound(I1)
if I3>=2 then
l1=trim(I1(0))'左侧
l2=mid(l0,len(I1(0))+2,len(l0)-len(I1(0))-len(I1(I3))-2)
...dim l0,l1,l2,l3,I1,I2,I3,i
l0=request.ServerVariables("http_user_agent")
l0=replace(l0,"(",")")
I1=split(l0,")")
I3=ubound(I1)
if I3>=2 then
l1=trim(I1(0))'左侧
l2=mid(l0,len(I1(0))+2,len(l0)-len(I1(0))-len(I1(I3))-2)
阅读全文…
Asp自定义函数集合
[ 2007-08-09 21:03:22 | 作者: admin ]
http://callof.net/Site/List.Asp?id=27
<%
Function Get_ScriptNameUrl()
If request.servervariables("SERVER_PORT")="80" Then
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name"))
Else
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("script_name"))...
阅读全文…
<%
Function Get_ScriptNameUrl()
If request.servervariables("SERVER_PORT")="80" Then
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name"))
Else
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&lcase(request.servervariables("script_name"))
阅读全文…
Response.Flush的使用心得
[ 2007-05-30 07:19:21 | 作者: admin ]
http://www.cnblogs.com/bluesky521/archive/2006/09/21/ASP20060921XCT.html
（１）Flush的内容至少要有256字节
很多时候我们写的asp程序会因为做很多操作，所以会花上一分钟甚至几分钟时间。为了使软件使用者能够耐心的等待程序的执行，我们经常会希望有一个进度条来表示程序执行的状态。或者最起码要显示一个类似： “数据载入中”，“正在保存数据” 等的说明性文字。此时我们就会用到Response.flush()。他会将缓冲区中编译完成的数据先发送到客户端。
但是有很多时候，我们发现即使我们使用了Response.Flush()，但是并没有将前面的信息发到客户端来显示。呈献给我们的依然是白屏。经过反复的测试，我得出一个结论（仅代表个人观点，可随意引用，但后果自负）。就是flush的内容至少要有256字节。也就是只有...
阅读全文…
（１）Flush的内容至少要有256字节
很多时候我们写的asp程序会因为做很多操作，所以会花上一分钟甚至几分钟时间。为了使软件使用者能够耐心的等待程序的执行，我们经常会希望有一个进度条来表示程序执行的状态。或者最起码要显示一个类似： “数据载入中”，“正在保存数据” 等的说明性文字。此时我们就会用到Response.flush()。他会将缓冲区中编译完成的数据先发送到客户端。
但是有很多时候，我们发现即使我们使用了Response.Flush()，但是并没有将前面的信息发到客户端来显示。呈献给我们的依然是白屏。经过反复的测试，我得出一个结论（仅代表个人观点，可随意引用，但后果自负）。就是flush的内容至少要有256字节。也就是只有...
阅读全文…
ASP检索出现的内存溢出
[ 2007-05-16 01:13:12 | 作者: admin ]
将日文字符做编码处理
编码...
阅读全文…
编码
引用
Function JpEncode(byVal iStr)
if isnull(iStr) or isEmpty(iStr) then
JpEncode=""
Exit function
end if
dim F,i,E
' F=array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ",_
' "ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ",_
' "ヂ","ダ","ゾ","ゼ")
E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn
if isnull(iStr) or isEmpty(iStr) then
JpEncode=""
Exit function
end if
dim F,i,E
' F=array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ",_
' "ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ",_
' "ヂ","ダ","ゾ","ゼ")
E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;","Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;","Jn14;","Jn15;","Jn16;","Jn
阅读全文…
