全角以半角互转:
/*
****************************
* 半角<=>全角 *
* [NB联盟] *
* Writer YuPing *
****************************
*参数说明:
* str:要转换的字符串
* flag:标记，为０时半转全，为非０时全转半
* 返回值类型：字符串
****************************
*/
function DBC2SBC(str,flag) {
var i;
var result='';
if (str.length<=0) {alert('字符串参数出错');return false;}
for(i=0;i{ str1=str.charCodeAt(i);
if(str1<125&&!flag)
result+=String.fromCharCode(str.charCodeAt(i)+65248);
else
result+=String.fromCharCode(str.charCodeAt(i)-65248);
}
return result;
}
//示例：document.write(DBC2SBC("１３１２３４５４５６７",1))

过滤联系信息方法

public Function ReplaceStr(Textstr,Pattern_str) '用这个函数来滤除！Textstr是

要过滤的字符串，Pattern_str是正则表达式
Dim Str,re
Str=Textstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern=Pattern_str
Str=re.Replace(Str, "*")
Set Re=Nothing
ReplaceStr=Str
End Function
title=ReplaceStr(title,"/^(([0\+]\d{2,3}-)?(0\d{2,3})-)(\d{7,8})(-(\d

{3,}))?$/") '过滤电话 标题
title=ReplaceStr(title,"/^(?:13\d|15[012356789])-?\d{5}(\d{3}|\*{3})$/")'过

滤手机
title=ReplaceStr(title,"\d{5,9}")'过滤QQ
WyName=ReplaceStr(WyName,"/^(([0\+]\d{2,3}-)?(0\d{2,3})-)(\d{7,8})(-(\d

{3,}))?$/") '过滤电话 物业名称
WyName=ReplaceStr(WyName,"/^(?:13\d|15[012356789])-?\d{5}(\d{3}|\*{3})$/")'

过滤手机
WyName=ReplaceStr(WyName,"\d{5,9}")'过滤QQ
Memo=ReplaceStr(Memo,"/^(([0\+]\d{2,3}-)?(0\d{2,3})-)(\d{7,8})(-(\d{3,}))?

$/") '过滤电话 备注
Memo=ReplaceStr(Memo,"/^(?:13\d|15[012356789])-?\d{5}(\d{3}|\*{3})$/")'过滤

手机
Memo=ReplaceStr(Memo,"\d{5,9}")'过滤QQ
'--------------------过滤相关联系方式信息----------------------------------

autocomplete="off"

onkeyup="value=value.replace('０','0').replace('１','1').replace('２','2').replace('３', '3').replace('４','4').replace('５','5').replace('６','6').replace('７', '7').replace('８','8').replace('９','9').replace('——','-');" onbeforepatel_rste="clipboardData.tel_rsetData('tel_rs',clipboardData.getData('tel_rs').replace('０','0').replace('１','1').replace('２','2').replace('３', '3').replace('４','4').replace('５','5').replace('６','6').replace('７', '7').replace('８','8').replace('９','9').replace('——','-'))"