My Source Code

<%
dim u,b,v
set u=Request.ServerVariables("HTTP_USER_AGENT")
set b=new RegExp
set v=new RegExp
b.Pattern="(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|mobile.+firefox|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows ce|xda|xiino"
v.Pattern="1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-"
b.IgnoreCase=true
v.IgnoreCase=true
b.Global=true
v.Global=true
if b.test(u) or v.test(Left(u,4)) then response.redirect("http://detectmobilebrowser.com/mobile") end if
%>

LEN字串長度函數：計算字串的長度。 函數運算式 結果
len("abcd") 4
len("中文字") 3
len(abc中文) 5
(getdate())
MID取部份字串函數：依開始位置擷取固定長度字串。 函數運算式 結果
mid("vbscript",3,3) scr
mid("vbscript",3) script
mid("vbscript",1,2) vb

<%
 
'====
Function stripTags( strToStrip )

The following script:
<%
response.write(Server.HTMLEncode("The image tag: <img>"))
%>

<%''判断来源，禁止外部提交
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if server_v1="" or instr(server_v1,"发表页面名")<=0 or mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<SCRIPT language=JavaScript>alert('来源非法，禁止外部提交！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if%>

CSS 超簡單變圖語法



名稱：
CSS 超簡單變圖語法


語法：
CSS / Javascript


適用：
 


說明：
變換影像是 JavaScript 中恆久遠永留傳的效果。而，現在提供的程式可以讓製作變換影像儘可能簡單，允許您套用變換影像到文件中任何影像，而只要簡單加上一個 class 屬性即可達成，超乎想像的簡單！


備註：
本文取材自「解決製作標準網頁一定會遇到的 186 個問題」松崗出版

width 
編輯器的寬度，可以設置px或%，比textarea輸入框樣式表寬度優先度高。

數據類型: String

默認值: textarea輸入框的寬度

示例:

CDO (Collaboration Data Objects) 物件 ， 對應程式庫檔案 Cdosys.dll
提供自動 E-Mail 寄送使用；可應用於 VB, ASP, ASP.Net 等，是簡易的信件寄送方式。

ASP Date() 日期與時間
Active Server Page 動態伺服器網頁，由 Microsoft 微軟所開發互動式網頁格式，與 PHP、CGI(Common Gateway Interface) 屬於同一性質的網頁開發語言 ASP 程式是以 .asp 為副檔名的格式檔案，可以包含一般的 HTML 標記與各類型用戶端 Script 及在伺服器上執行的 ASP 程式碼，安裝 IIS (Internet Information Services) 即可與伺服器運作，缺點是除了 Windows 其他的作業系統似乎沒有完整支援ASP 的伺服器作業系統。

LEN字串長度函數：計算字串的長度。 函數運算式 結果
len("abcd") 4
len("中文字") 3
len(abc中文) 5