欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

一、驗證類(lèi)
1、數字驗證內
1.1 整數
1.2 大于0的整數 （用于傳來(lái)的ID的驗證)
1.3 負整數的驗證
1.4 整數不能大于iMax
1.5 整數不能小于iMin
2、時(shí)間類(lèi)
2.1 短時(shí)間，形如 (13:04:06)
2.2 短日期，形如 (2003-12-05)
2.3 長(cháng)時(shí)間，形如 (2003-12-05 13:04:06)
2.4 只有年和月。形如(2003-05,或者2003-5)
2.5 只有小時(shí)和分鐘,形如(12:03)
3、表單類(lèi)
3.1 所有的表單的值都不能為空
3.2 多行文本框的值不能為空。
3.3 多行文本框的值不能超過(guò)sMaxStrleng
3.4 多行文本框的值不能少于sMixStrleng
3.5 判斷單選框是否選擇。
3.6 判斷復選框是否選擇.
3.7 復選框的全選，多選，全不選，反選
3.8 文件上傳過(guò)程中判斷文件類(lèi)型
4、字符類(lèi)
4.1 判斷字符全部由a-Z或者是A-Z的字字母組成
4.2 判斷字符由字母和數字組成。
4.3 判斷字符由字母和數字，下劃線(xiàn),點(diǎn)號組成.且開(kāi)頭的只能是下劃線(xiàn)和字母
4.4 字符串替換函數.Replace();
5、瀏覽器類(lèi)
5.1 判斷瀏覽器的類(lèi)型
5.2 判斷ie的版本
5.3 判斷客戶(hù)端的分辨率

6、結合類(lèi)
6.1 email的判斷。
6.2 手機號碼的驗證
6.3 身份證的驗證

二、功能類(lèi)

1、時(shí)間與相關(guān)控件類(lèi)
1.1 日歷
1.2 時(shí)間控件
1.3 萬(wàn)年歷
1.4 顯示動(dòng)態(tài)顯示時(shí)鐘效果（文本，如OA中時(shí)間）
1.5 顯示動(dòng)態(tài)顯示時(shí)鐘效果 (圖像，像手表)
2、表單類(lèi)
2.1 自動(dòng)生成表單
2.2 動(dòng)態(tài)添加，修改，刪除下拉框中的元素
2.3 可以輸入內容的下拉框
2.4 多行文本框中只能輸入iMax文字。如果多輸入了，自動(dòng)減少到iMax個(gè)文字（多用于短信發(fā)送)

3、打印類(lèi)
3.1 打印控件
4、事件類(lèi)
4.1 屏蔽右鍵
4.2 屏蔽所有功能鍵
4.3 --> 和<-- F5 F11,F9,F1
4.4 屏蔽組合鍵ctrl+N
5、網(wǎng)頁(yè)設計類(lèi)
5.1 連續滾動(dòng)的文字，圖片（注意是連續的，兩段文字和圖片中沒(méi)有空白出現）
5.2 html編輯控件類(lèi)
5.3 顏色選取框控件
5.4 下拉菜單
5.5 兩層或多層次的下拉菜單
5.6 仿IE菜單的按鈕。（效果如rongshuxa.com的導航欄目)
5.7 狀態(tài)欄，title欄的動(dòng)態(tài)效果（例子很多，可以研究一下）
5.8 雙擊后，網(wǎng)頁(yè)自動(dòng)滾屏
6、樹(shù)型結構。
6.1 asp+SQL版
6.2 asp+xml+sql版
6.3 java+sql或者java+sql+xml
7、無(wú)邊框效果的制作
8、連動(dòng)下拉框技術(shù)
9、文本排序
---------------------------------------------------------------------------------------

一、驗證類(lèi)
1、數字驗證內
1.1 整數
/^(-|\+)?\d+$/.test(str)
1.2 大于0的整數 （用于傳來(lái)的ID的驗證)
/^\d+$/.test(str)
1.3 負整數的驗證
/^-\d+$/.test(str)
2、時(shí)間類(lèi)
2.1 短時(shí)間，形如 (13:04:06)
function isTime(str)
{
var a = str.match(/^(\d{1,2})(?(\d{1,2})\2(\d{1,2})$/);
if (a == null) {alert(‘輸入的參數不是時(shí)間格式‘); return false;}
if (a[1]>24 || a[3]>60 || a[4]>60)
{
alert("時(shí)間格式不對");
return false
}
return true;
}
2.2 短日期，形如 (2003-12-05)
function strDateTime(str)
{
var r = str.match(/^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2})$/);
if(r==null)return false;
var d= new Date(r[1], r[3]-1, r[4]);
return (d.getFullYear()==r[1]&&(d.getMonth()+1)==r[3]&&d.getDate()==r[4]);
}
2.3 長(cháng)時(shí)間，形如 (2003-12-05 13:04:06)
function strDateTime(str)
{
var reg = /^(\d{1,4})(-|\/)(\d{1,2})\2(\d{1,2}) (\d{1,2})\d{1,2})\d{1,2})$/;
var r = str.match(reg);
if(r==null)return false;
var d= new Date(r[1], r[3]-1,r[4],r[5],r[6],r[7]);
return (d.getFullYear()==r[1]&&(d.getMonth()+1)==r[3]&&d.getDate()==r[4]&&d.getHours()==r[5]&&d.getMinutes()==r[6]&&d.getSeconds()==r[7]);
}
2.4 只有年和月。形如(2003-05,或者2003-5)
2.5 只有小時(shí)和分鐘,形如(12:03)
3、表單類(lèi)
3.1 所有的表單的值都不能為空

3.2 多行文本框的值不能為空。
3.3 多行文本框的值不能超過(guò)sMaxStrleng
3.4 多行文本框的值不能少于sMixStrleng
3.5 判斷單選框是否選擇。
3.6 判斷復選框是否選擇.
3.7 復選框的全選，多選，全不選，反選
3.8 文件上傳過(guò)程中判斷文件類(lèi)型
4、字符類(lèi)
4.1 判斷字符全部由a-Z或者是A-Z的字字母組成

4.2 判斷字符由字母和數字組成。

4.3 判斷字符由字母和數字，下劃線(xiàn),點(diǎn)號組成.且開(kāi)頭的只能是下劃線(xiàn)和字母
/^([a-zA-z_]{1})([\w]*)$/g.test(str)
4.4 字符串替換函數.Replace();
5、瀏覽器類(lèi)
5.1 判斷瀏覽器的類(lèi)型
window.navigator.appName
5.2 判斷ie的版本
window.navigator.appVersion
5.3 判斷客戶(hù)端的分辨率
window.screen.height; window.screen.width;

6、結合類(lèi)
6.1 email的判斷。
function ismail(mail)
{
return(new RegExp(/^\w+((-\w+)|(\.\w+))*\-AT-[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/).test(mail));
}
6.2 手機號碼的驗證
6.3 身份證的驗證
function isIdCardNo(num)
{
if (isNaN(num)) {alert("輸入的不是數字！"); return false;}
var len = num.length, re;
if (len == 15)
re = new RegExp(/^(\d{6})()?(\d{2})(\d{2})(\d{2})(\d{3})$/);
else if (len == 18)
re = new RegExp(/^(\d{6})()?(\d{4})(\d{2})(\d{2})(\d{3})(\d)$/);
else {alert("輸入的數字位數不對！"); return false;}
var a = num.match(re);
if (a != null)
{
if (len==15)
{
var D = new Date("19"+a[3]+"/"+a[4]+"/"+a[5]);
var B = D.getYear()==a[3]&&(D.getMonth()+1)==a[4]&&D.getDate()==a[5];
}
else
{
var D = new Date(a[3]+"/"+a[4]+"/"+a[5]);
var B = D.getFullYear()==a[3]&&(D.getMonth()+1)==a[4]&&D.getDate()==a[5];
}
if (!B) {alert("輸入的身份證號 "+ a[0] +" 里出生日期不對！"); return false;}
}
return true;
}
-------------------------------------------------------------------------------------

3.7 復選框的全選，多選，全不選，反選

全選

全選

function checkAll(str)
{
var a = document.getElementsByName(str);
var n = a.length;
for (var i=0; ia[i].checked = window.event.srcElement.checked;
}
function checkItem(str)
{
var e = window.event.srcElement;
var all = eval("document.hrong."+ str);
if (e.checked)
{
var a = document.getElementsByName(e.name);
all.checked = true;
for (var i=0; i{
if (!a[i].checked){ all.checked = false; break;}
}
}
else all.checked = false;
}

3.8 文件上傳過(guò)程中判斷文件類(lèi)型

-------------------------------------------------------------------------------------
１．身份證嚴格驗證：

２．驗證ＩＰ地址

function isip(s){
var check=function(v){try{return (v<=255 && v>=0)}catch(x){return false}};
var re=s.split(".")
return (re.length==4)?(check(re[0]) && check(re[1]) && check(re[2]) && check(re[3])):false
}

var s="202.197.78.129";
alert(isip(s))

３．加sp1后還能用的無(wú)邊框窗口??！

/*--- Special Thanks For andot ---*/

/*
This following code are designed and writen by Windy_sk
You can use it freely, but u must held all the copyright items!
/

/- Thanks For andot Again ---*/

var CW_width = 400;
var CW_height = 300;
var CW_top = 100;
var CW_left = 100;
var CW_url = "/";
var New_CW = window.createPopup();
var CW_Body = New_CW.document.body;
var content = "";
var CSStext = "margin:1px;color:black; border:2px outset;border-style:expression(onmouseout=onmouseup=function(){this.style.borderStyle=‘outset‘}, onmousedown=function(){if(event.button!=2)this.style.borderStyle=‘inset‘});background-color:buttonface;width:16px;height:14px;font-size:12px;line-height:11px;cursor:Default;";

//Build Window
include.startDownload(CW_url, function(source){content=source});

function insert_content(){
var temp = "";
CW_Body.style.overflow = "hidden";
CW_Body.style.backgroundColor = "white";
CW_Body.style.border = "solid black 1px";
content = content.replace(/]*)>/g,"");
temp += "";
temp += "";
temp += "Chromeless Window For IE6 SP1";
temp += "";
temp += "?";
temp += "0";
temp += "1";
temp += "x";
temp += "";
temp += "";
temp += content;
temp += "

";
temp += "";
CW_Body.innerHTML = temp;
}

setTimeout("insert_content()",1000);

var if_max = true;
function show_CW(){
window.moveTo(10000, 10000);
if(if_max){
New_CW.show(CW_top, CW_left, CW_width, CW_height);
if(typeof(New_CW.document.all.include)!="undefined"){
New_CW.document.all.include.style.width = CW_width;
New_CW.document.all.Max.innerText = "1";
}

}else{
New_CW.show(0, 0, screen.width, screen.height);
New_CW.document.all.include.style.width = screen.width;
}
}

window.onfocus = show_CW;
window.onresize = show_CW;

// Move Window
var drag_x,drag_y,draging=false

function drag_move(e){
if (draging){
New_CW.show(e.screenX-drag_x, e.screenY-drag_y, CW_width, CW_height);
return false;
}
}

function drag_down(e){
if(e.button==2)return;
if(New_CW.document.body.offsetWidth==screen.width && New_CW.document.body.offsetHeight==screen.height)return;
drag_x=e.clientX;
drag_y=e.clientY;
draging=true;
e.srcElement.setCapture();
}

function drag_up(e){
draging=false;
e.srcElement.releaseCapture();
if(New_CW.document.body.offsetWidth==screen.width && New_CW.document.body.offsetHeight==screen.height) return;
CW_top = e.screenX-drag_x;
CW_left = e.screenY-drag_y;
}

 
電話(huà)號碼的驗證

要求：
　　(1)電話(huà)號碼由數字、"("、")"和"-"構成
　　(2)電話(huà)號碼為3到8位
　　(3)如果電話(huà)號碼中包含有區號，那么區號為三位或四位
　　(4)區號用"("、")"或"-"和其他部分隔開(kāi)
　　(5)移動(dòng)電話(huà)號碼為11或12位，如果為12位,那么第一位為0
　　(6)11位移動(dòng)電話(huà)號碼的第一位和第二位為"13"
　　(7)12位移動(dòng)電話(huà)號碼的第二位和第三位為"13"
　　根據這幾條規則，可以與出以下正則表達式：
　　(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)

function PhoneCheck(s) {
var str=s;
var reg=/(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)/
alert(reg.test(str));
}

--------------------------------------------------------------------------------------

---------------------------------------------------------------------------------

//檢驗法人代碼
function isCorporationCode(s){
var patrn=/^(\d){15}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗登錄名：只能輸入5-20個(gè)以字母開(kāi)頭、可帶數字、“_”、“.”的字串
function isRegisterUserName(s)
{
var patrn=/^[a-zA-Z]{1}([a-zA-Z0-9._]){4,19}$/;
if (!patrn.exec(s)) return false
return true
}
//校驗用戶(hù)姓名：只能輸入1-30個(gè)以字母開(kāi)頭的字串
function isTrueName(s)
{
var patrn=/^[^`~!@#$%^&*()+-=|\\\[\]\{\}:;\‘\,.<>/? 0-9]{2,19}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗密碼：只能輸入6-15個(gè)字母、數字
function isPasswd(s)
{
var patrn=/^[a-zA-Z0-9]{6,15}$/;
if (!patrn.exec(s)) return false
return true
}

//檢驗體重
function isAvoirdupois(s)
{
var patrn=/^[1-9]{1}[0-9]{0,2}$/;
var patrn2=/^[1-9]{1}$/;
var intPart=s.indexOf(‘.‘);
var decPart=s.lastIndexOf(‘.‘);
if (intPart==-1 && patrn.exec(s) && eval(s)>=2 && eval(s)<=200) return true
if (intPart!=decPart || intPart==0 || intPart+2!=s.length) return false
if (!patrn.exec(s.substring(0,intPart)) || !patrn2.exec(s.substring(decPart+1))) return false
if (eval(s)<2 || eval(s)>200) return false
return true
}

//校驗普通電話(huà)、傳真號碼：可以“+”開(kāi)頭，除數字外，可含有“-”
function isTel(s)
{
var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$/;
if (!patrn.exec(s)) return false
return true
}

//校驗手機號碼：必須以數字開(kāi)頭，除數字外，可含有“-”
function isMobile(s)
{
var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$/;
if (!patrn.exec(s)) return false
return true
}

//校驗地區代碼
function isAreaCode(s)
{
var patrn=/^(\d){6}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗郵政編碼
function isPostalCode(s)
{
var patrn=/^[1-9]{1}(\d){5}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗搜索關(guān)鍵字
function isSearch(s)
{
var patrn=/^[^`~!@#$%^&*()+=|\\\[\]\{\}:;\‘\,.<>/? ]{1}[^`~!@$%^&()+=|\\\[\]\{\}:;\‘\,.<>?]{0,19}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗是否為ip地址
function isIP(s)
{
var patrn=/^[0-9.]{1,20}$/;
if (!patrn.exec(s)) return false
return true
}

//檢驗頁(yè)碼是否正確
function isPage(s)
{
var patrn=/^[1-9]{1}[0-9]{0,2}$/;
if (!patrn.exec(s)) return false
return true
}

//表單輸入值錯誤提示
function vErr(o,s){
alert(s);
if (o) o.focus();
return false;
}

//判斷單選
function chkRadio(o){
for (i=0;iif (o[i].checked) return true;
}
return false;
}
//====================================表單類(lèi)================================
// 文件上傳過(guò)程中判斷文件類(lèi)型
/*

/

//表單的值不能為空
function isNull(elem){
//var pattern=/^\s+|\s+$/;
if(elem.replace(/(^\s+|\s$)/g, "")==""){
return false;
}else{
return true;
}
}
//不能超過(guò)imax字符
function imax(elem){
if(elem.length>imax){
return false;
}else{
return true;
}
}
//不能少于imix字符
function imix(elem){
if(elem.lengthreturn false;
}else{
return true;
}
}
//輸入為中文判斷
function isChinese(elem){
var pattern=/[^\x00-\xff]/g;
if(pattern.test(elem)){
//包含中文
return false;
}else{
//不包含中文
return true;
}
}

/ *********************************************************************************************************************

.cMenu {
FILTER: alpha(opacity=0);BACKGROUND-COLOR: #D6D3CE;BORDER-BOTTOM: #666666 2px solid; BORDER-LEFT: #E4E4E4 2px solid; BORDER-RIGHT: #666666 2px solid; BORDER-TOP: #E4E4E4 2px solid; COLOR: #000000; CURSOR: default; FONT-SIZE: 9pt; color:#000000;FONT-WEIGHT: normal; LINE-HEIGHT: 20px; POSITION: absolute; VISIBILITY: hidden; WIDTH: 110px
}
.menuitems {
font-size:9pt;
MARGIN: 2px;
PADDING-BOTTOM: 0px;
PADDING-LEFT: 15px;
PADDING-RIGHT: 3px;
PADDING-TOP: 0px;
}

<!--[if IE]>
onmouseover=highlightie5()>

電話(huà)號碼的驗證

要求：
　　(1)電話(huà)號碼由數字、"("、")"和"-"構成
　　(2)電話(huà)號碼為3到8位
　　(3)如果電話(huà)號碼中包含有區號，那么區號為三位或四位
　　(4)區號用"("、")"或"-"和其他部分隔開(kāi)
　　(5)移動(dòng)電話(huà)號碼為11或12位，如果為12位,那么第一位為0
　　(6)11位移動(dòng)電話(huà)號碼的第一位和第二位為"13"
　　(7)12位移動(dòng)電話(huà)號碼的第二位和第三位為"13"
　　根據這幾條規則，可以與出以下正則表達式：
　　(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)

<script language="javascript">
function PhoneCheck(s) {
var str=s;
var reg=/(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)/
alert(reg.test(str));
}
</script>
<input type=text name="iphone">
<input type=button onclick="PhoneCheck(document.all.iphone.value)" value="Check">
----------------------------------------------------------------------------------------

<%
‘********************************************
‘函數功能：正則表達式校驗
‘參數patrn：要校驗的類(lèi)型
‘ "User" - 用戶(hù)名
‘ "Truename" - 英文姓名
‘ "Passwd" - 密碼
‘ "Tel" - 電話(huà)/傳真
‘ "Mobil" - 手機
‘ "Date" - 日期（格式：yyyy-mm-dd）
‘ "Email" - 電子郵件
‘ "Postalcode" - 郵政編碼
‘ "Search" - 搜索關(guān)鍵字
‘ "Int" - 整數
‘參數strng：要校驗的字串
‘返回值：校驗結果，正確返回true，錯誤返回false
‘********************************************
Function IsVerify(patrn,strng)
strng=Trim(strng)
Select Case patrn
Case "User" ‘用戶(hù)名
patrn="^[a-z]{1}([a-z0-9]|[._]){2,19}$"
Case "Truename" ‘英文姓名
patrn="^[a-zA-Z]{1,30}$"
Case "Passwd" ‘密碼
patrn="^(\w){6,20}$"
Case "Tel" ‘電話(huà)/傳真
patrn="^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$"
Case "Mobil" ‘手機
patrn="^(\d)+[-]?(\d){6,12}$"
Case "Date" ‘日期（格式：yyyy-mm-dd）
patrn="^[12]{1}(\d){3}[-][01]?(\d){1}[-][0123]?(\d){1}$"
Case "Email" ‘電子郵件
patrn="^((\w)|[-]|[.])+@(((\w)|[-])+[.])+[a-z]{2,4}$"
Case "Postalcode" ‘郵政編碼
patrn="^[a-z0-9 ]{3,12}$"
Case "Search" ‘搜索關(guān)鍵字
patrn="^[^`~!@#$%^&*()+=|\\\[\]\{\}:;\‘\,.<>/?]{1}[^`~!@$%^&()+=|\\\[\]\{\}:;\‘\,.<>?]{0,19}$"
Case "Int" ‘整數
patrn="^[1-9]{1}[0-9]{0,6}$"
Case "Array"
patrn="^[0-9]{1}([0-9]|[\,]){0,150}$"
End Select
Dim regEx
Dim Match
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
Matches = regEx.test(strng)
IsVerify = Matches
Set regEx = Nothing
End Function

‘********************************************
‘函數功能：對輸入框的特殊字串進(jìn)行過(guò)濾保存
‘參數strPass：過(guò)濾前的字符串
‘返回值：過(guò)濾后的字符串
‘********************************************
Function SQLencode(byVal strPass)
strPass = Replace(strPass, "&", "&")
strPass = Replace(strPass, "<", "<")
strPass = Replace(strPass, ">", ">")
strPass = Replace(strPass, """", """)
strPass = Replace(strPass, "‘", "‘")
strPass = Replace(strPass, " ", "　")
strPass = Replace(strPass,chr(13)&chr(10),"<br/>")
SQLencode = strPass
End Function

‘********************************************
‘函數功能：對SQLencode函數過(guò)濾后的字符串進(jìn)行還原
‘參數strPass：經(jīng)過(guò)過(guò)濾后的字符串
‘返回值：還原的過(guò)濾前的字符串
‘********************************************
Function SQLdecode(byVal strPass)
If Not isNull(strPass) Then
strPass = Replace(strPass, "<", "<")
strPass = Replace(strPass, ">", ">")
strPass = Replace(strPass, ""","""" )
strPass = Replace(strPass, "‘","‘" )
strPass = Replace(strPass,"<br/>",chr(13)&chr(10))
End If
SQLdecode = strPass
End Function

‘********************************************
‘函數功能：生成隨機密碼（字符為數字與大小寫(xiě)字母集合）
‘參數length：密碼長(cháng)度
‘返回值：隨機密碼
‘********************************************
Function random(length)
Dim n,str
rnds=""
Randomize
For i=1 To length
n=Int(75*Rnd+48)
If (n>57 and n<65) Or (n>90 and n<97) Then
i=i-1
Else
rnds=rnds&Chr(n)
End If
Next
random=rnds
End Function

‘********************************************
‘函數功能：對密碼進(jìn)行加密/解密（最大長(cháng)度為15位）
‘********************************************
Function Encrypt(preString)
Dim pwds,s
pwds=""
s=Left(preString,15)
For i=1 To Len(s)
seed=170-Asc(Mid(s,i,1))-i
pwds=pwds & Chr(seed)
Next
Encrypt=pwds
End Function

‘********************************************
‘函數功能：格式化當前時(shí)間字串
‘參數：無(wú)
‘返回值：返回當前時(shí)間的純數字字符串方式的表示（例如：當前時(shí)間2001-10-3 2:34:6，返回字符串"20011003023406"）
‘********************************************
Function TheDate()
y=year(date())
m=month(date())
d=day(date())
h=Hour(time())
n=Minute(time())
s=Second(time())
If Len(m)=1 Then m="0"&m
If Len(d)=1 Then d="0"&d
If Len(h)=1 Then h="0"&h
If Len(n)=1 Then n="0"&n
If Len(s)=1 Then s="0"&s
thedate=y&m&d&h&n&s
End Function

‘********************************************
‘函數功能：返回字符串的長(cháng)度
‘參數：字符串
‘返回值：字符串長(cháng)度
‘********************************************
Function strLen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
End Function

‘********************************************
‘函數功能：發(fā)送郵件通知
‘參數：字符串
‘返回值：成功/失敗
‘********************************************
Function SendMail(ToAddress, Subject, Body)
On Error Resume Next
Set objMail = Server.CreateObject("JMail.Message")
objMail.From = ADR_Email
objMail.FromName = "ADR管理中心"
objMail.Subject = Subject
objMail.AddRecipient ToAddress
objMail.Body = Body
If objMail.Send("") Then
SendMail = True
Else
SendMail = False
End If
If Err.Number<> 0 Then SendMail = False
Set objMail = Nothing
On Error Goto 0
End Function
%>
-----------------------------------------------------------------------------------

//檢驗法人代碼
function isCorporationCode(s){
var patrn=/^(\d){15}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗登錄名：只能輸入5-20個(gè)以字母開(kāi)頭、可帶數字、“_”、“.”的字串
function isRegisterUserName(s)
{
var patrn=/^[a-zA-Z]{1}([a-zA-Z0-9._]){4,19}$/;
if (!patrn.exec(s)) return false
return true
}
//校驗用戶(hù)姓名：只能輸入1-30個(gè)以字母開(kāi)頭的字串
function isTrueName(s)
{
var patrn=/^[^`~!@#$%^&*()+-=|\\\[\]\{\}:;\‘\,.<>/? 0-9]{2,19}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗密碼：只能輸入6-15個(gè)字母、數字
function isPasswd(s)
{
var patrn=/^[a-zA-Z0-9]{6,15}$/;
if (!patrn.exec(s)) return false
return true
}

//檢驗體重
function isAvoirdupois(s)
{
var patrn=/^[1-9]{1}[0-9]{0,2}$/;
var patrn2=/^[1-9]{1}$/;
var intPart=s.indexOf(‘.‘);
var decPart=s.lastIndexOf(‘.‘);
if (intPart==-1 && patrn.exec(s) && eval(s)>=2 && eval(s)<=200) return true
if (intPart!=decPart || intPart==0 || intPart+2!=s.length) return false
if (!patrn.exec(s.substring(0,intPart)) || !patrn2.exec(s.substring(decPart+1))) return false
if (eval(s)<2 || eval(s)>200) return false
return true
}

//校驗普通電話(huà)、傳真號碼：可以“+”開(kāi)頭，除數字外，可含有“-”
function isTel(s)
{
var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$/;
if (!patrn.exec(s)) return false
return true
}

//校驗手機號碼：必須以數字開(kāi)頭，除數字外，可含有“-”
function isMobile(s)
{
var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$/;
if (!patrn.exec(s)) return false
return true
}

//校驗地區代碼
function isAreaCode(s)
{
var patrn=/^(\d){6}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗郵政編碼
function isPostalCode(s)
{
var patrn=/^[1-9]{1}(\d){5}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗搜索關(guān)鍵字
function isSearch(s)
{
var patrn=/^[^`~!@#$%^&*()+=|\\\[\]\{\}:;\‘\,.<>/? ]{1}[^`~!@$%^&()+=|\\\[\]\{\}:;\‘\,.<>?]{0,19}$/;
if (!patrn.exec(s)) return false
return true
}

//校驗是否為ip地址
function isIP(s)
{
var patrn=/^[0-9.]{1,20}$/;
if (!patrn.exec(s)) return false
return true
}

//檢驗頁(yè)碼是否正確
function isPage(s)
{
var patrn=/^[1-9]{1}[0-9]{0,2}$/;
if (!patrn.exec(s)) return false
return true
}

//表單輸入值錯誤提示
function vErr(o,s){
alert(s);
if (o) o.focus();
return false;
}

//判斷單選
function chkRadio(o){
for (i=0;i<o.length;i++){
if (o[i].checked) return true;
}
return false;
}