**********計算頁面的執行時間**********=
<%
dim startime,endtime
startime=timer()
%>
<%
dim startime,endtime
startime=timer()
%>
最後就是在頁面**的最後面加入以下**：
*****===取完整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 &"
"%>
<%
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 &"
"%>
**********==顯示當前目錄下所以的檔案**********
"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"))
%><%
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"))
%>
收集的一些小玩意
define setbit x,y x 1 y 0x01 獲取的某一位的值 define int to float int number float int number 整型按位轉化為浮點 define float to int float number int float number 浮點按位...
iOS 收集的一些小技巧
1，如何將試圖置於最頂層 第一種方法 myview.layer.zposition 5 第二種方法 self.view insertsubview myview atindex 999 上面的999的意思是盡可能取大一點的值 第三種方法 self.view bringsubviewtofront m...
持續收集 Python一些小技巧
0x00 前言 收集一些python的小技巧，主要是效能和一些特性 0x01 內容 slots class image object slots id caption url 一般沒有這個 def init self,id,caption,url self.id id self.caption ca...