一些经典的常用ASP代码[经典简单] (2)
24. 選擇了哪一個(gè)Radio
<HTML><script language="VBscript">
function checkme()
???? for each ob in radio1
?????? if ob.checked then window.alert ob.value
???? next
end function
</script><BODY>
<INPUT name="radio1" type="radio" value="style" checked>Style
<INPUT name="radio1" type="radio" value="barcode">Barcode
<INPUT type="button" value="check" οnclick="checkme()">
</BODY></HTML>
25.獲得本頁url的request.servervariables("")集合
Response.Write "<TABLE border=1><!-- Table Header --><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>"
next
Response.Write "</TABLE>"
26.request.servervariables集合
本機(jī)ip<%=request.servervariables("remote_addr")%>
服務(wù)器名<%=Request.ServerVariables("SERVER_NAME")%>
服務(wù)器IP<%=Request.ServerVariables("LOCAL_ADDR")%>
服務(wù)器端口<%=Request.ServerVariables("SERVER_PORT")%>
服務(wù)器時(shí)間<%=now%>
IIS版本<%=Request.ServerVariables"SERVER_SOFTWARE")%>
腳本超時(shí)時(shí)間<%=Server.ScriptTimeout%>
本文件路徑<%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%>
服務(wù)器CPU數(shù)量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
服務(wù)器解譯引擎<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
服務(wù)器操作系統(tǒng)<%=Request.ServerVariables("OS")%>
27.ENTER鍵可以讓光標(biāo)移到下一個(gè)輸入框
<input οnkeydοwn="if(event.keyCode==13)event.keyCode=9">
28. 檢測(cè)某個(gè)網(wǎng)站的鏈接速度：
把如下代碼加入<body>區(qū)域中:
<script language=javascript>
tim=1
setInterval("tim++",100)
b=1
var autourl=new Array()
autourl[1]="www.njcatv.net"
autourl[2]="Javacool.3322.net"
autourl[3]="www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="www.cctv.com"
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=測(cè)試中……> =》<input type=text name=url"+i+" size=40> =》<input type=button value=GO οnclick=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="鏈接超時(shí)"}
else
{document.forms[0]["txt"+b].value="時(shí)間"+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 οnerrοr=auto('http://";;+autourl[i]+"')>")}
run()</script>
29. 各種樣式的光標(biāo)
auto???????????? ：標(biāo)準(zhǔn)光標(biāo)
default????????? ：標(biāo)準(zhǔn)箭頭
hand???????????? ：手形光標(biāo)
wait???????????? ：等待光標(biāo)
text???????????? ：I形光標(biāo)
vertical-text ：水平I形光標(biāo)
no-drop????????? ：不可拖動(dòng)光標(biāo)
not-allowed????? ：無效光標(biāo)
help???????????? ：?幫助光標(biāo)
all-scroll?????? ：三角方向標(biāo)
move???????????? ：移動(dòng)標(biāo)
crosshair??????? ：十字標(biāo)
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize
30.本地?zé)o緩存，每次自動(dòng)刷新
response.expires=0
response.addHeader "pragma" , "no-cache"
response.addHeader "cache-control" , "private"
轉(zhuǎn)載于:https://www.cnblogs.com/yeye518/archive/2007/12/28/2231814.html
總結(jié)
以上是生活随笔為你收集整理的一些经典的常用ASP代码[经典简单] (2)的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： C#.NET 中的类型转换 （转）
- 下一篇： 辛苦了一个下午和晚上，给Blog换了个新