asp中的一些小问题收集--

《asp中的一些小问题收集--》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、ASP中的一些小问题收集>>==========计算页面的执行时间===========<%dimstartime,endtimestartime=timer()%>最后就是在页面代码的最后面加入以下代码：<%endtime=timer()response.p;FormatNumber((endtime-startime)*1000,3)"毫秒"response.end%>========取完整url的函数=========<%Dimtemp,ServerUrlTemp=Split(Request.servervariables("SERVER_PROTOCOL"

2、),"/")ServerUrl=Temp(0)"://"Request.ServerVariables("Server_name")Request.ServerVariables("Script_name")ifrequest.ServerVariables("QUERY_STRING")<>""thenServerUrl=ServerUrl"?"ServerUrl=ServerUrlrequest.ServerVariables("QUERY_STRING")response.p;"<br>"%>============显示当前目录下所以的文件=========

3、=<%LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%=server.MapPath("")%><%’Setfso=CreateObject("Scripting.FileSystemObject")’fso.CreateFolder("e:fd")’fso.files("e:")dirtoObject")setf=fs.GetFolder(server.MapPath(dirtoeresponse.p;""(txt)x=len(txt)y=0forii=1toxifasc(mid(txt,ii,1))<0orasc(mid(

4、txt,ii,1))>255then’如果是中文y=y+2elsey=y+1endifnextCheckStringLength=yEndFunctionresponse.Write(CheckStringLength("fsdfs地在在dfsdf"))%>>>>>这篇文章来自..，。