ASP中的一些小问题收集-ASP教程,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:\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"))

%>