==========
计算页面的执行时间
===========
< %
dim startime,endtime
startime = timer ()
% >
最后就是在页面代码的最后面加入以下代码:
< %
endtime = timer ()
response.write " 页面执行时间: " & FormatNumber ((endtime - startime) * 1000 , 3 ) & " 毫秒 "
response.end
% >
======== 取完整url的函数 =========
< %
Dim temp,ServerUrl
Temp = Split (Request.servervariables( " SERVER_PROTOCOL " ), " / " )
ServerUrl = Temp( 0 ) & " :// " & Request.ServerVariables( " Server_name " ) & Request.ServerVariables
( " Script_name " )
if request.ServerVariables( " QUERY_STRING " ) <> "" then ServerUrl = ServerUrl & " ? "
ServerUrl = ServerUrl & request.ServerVariables( " QUERY_STRING " )
response.write ServerUrl & " <br> "
% >
============ 显示当前目录下所以的文件 ==========
< %@LANGUAGE = " VBSCRIPT " CODEPAGE = " 936 " % >
< % = server.MapPath( " " )% >
< %
' Set fso = CreateObject("Scripting.FileSystemObject")
' fso.CreateFolder ("e: d")
' fso.files ("e:")
dirtowalk = " web "
set fs = server.CreateObject( " Scripting.FileSystemObject " )
set f = fs.GetFolder(server.MapPath(dirtowalk))
set fc = f.files
for each whatever in fc
response.Write " <a href=../../' "
response.Write whatever.name
response.Write " '> "
response.Write whatever.name & " " & whatever.datecreated
response.Write " </a><br> "
next
% >
======= 计算中英文字符串的总长度 =========
< %
Function CheckStringLength(txt)
txt = trim (txt)
x = len (txt)
y = 0
for ii = 1 to x
if asc ( mid (txt,ii, 1 )) < 0 or asc ( mid (txt,ii, 1 )) > 255 then
' 如果是中文
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
End Function
response.Write(CheckStringLength( " fsdfs地在在dfsdf " ))
% >
< %
dim startime,endtime
startime = timer ()
% >
最后就是在页面代码的最后面加入以下代码:
< %
endtime = timer ()
response.write " 页面执行时间: " & FormatNumber ((endtime - startime) * 1000 , 3 ) & " 毫秒 "
response.end
% >
======== 取完整url的函数 =========
< %
Dim temp,ServerUrl
Temp = Split (Request.servervariables( " SERVER_PROTOCOL " ), " / " )
ServerUrl = Temp( 0 ) & " :// " & Request.ServerVariables( " Server_name " ) & Request.ServerVariables
( " Script_name " )
if request.ServerVariables( " QUERY_STRING " ) <> "" then ServerUrl = ServerUrl & " ? "
ServerUrl = ServerUrl & request.ServerVariables( " QUERY_STRING " )
response.write ServerUrl & " <br> "
% >
============ 显示当前目录下所以的文件 ==========
< %@LANGUAGE = " VBSCRIPT " CODEPAGE = " 936 " % >
< % = server.MapPath( " " )% >
< %
' Set fso = CreateObject("Scripting.FileSystemObject")
' fso.CreateFolder ("e: d")
' fso.files ("e:")
dirtowalk = " web "
set fs = server.CreateObject( " Scripting.FileSystemObject " )
set f = fs.GetFolder(server.MapPath(dirtowalk))
set fc = f.files
for each whatever in fc
response.Write " <a href=../../' "
response.Write whatever.name
response.Write " '> "
response.Write whatever.name & " " & whatever.datecreated
response.Write " </a><br> "
next
% >
======= 计算中英文字符串的总长度 =========
< %
Function CheckStringLength(txt)
txt = trim (txt)
x = len (txt)
y = 0
for ii = 1 to x
if asc ( mid (txt,ii, 1 )) < 0 or asc ( mid (txt,ii, 1 )) > 255 then
' 如果是中文
y = y + 2
else
y = y + 1
end if
next
CheckStringLength = y
End Function
response.Write(CheckStringLength( " fsdfs地在在dfsdf " ))
% >