整理收藏： ASP 三十二条精华代码（20-32）
2018-09-06 13:18
20. 获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
document.body.offsetWidth,document.body.offsetHeight
有时还需要知道window.screenTop,window.screenLeft
21. 怎么判断是否是字符
if (/[^x00-xff]/g.test(s)) alert(含有汉字);
else alert(全是字符);
22.TEXTAREA自适应文字行数的多少
<textarea rows=1 name=s1 cols=27 onpropertychange=this.style.posHeight=this.scrollHeight>
</textarea>
23. 日期减去天数等于第二个日期
<script language=****>
function cc(dd,dadd)
{
//可以加上错误处理
var a = new Date(dd)
a = a.valueOf()
a = a - dadd * 24 * 60 * 60 * 1000
a = new Date(a)
alert(a.getFullYear() + 年 + (a.getMonth() + 1) + 月 + a.getDate() + 日)
}
cc(12/23/2002,2)
</script>
24. 选择了哪一个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 onclick=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.
本机ip<%=request.servervariables(remote_addr)%>
服务器名<%=Request.ServerVariables(SERVER_NAME)%>
服务器IP<%=Request.ServerVariables(LOCAL_ADDR)%>
服务器端口<%=Request.ServerVariables(SERVER_PORT)%>
服务器时间<%=now%>
IIS版本<%=Request.ServerVariablesSERVER_SOFTWARE)%>
脚本超时时间<%=Server.ScriptTimeout%>
本文件路径<%=server.mappath(Request.ServerVariables(SCRIPT_NAME))%>
服务器CPU数量<%=Request.ServerVariables(NUMBER_OF_PROCESSORS)%>
服务器解译引擎<%=ScriptEngine / ScriptEngineMajorVersion .ScriptEngineMinorVersion. ScriptEngineBuildVersion %>
服务器操作系统<%=Request.ServerVariables(OS)%>
27.ENTER键可以让光标移到下一个输入框
<input onkeydown=if(event.keyCode==13)event.keyCode=9>
28. 检测某个网站的链接速度：
把如下代码加入<body>区域中:
<script language=****>
tim=1
setInterval(tim++,100)
b=1
var autourl=new Array()
autourl[1]=
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=
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
tentType=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>
上一篇：atom_js.asp
文章标题：整理收藏： ASP 三十二条精华代码（20-32）
文章链接：http://soscw.com/index.php/essay/11117.html