- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
[轉貼] 站長收集asp代碼經典集合

1. oncontextmenu=window.event.returnvalue=false 將徹底屏蔽滑鼠右鍵你我一起舞共續ASP經典輝煌!--POWERED BY 25175
<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/&#39;>

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)

javascript:
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.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=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

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
response.contentType=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)
%>





頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2017 COOLASP All Rights Reserved