ASP的一些珍藏代碼

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

上載者：User

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

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">　　　　　　　　　　　　　關閉IME

8.　永遠都會帶著架構

<script language="javascript">< !--

　if (window == top)top.location.href = "frames.htm"; file&://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>您通過了Proxy 伺服器，"& _

"真實的IP為"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")

end if

%>

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

file&://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>

file&://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");

本文章原先以中文撰寫並發佈於 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