asp部分实用功能代码

========== 计算页面的执行时间 ===========


< %
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 " ))
% >