值得收藏的一些HTML、JavaScript、ASP代码
程序员文章站
2022-07-01 23:49:37
1. cdonts.newmail 组件使用说明 set mailobject = server....
1. cdonts.newmail 组件使用说明
set mailobject = 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
set mailobject = 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. 检查输入函数
function check_input(input)
input = trim(input) '去除多余空格
input = server.htmlencode(input) '转换html
input = replace(input,chr(39),"'") '转换半角单引号
input = replace(input,chr(34),""") '转换半角双引号
checkinput = input
end function
7. 连接 access 数据库方法
方法1：
set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")
方法2：
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")
1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return false;" 防止复制
5. <link rel="shortcut icon" href="favicon.ico"> ie地址栏前换成自己的图标
6. <link rel="bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
7. <input style="ime-mode:disabled"> 关闭输入法
8. 永远都会带着框架
<script language="javascript"><!--
if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页
// --></script>
9. 防止被人frame
<script language=javascript><!--
if (top.location != self.location)top.location=self.location;
// --></script>
10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为
11. <input type=button value=查看网页源代码
onclick="window.location = 'view-source:'+ 'http://www.csdn.net/'";>
12. 怎样通过asp的手段来检查来访者是否用了代理
<% if request.servervariables("http_x_forwarded_for")<>"" then
response.write "<font color=#ff0000>您通过了代理服务器，"& _
"真实的ip为"&request.servervariables("http_x_forwarded_for")
end if
%>
13. 取得控件的绝对位置
//javascript
<script language="javascript">
function getie(e){
var t=e.offsettop;
var l=e.offsetleft;
while(e=e.offsetparent){
t+=e.offsettop;
l+=e.offsetleft;
}
alert("top="+t+"\nleft="+l);
}
</script>
//vbscript
<script language="vbscript"><!--
function getie()
dim t,l,a,b
set a=document.all.img1
t=document.all.img1.offsettop
l=document.all.img1.offsetleft
while a.tagname<>"body"
set a = a.offsetparent
t=t+a.offsettop
l=l+a.offsetleft
wend
msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
end function
--></script>
14. 光标是停在文本框文字的最后
<script language="javascript">
function cc()
{
var e = event.srcelement;
var r =e.createtextrange();
r.movestart('character',e.value.length);
r.collapse(true);
r.select();
}
</script>
<input type=text name=text1 value="123" onfocus="cc()">
15. 判断上一页的来源
asp:
request.servervariables("http_referer")
java script:
document.referrer
16. 最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="minimize"></object>
<object id=hh2 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="maximize"></object>
<object id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="close"></object>
<input type=button value=最小化 onclick=hh1.click()>
<input type=button value=最大化 onclick=hh2.click()>
<input type=button value=关闭 onclick=hh3.click()>
本例适用于ie
17.
<%
'定义数据库连接的一些常量
const adopenforwardonly = 0 '游标只向前浏览记录，不支持分页、recordset、bookmark
const adopenkeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、recordset、bookmark
const adopendynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(access不支持)。
const adopenstatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
const adlockreadonly = 1 '锁定类型，默认的，只读，不能作任何修改
const adlockpessimistic = 2 '当编辑时立即锁定记录，最安全的方式
const adlockoptimistic = 3 '只有在调用update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
const adlockbatchoptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
const adcmdtext = &h0001
const adcmdtable = &h0002
%>
18. 网页不会被缓存
htm网页
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache, must-revalidate">
<meta http-equiv="expires" content="wed, 26 feb 1997 08:21:57 gmt">
或者<meta http-equiv="expires" content="0">
asp网页
response.expires = -1
response.expiresabsolute = now() - 1
response.cachecontrol = "no-cache"
php网页
header("expires: mon, 26 jul 1997 05:00:00 gmt");
header("cache-control: no-cache, must-revalidate");
header("pragma: no-cache");
19. 检查一段字符串是否全由数字组成
<script language="javascript"><!--
function checknum(str){return str.match(/\d/)==null}
alert(checknum("1232142141"))
alert(checknum("123214214a1"))
// --></script>
20. 获得一个窗口的大小
document.body.clientwidth,document.body.clientheight
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=javascript>
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.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键可以让光标移到下一个输入框
<input onkeydown="if(event.keycode==13)event.keycode=9">
28. 检测某个网站的链接速度：
把如下代码加入<body>区域中:
<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=测试中……> =》<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
set mailobject = 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
set mailobject = 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. 检查输入函数
function check_input(input)
input = trim(input) '去除多余空格
input = server.htmlencode(input) '转换html
input = replace(input,chr(39),"'") '转换半角单引号
input = replace(input,chr(34),""") '转换半角双引号
checkinput = input
end function
7. 连接 access 数据库方法
方法1：
set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")
方法2：
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")
1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return false;" 防止复制
5. <link rel="shortcut icon" href="favicon.ico"> ie地址栏前换成自己的图标
6. <link rel="bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
7. <input style="ime-mode:disabled"> 关闭输入法
8. 永远都会带着框架
<script language="javascript"><!--
if (window == top)top.location.href = "frames.htm"; //frames.htm为框架网页
// --></script>
9. 防止被人frame
<script language=javascript><!--
if (top.location != self.location)top.location=self.location;
// --></script>
10. <noscript><iframe src=*.html></iframe></noscript> 网页将不能被另存为
11. <input type=button value=查看网页源代码
onclick="window.location = 'view-source:'+ 'http://www.csdn.net/'";>
12. 怎样通过asp的手段来检查来访者是否用了代理
<% if request.servervariables("http_x_forwarded_for")<>"" then
response.write "<font color=#ff0000>您通过了代理服务器，"& _
"真实的ip为"&request.servervariables("http_x_forwarded_for")
end if
%>
13. 取得控件的绝对位置
//javascript
<script language="javascript">
function getie(e){
var t=e.offsettop;
var l=e.offsetleft;
while(e=e.offsetparent){
t+=e.offsettop;
l+=e.offsetleft;
}
alert("top="+t+"\nleft="+l);
}
</script>
//vbscript
<script language="vbscript"><!--
function getie()
dim t,l,a,b
set a=document.all.img1
t=document.all.img1.offsettop
l=document.all.img1.offsetleft
while a.tagname<>"body"
set a = a.offsetparent
t=t+a.offsettop
l=l+a.offsetleft
wend
msgbox "top="&t&chr(13)&"left="&l,64,"得到控件的位置"
end function
--></script>
14. 光标是停在文本框文字的最后
<script language="javascript">
function cc()
{
var e = event.srcelement;
var r =e.createtextrange();
r.movestart('character',e.value.length);
r.collapse(true);
r.select();
}
</script>
<input type=text name=text1 value="123" onfocus="cc()">
15. 判断上一页的来源
asp:
request.servervariables("http_referer")
java script:
document.referrer
16. 最小化、最大化、关闭窗口
<object id=hh1 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="minimize"></object>
<object id=hh2 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="maximize"></object>
<object id=hh3 classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="close"></object>
<input type=button value=最小化 onclick=hh1.click()>
<input type=button value=最大化 onclick=hh2.click()>
<input type=button value=关闭 onclick=hh3.click()>
本例适用于ie
17.
<%
'定义数据库连接的一些常量
const adopenforwardonly = 0 '游标只向前浏览记录，不支持分页、recordset、bookmark
const adopenkeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、recordset、bookmark
const adopendynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(access不支持)。
const adopenstatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动
const adlockreadonly = 1 '锁定类型，默认的，只读，不能作任何修改
const adlockpessimistic = 2 '当编辑时立即锁定记录，最安全的方式
const adlockoptimistic = 3 '只有在调用update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
const adlockbatchoptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的
const adcmdtext = &h0001
const adcmdtable = &h0002
%>
18. 网页不会被缓存
htm网页
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache, must-revalidate">
<meta http-equiv="expires" content="wed, 26 feb 1997 08:21:57 gmt">
或者<meta http-equiv="expires" content="0">
asp网页
response.expires = -1
response.expiresabsolute = now() - 1
response.cachecontrol = "no-cache"
php网页
header("expires: mon, 26 jul 1997 05:00:00 gmt");
header("cache-control: no-cache, must-revalidate");
header("pragma: no-cache");
19. 检查一段字符串是否全由数字组成
<script language="javascript"><!--
function checknum(str){return str.match(/\d/)==null}
alert(checknum("1232142141"))
alert(checknum("123214214a1"))
// --></script>
20. 获得一个窗口的大小
document.body.clientwidth,document.body.clientheight
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=javascript>
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.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键可以让光标移到下一个输入框
<input onkeydown="if(event.keycode==13)event.keycode=9">
28. 检测某个网站的链接速度：
把如下代码加入<body>区域中:
<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=测试中……> =》<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
上一篇： ASP程序代码执行时间统计类
下一篇： CSS命名规范