ASP 三十二條精華代碼

最後更新：2018-12-06 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

整理收藏: ASP 三十二條精華代碼
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"> 可以在收藏夾中顯示出你的表徵圖

　　如何製作將本站設為首頁

　　你可能已經注意到，現在許多網站的首頁上都有這麼一個連結"按這裡將本站設為首頁"(這裡的首頁指的是瀏覽器的起始頁)。

　　不但大的ISP,ICP這麼做，一些個人首頁也推出這一"服務"以招攬網友，具體是如何?這個功能的呢？我來幫你剖析一下：

　　點擊那個超連結會顯示下載一個名為lspace.reg的檔案，下載後雙擊它，便會修改你的註冊表，然後當你再開啟瀏覽器的時候，起始頁就發生了變化。(一聽到修改註冊表，許多網友就比較"怵"，會不會把windows給弄壞了。)

　　別怕，我們來開啟lspace.reg看看(用最普通的notepad記事本就可以開啟)，發現內容如下：

REGEDIT4
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Start Page" = "http://www.aygame.com/";;
[HKEY_CURRENT_USER\Software\Netscape\Netscape Navigator\Main]"Home Page" = "http://www.aygame.com/";;

　　原來就兩條，第一條設定IE的star page；第二條設定NC的home page(沒什麼花頭噢：)。後面跟的URL就是你首頁的網址！

　　7. <input style="ime-modeisabled"> 關閉IME

　　8. 永遠都會帶著架構

<script.. language="****"></script..>

　　9. 防止被人frame

<script.. LANGUAGE=****></script..>

　　10. <noscript..><iframe src=*.html></iframe></noscript..> 網頁將不能被另存新檔

　　11. <input type=button value=查看網頁原始碼
　　on..click="window.location = 'view-source:'+ 'http://www.csdn.net/'";>

　　12. 怎樣通過asp的手段來檢查來訪者是否用了代理

　　<% if Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then
　　response.write "<font color=#FF0000>您通過了Proxy 伺服器，"& _
　　"真實的IP為"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")
　　end if
　　%>

　　13. 取得控制項的絕對位置

　　//****
　　<script.. language="****">
　　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.."></script..>

14. 游標是停在文字框文字的最後
　　<script.. language="****">
　　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")

　　****:
　　document.referrer

　　16. 最小化、最大化、關閉視窗

　　本例適用於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. 檢查一段字串是否全由數字組成

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自適應文字行數的多少

　　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..>

自:BBs.77169.com
--------------------------------------------
代表正義總是好的，哪怕你要做的是最卑鄙無恥的事情，也要用冠冕堂皇的理由去作做。

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" on..click="checkme()">
　　</BODY></HTML>

　　25.獲得本頁url的request.servervariables("")集合

Response.Write "<TABLE border=1><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.script..Timeout%>
　　本檔案路徑<%=server.mappath(Request.ServerVariables("script.._NAME"))%>
　　伺服器CPU數量<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
　　伺服器解譯引擎<%=script..Engine & "/"& script..EngineMajorVersion &"."&script..EngineMinorVersion&"."& script..EngineBuildVersion %>
　　伺服器作業系統<%=Request.ServerVariables("OS")%>

　　27.ENTER鍵可以讓游標移到下一個輸入框

　　28. 檢測某個網站的連結速度：

　　把如下代碼加入<body>地區中:
　　<script.. language=****>
　　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 on..click=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 on..error=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.descript..ion
　　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")
　　%>

　　32. 檢查一段字串是否全由數字組成

<script.. language="****"></script..>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More