值得收藏的一些HTML、JavaScript、ASP代码

摘要：1.CDONTS.NewMail组件使用说明SetMailObject=Server.CreateObject("CDONTS.NewMai...

1.CDONTS.NewMail组件使用说明

SetMailObject=Server.CreateObject("CDONTS.NewMail")

MailObject.From="发信邮箱"

MailObject.To="收信邮箱"

MailObject.Cc="抄送邮箱"

MailObject.Bcc="密送邮箱"

MailObject.Subject="邮件主题"

MailObject.Body="邮件内容"

MailObject.MailFormat=0'邮件的格式，0是MIME格式，1是文本消息

MailObject.BodyFormat=0'邮件的正文的格式，0表示HTML格式，1表示普通文本

MailObject.Importance=1'邮件的重要性，0是表示低重要性，1表示正常，2表示高重要

MailObject.AttachFile"附件绝对路径","附件名称"

MailObject.Send

SetMailObject=Nothing

2.网页不会被缓存

Response.Expires=-1

Response.ExpiresAbsolute=Now()-1

Response.cachecontrol="no-cache"

3.客户端IP地址

Request.serverVariables("REMOTE_ADDR)

4.记录集对象的方法：

rs.movenext将记录指针从当前的位置向下移一行

rs.moveprevious将记录指针从当前的位置向上移一行

rs.movefirst将记录指针移到数据表第一行

rs.movelast将记录指针移到数据表最后一行

rs.absoluteposition=N将记录指针移到数据表第N行

rs.absolutepage=N将记录指针移到第N页的第一行

rs.pagesize=N设置每页为N条记录

rs.pagecount根据pagesize的设置返回总页数

rs.recordcount返回记录总数

rs.bof返回记录指针是否超出数据表首端，true表示是，false为否

rs.eof返回记录指针是否超出数据表末端，true表示是，false为否

rs.delete删除当前记录，但记录指针不会向下移动

rs.addnew添加记录到数据表末端

rs.update更新数据表记录

5.随机数工式

Int((上界-下界+1)*Rnd+下界)

6.检查输入函数

FunctionCheck_Input(input)

input=Trim(input)'去除多余空格

input=Server.HTMLEncode(input)'转换HTML

input=Replace(input,Chr(39),"'")'转换半角单引号

input=Replace(input,Chr(34),""")'转换半角双引号

checkinput=input

EndFunction

7.连接Access数据库方法

方法1：

Setconn=Server.CreateObject("ADODB.Connection")

conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath("data.mdb")

方法2：

Setconn=Server.CreateObject("ADODB.Connection")

conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("data.mdb")

1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键

<tableborderoncontextmenu=return(false)><td>no</table>可用于Table

2.<bodyonselectstart="returnfalse">取消选取、防止复制

3.onpaste="returnfalse"不准粘贴

4.oncopy="returnfalse;"oncut="returnfalse;"防止复制

5.<linkrel="ShortcutIcon"href="favicon.ico">IE地址栏前换成自己的图标

6.<linkrel="Bookmark"href="favicon.ico">可以在收藏夹中显示出你的图标

7.<inputstyle="ime-mode:disabled">关闭输入法

8.永远都会带着框架

<scriptlanguage="javascript"><></script>

9.防止被人frame

<SCRIPTLANGUAGE=javascript><></SCRIPT>

10.<noscript><iframesrc=*.html></iframe></noscript>网页将不能被另存为

11.<inputtype=buttonvalue=查看网页源代码

onclick="window.location='view-source:'+'http://www.csdn.net/'";>

12.怎样通过asp的手段来检查来访者是否用了代理

<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then

response.write"<fontcolor=#FF0000>您通过了代理服务器，"&_

"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")

endif

13.取得控件的绝对位置

//javascript

<scriptlanguage="javascript">

functiongetIE(e){

vart=e.offsetTop;

varl=e.offsetLeft;

while(e=e.offsetParent){

t+=e.offsetTop;

l+=e.offsetLeft;

}

alert("top="+t+"nleft="+l);

}

</script>

//VBScript

<scriptlanguage="VBScript"><></script>

14.光标是停在文本框文字的最后

<scriptlanguage="javascript">

functioncc()

{

vare=event.srcElement;

varr=e.createTextRange();

r.moveStart('character',e.value.length);

r.collapse(true);

r.select();

}

</script>

<inputtype=textname=text1value="123"onfocus="cc()">

15.判断上一页的来源

asp:

request.servervariables("HTTP_REFERER")

javascript:

document.referrer

16.最小化、最大化、关闭窗口

<objectid=hh1classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">

<paramname="Command"value="Minimize"></object>

<objectid=hh2classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">

<paramname="Command"value="Maximize"></object>

<OBJECTid=hh3classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAMNAME="Command"value="Close"></OBJECT>

<inputtype=buttonvalue=最小化onclick=hh1.Click()>

<inputtype=buttonvalue=最大化onclick=hh2.Click()>

<inputtype=buttonvalue=关闭onclick=hh3.Click()>

本例适用于IE

17.

'定义数据库连接的一些常量

ConstadOpenForwardOnly=0'游标只向前浏览记录，不支持分页、Recordset、BookMark

ConstadOpenKeyset=1'键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark

ConstadOpenDynamic=2'动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。

ConstadOpenStatic=3'静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

ConstadLockReadOnly=1'锁定类型，默认的，只读，不能作任何修改

ConstadLockPessimistic=2'当编辑时立即锁定记录，最安全的方式

ConstadLockOptimistic=3'只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等

ConstadLockBatchOptimistic=4'当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

ConstadCmdText=&H0001

ConstadCmdTable=&H0002

18.网页不会被缓存

HTM网页

<METAHTTP-EQUIV="pragma"CONTENT="no-cache">

<METAHTTP-EQUIV="Cache-Control"CONTENT="no-cache,must-revalidate">

<METAHTTP-EQUIV="expires"CONTENT="Wed,26Feb199708:21:57GMT">

或者<METAHTTP-EQUIV="expires"CONTENT="0">

ASP网页

Response.Expires=-1

Response.ExpiresAbsolute=Now()-1

Response.cachecontrol="no-cache"

PHP网页

header("Expires:Mon,26Jul199705:00:00GMT");

header("Cache-Control:no-cache,must-revalidate");

header("Pragma:no-cache");

19.检查一段字符串是否全由数字组成

<scriptlanguage="javascript"><></script>

20.获得一个窗口的大小

document.body.clientWidth,document.body.clientHeight

21.怎么判断是否是字符

if(/[^x00-xff]/g.test(s))alert("含有汉字");

elsealert("全是字符");

22.TEXTAREA自适应文字行数的多少

<textarearows=1name=s1cols=27onpropertychange="this.style.posHeight=this.scrollHeight">

</textarea>

23.日期减去天数等于第二个日期

<scriptlanguage=javascript>

functioncc(dd,dadd)

{

//可以加上错误处理

vara=newDate(dd)

a=a.valueOf()

a=a-dadd*24*60*60*1000

a=newDate(a)

alert(a.getFullYear()+"年"+(a.getMonth()+1)+"月"+a.getDate()+"日")

}

cc("12/23/2002",2)

</script>

24.选择了哪一个Radio

functioncheckme()

foreachobinradio1

ifob.checkedthenwindow.alertob.value

endfunction

</script><BODY>

<INPUTname="radio1"type="radio"value="style"checked>Style

<INPUTname="radio1"type="radio"value="barcode">Barcode

<INPUTtype="button"value="check"onclick="checkme()">

</BODY></HTML>

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

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

foreachobinRequest.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键可以让光标移到下一个输入框

<inputonkeydown="if(event.keyCode==13)event.keyCode=9">

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

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

<scriptlanguage=javascript>

tim=1

setInterval("tim++",100)

b=1

varautourl=newArray()

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"

functionbutt(){

document.write("<formname=autof>")

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

document.write("<inputtype=textname=txt"+i+"size=10value=测试中……>=》<inputtype=textname=url"+i+"size=40>=》<inputtype=buttonvalue=GOonclick=window.open(this.form.url"+i+".value)><br/>")

document.write("<inputtype=submitvalue=刷新></form>")

}

butt()

functionauto(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++

}

functionrun(){for(vari=1;i<autourl.length;i++)document.write("<imgsrc=http://"+autourl[i]+"/"+Math.random()+"width=1height=1onerror=auto('http://";;;+autourl[i]+"')>")}

run()</script>

29.各种样式的光标

auto：标准光标

default：标准箭头

hand：手形光标

wait：等待光标

text：I形光标

vertical-text：水平I形光标

no-drop：不可拖动光标

not-allowed：无效光标

help：?帮助光标

all-scroll：三角方向标