==========計算頁面的執行時間===========
<%
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:fd")
'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"))
%>
