ASP的三十二条精华代码(2)

来源：网络收集时间：2026-03-21

导读： /BODY/HTML 25.获得本页url的request.servervariables()集合 Response.Write TABLE border=1!-- Table Header --TRTDBVariables/B/TDTDBvalue/B/TD/TR for each ob in Request.ServerVariables Response.Write TRTD

</BODY></HTML>

25.获得本页url的request.servervariables("")集合

Response.Write "<TABLE border=1><TR><TD><B>Variables</B></TD><TD><B>value</B></TD></TR>"

for each ob in Request.ServerVariables

Response.Write "<TR><TD>"&ob&"</TD><TD>"&Request.ServerVariables(ob)&"</TD></TR>"

Response.Write "</TABLE>"

26.

本机ip<%=request.servervariables("remote_addr")%>

服务器名<%=Request.ServerVariables("SERVER_NAME")%>

服务器IP<%=Request.ServerVariables("LOCAL_ADDR")%>

服务器端口<%=Request.ServerVariables("SERVER_PORT")%>

服务器时间<%=now%>

IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>

脚本超时时间<%=Server.scriptTimeout%>

本文件路径<%=server.mappath(Request.ServerVariables("script_NAME"))%>

服务器CPU数量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>

服务器解译引擎<%=scriptEngine & "/"& scriptEngineMajorVersion &"."&scriptEngineMinorVersion&"."& scriptEngineBuildVersion %>

服务器操作系统<%=Request.ServerVariables("OS")%>

27.ENTER键可以让光标移到下一个输入框

28. 检测某个网站的链接速度：

把如下代码加入<body>区域中:

tim=1

setInterval("tim++",100)

b=1

var autourl=new Array()

autourl[1]=""

autourl[2]=""

autourl[3]=""

autourl[4]=""

autourl[5]=

function butt(){

document.write("<form name=autof>")

for(var i=1;i<autourl.length;i++)

document.write("<input type=text name=txt"+i+" size=10 value=测试中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO onclick=window.open(this.form.url"+i+".value)><br/>")

document.write("<input type=submit value=刷新></form>")

}

butt()

function auto(url){

document.forms[0]["url"+b].value=url

if(tim>200)

{document.forms[0]["txt"+b].value="链接超时"}

else

{document.forms[0]["txt"+b].value="时间"+tim/10+"秒"}

b++

}

function run(){for(var i=1;i<autourl.length;i++)document.write("<img src=http://"+autourl[I +"/"+Math.random()+" width=1 height=1

onerror=auto(''http://";;;;;;+autourl[I +"'')>")}

run()</script>

29. 各种样式的光标

auto ：标准光标

default ：标准箭头 hand ：手形光标 wait ：等待光标 text ：I形光标 vertical-text ：水平I形光标 no-drop ：不可拖动光标 not-allowed ：无效光标 help ：?帮助光标 all-scroll ：三角方向标 move ：移动标 crosshair ：十字标 e-resize n-resize nw-resize w-resize s-resize se-resize sw-resize 30.本地无缓存，每次自动刷新 response.expires=0 response.addHeader "pragma" , "no-cache" response.addHeader "cache-control" , "private" 31.修改contentType并下载gif等格式 <% function dl(f,n) on error resume next set s=createObject("Adodb.Stream") S.Mode=3 S.Type=1 S.Open s.LoadFromFile(server.mappath(f)) if err.number>0 then response.write err.number & ":" & err.description else response.contentType="application/x-gzip" response.addheader "Content-Disposition:","attachment; filename=" & n response.binarywrite(s.Read(s.size)) end if end function call dl("012922501.gif","t1.gif") %> 32. 检查一段字符串是否全由数字组成 <script language="****"><!-- function checkNum(str){return !/\D/.test(str)} alert(checkNum("1232142141")) alert(checkNum("123214214a1"))

// --></script>

…… 此处隐藏：706字，全部文档内容请下载后查看。喜欢就下载吧 ……

ASP的三十二条精华代码(2).doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.jiaowen.net/wenku/97737.html（转载请注明文章来源）

上一篇：汽车修理工培训计划
下一篇：万能职业生涯规划书