神马文学网制作网页的经典script代码
来源：百度文库 编辑：神马文学网 时间：2024/04/26 04:46:46
1,获取当前网页地址
Response.Write ""
url=Request.CurrentExecutionFilePath.ToString()
1、返回上一页
返回上一页
1、自动清空
1.‘将发言进行编码，使其不支持 HTML 语法
says = Server.HTMLEncode(says)
1.双击页面后自动滚屏，单击后停止。
1.
1.节日倒计时
1.显示系统当前日期
1.不同时间段显示不同问候语
1.锁定状态栏文字防止显示地址
1.隐藏状态栏中的链接地址：
1.自动全选
54、确认后提交
把如下代码加入区域中
45、显示个人客户端机器的日期和时间
39.在规定时间内跳转
38.页面进入和退出的特效
进入页面
推出页面
这个是页面被载入和调出时的一些特效。duration表示特效的持续时间，以秒为单位。transition表示使用哪种特效，取值为1-23:
0 矩形缩小
1 矩形扩大
2 圆形缩小
3 圆形扩大
4 下到上刷新
5 上到下刷新
6 左到右刷新
7 右到左刷新
8 竖百叶窗
9 横百叶窗
10 错位横百叶窗
11 错位竖百叶窗
12 点扩散
13 左右到中间刷新
14 中间到左右刷新
15 中间到上下
16 上下到中间
17 右下到左上
18 右上到左下
19 左上到右下
20 左下到右上
21 横条
22 竖条
23 以上22种随机选择一种
23.怎样去掉图片链接点击后，图片周围的虚线？
21.让弹出窗口总是在最上面:
22.不要滚动条?
让竖条没有:
让横条没有:
两个都去掉？更简单了
17.屏蔽功能键Shift,Alt,Ctrl
1.删除
1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
no可用于Table
2.取消选取、防止复制
3.onpaste="returnfalse"不准粘贴
4.oncopy="returnfalse;"oncut="returnfalse;"防止复制
5.IE地址栏前换成自己的图标
6.可以在收藏夹中显示出你的图标
7.关闭输入法
8.永远都会带着框架
9.防止被人frame
10.网页将不能被另存为
11.onclick="window.location="‘view-source:‘+‘
http://www.csdn.net/">
12.怎样通过asp的手段来检查来访者是否用了代理
<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
response.write"您通过了代理服务器，"&_
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
endif
%>
13.取得控件的绝对位置
//javascript
functiongetIE(e){
vart=e.offsetTop;
varl=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"\nleft="+l);
}
//VBScript
14.光标是停在文本框文字的最后
function cc()
{
vare=event.srcElement;
varr=e.createTextRange();
r.moveStart(‘character‘,e.value.length);
r.collapse(true);
r.select();
}
15.判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")
javascript:
document.referrer
16.最小化、最大化、关闭窗口
本例适用于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网页
或者
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.检查一段字符串是否全由数字组成
20.获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
21.怎么判断是否是字符
if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
elsealert("全是字符");
22.TEXTAREA自适应文字行数的多少
23.日期减去天数等于第二个日期
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)
24.选择了哪一个Radio
functioncheckme()
foreachobinradio1
ifob.checkedthenwindow.alertob.value
next
endfunction
style
Barcode
25.获得本页url的request.servervariables("")集合
Response.Write"Variables value
foreachobinRequest.ServerVariables
Response.Write""&ob&" "&Request.ServerVariables(ob)&"
next
Response.Write""
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.检测某个网站的链接速度：
把如下代码加入区域中:
tim=1
setInterval("tim++",100)
b=1
varautourl=newArray()
autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"
functionbutt(){
document.write("")
for(vari=1;idocument.write("=》=》
")
document.write("")
}
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;ihttp://";+autourl[i]+"‘)>")}
run()
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
1.本地无缓存，每次自动刷新
response.expires=0
response.addHeader"pragma","no-cache"
response.addHeader"cache-control","private"
2.修改contentType并下载gif等格式
<%
functiondl(f,n)
onerrorresumenext
sets=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
s.LoadFromFile(server.mappath(f))
iferr.number>0then
response.writeerr.number&":"&err.description
else
response.contentType="application/x-gzip"
response.addheader"Content-Disposition:","attachment;filename="&n
response.binarywrite(s.Read(s.size))
endif
endfunction
calldl("012922501.gif","t1.gif")
%>
Response.Write ""
url=Request.CurrentExecutionFilePath.ToString()
1、返回上一页
返回上一页
1、自动清空
1.‘将发言进行编码，使其不支持 HTML 语法
says = Server.HTMLEncode(says)
1.双击页面后自动滚屏，单击后停止。
1.
1.节日倒计时
1.显示系统当前日期
1.不同时间段显示不同问候语
1.锁定状态栏文字防止显示地址
1.隐藏状态栏中的链接地址：
1.自动全选
54、确认后提交
把如下代码加入区域中
45、显示个人客户端机器的日期和时间
39.在规定时间内跳转
38.页面进入和退出的特效
进入页面
推出页面
这个是页面被载入和调出时的一些特效。duration表示特效的持续时间，以秒为单位。transition表示使用哪种特效，取值为1-23:
0 矩形缩小
1 矩形扩大
2 圆形缩小
3 圆形扩大
4 下到上刷新
5 上到下刷新
6 左到右刷新
7 右到左刷新
8 竖百叶窗
9 横百叶窗
10 错位横百叶窗
11 错位竖百叶窗
12 点扩散
13 左右到中间刷新
14 中间到左右刷新
15 中间到上下
16 上下到中间
17 右下到左上
18 右上到左下
19 左上到右下
20 左下到右上
21 横条
22 竖条
23 以上22种随机选择一种
23.怎样去掉图片链接点击后，图片周围的虚线？
21.让弹出窗口总是在最上面:
22.不要滚动条?
让竖条没有:
让横条没有:
两个都去掉？更简单了
17.屏蔽功能键Shift,Alt,Ctrl
1.删除
1.oncontextmenu="window.event.returnvalue=false"将彻底屏蔽鼠标右键
2.
3.onpaste="returnfalse"不准粘贴
4.oncopy="returnfalse;"oncut="returnfalse;"防止复制
5.
6.
7.
8.永远都会带着框架
9.防止被人frame
10.网页将不能被另存为
11.
http://www.csdn.net/">12.怎样通过asp的手段来检查来访者是否用了代理
<%ifRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""then
response.write"
"真实的IP为"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
endif
%>
13.取得控件的绝对位置
//javascript
functiongetIE(e){
vart=e.offsetTop;
varl=e.offsetLeft;
while(e=e.offsetParent){
t+=e.offsetTop;
l+=e.offsetLeft;
}
alert("top="+t+"\nleft="+l);
}
//VBScript
14.光标是停在文本框文字的最后
function cc()
{
vare=event.srcElement;
varr=e.createTextRange();
r.moveStart(‘character‘,e.value.length);
r.collapse(true);
r.select();
}
15.判断上一页的来源
asp:
request.servervariables("HTTP_REFERER")
javascript:
document.referrer
16.最小化、最大化、关闭窗口
本例适用于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网页
或者
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.检查一段字符串是否全由数字组成
20.获得一个窗口的大小
document.body.clientWidth,document.body.clientHeight
21.怎么判断是否是字符
if(/[^\x00-\xff]/g.test(s))alert("含有汉字");
elsealert("全是字符");
22.TEXTAREA自适应文字行数的多少
23.日期减去天数等于第二个日期
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)
24.选择了哪一个Radio
functioncheckme()
foreachobinradio1
ifob.checkedthenwindow.alertob.value
next
endfunction
style
Barcode
25.获得本页url的request.servervariables("")集合
Response.Write"
foreachobinRequest.ServerVariables
Response.Write"
next
Response.Write""
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.检测某个网站的链接速度：
把如下代码加入区域中:
tim=1
setInterval("tim++",100)
b=1
varautourl=newArray()
autourl[1]="< src="pic/url.gif" align=absMiddle border=0>www.njcatv.net"
autourl[2]="javacool.3322.net"
autourl[3]="< src="pic/url.gif" align=absMiddle border=0>www.sina.com.cn"
autourl[4]="www.nuaa.edu.cn"
autourl[5]="< src="pic/url.gif" align=absMiddle border=0>www.cctv.com"
functionbutt(){
document.write("
for(vari=1;i
")
document.write("
}
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
run()
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
1.本地无缓存，每次自动刷新
response.expires=0
response.addHeader"pragma","no-cache"
response.addHeader"cache-control","private"
2.修改contentType并下载gif等格式
<%
functiondl(f,n)
onerrorresumenext
sets=CreateObject("Adodb.Stream")
S.Mode=3
S.Type=1
S.Open
s.LoadFromFile(server.mappath(f))
iferr.number>0then
response.writeerr.number&":"&err.description
else
response.contentType="application/x-gzip"
response.addheader"Content-Disposition:","attachment;filename="&n
response.binarywrite(s.Read(s.size))
endif
endfunction
calldl("012922501.gif","t1.gif")
%>