AJAX 载入JS文件，载入CSS文件，载入JS函数，执行JS 。ASP应用
2017-07-07 16:53
381 查看
var filesadded = ""
function $(o){return document.getElementById(o);}
function XHConn()
{
var http = window.ActiveXObject ? new ActiveXObject("Microsoft.XMLHTTP") : new XMLHttpRequest();
this.connect = function(element,sURL,sMethod,sVars){
if(!http){$(element).innerHTML="<img src=images/loading.gif />初始化失败......";return false;}
sMethod = sMethod.toUpperCase();
try {
if (sMethod == "GET") {
http.open(sMethod, sURL+"?"+sVars, true);
http.setRequestHeader("Content-Type","text/html;encoding=GB2312");
sVars = "";
}else{
http.open(sMethod, sURL, true);
http.setRequestHeader("Method", "POST "+sURL+" HTTP/1.1");
http.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
}
http.onreadystatechange = function(){
if (http.readyState == 4){
if(http.status == 200){
if(http.responseText!=""){
var htmlText=http.responseText;
var DomJs=htmlText.match(/<load-js>[/s/S]+?<//load-js>/g);//获取载入JS文件
var DomCss=htmlText.match(/<load-css>[/s/S]+?<//load-css>/g);//获取载入CSS文件
var DomScript=htmlText.match(/<load-script>[/s/S]+?<//load-script>/g);//获取载入函数
var MyScript=htmlText.match(/<run-script>[/s/S]+?<//run-script>/g);//获取执行语句
htmlText=htmlText.replace(/<load-js>[/s/S]+?<//load-js>/g,"")//删除载入JS文件文本
htmlText=htmlText.replace(/<load-css>[/s/S]+?<//load-css>/g,"")//删除载入CSS文件文本
htmlText=htmlText.replace(/<load-script>[/s/S]+?<//load-script>/g,"")//删除载入函数文本
htmlText=htmlText.replace(/<run-script>[/s/S]+?<//run-script>/g,"")//删除执行语句文本
$(element).innerHTML=htmlText;//输出文本
//载入JS文件,以<load-js>开头</load-js>结束
if(DomJs!=null){
for(i=0;i<DomJs.length;i++){
DomJs[i]=DomJs[i].replace(/<load-js>/g,"");
DomJs[i]=DomJs[i].replace(/<//load-js>/g,"");
if (filesadded.indexOf("["+DomJs[i]+"]")==-1){
var headerDom=document.getElementsByTagName('head')[0];
var jsDom=document.createElement('script');
jsDom.setAttribute("type","text/javascript");
jsDom.setAttribute("src",DomJs[i]);
headerDom.appendChild(jsDom);
filesadded += "["+DomJs[i]+"]";
}
}
}
//载入CSS文件,以<load-css>开头</load-css>结束
if(DomCss!=null){
for(i=0;i<DomCss.length;i++){
DomCss[i]=DomCss[i].replace(/<load-css>/g,"");
DomCss[i]=DomCss[i].replace(/<//load-css>/g,"");
if (filesadded.indexOf("["+DomCss[i]+"]")==-1){
var headerDom=document.getElementsByTagName('head')[0];
var jsDom=document.createElement('link');
jsDom.setAttribute("rel", "stylesheet");
jsDom.setAttribute("type","text/javascript");
jsDom.setAttribute("href",DomCss[i]);
headerDom.appendChild(jsDom);
filesadded += "["+DomCss[i]+"]";
}
}
}
//载入JS函数,以<load-script>开头</load-script>结束
if(DomScript!=null){
for(i=0;i<DomScript.length;i++){
DomScript[i]=DomScript[i].replace(/<load-script>/g,"");
DomScript[i]=DomScript[i].replace(/<//load-script>/g,"");
var headerDom=document.getElementsByTagName('head').item[0];
var jsDom=document.createElement('script');
jsDom.type='text/javascript';
jsDom.language='javascript';
jsDom.defer=true;
jsDom.text=DomScript[i];
headerDom.appendChild(jsDom);
}
}
//执行JS,以<run-script>开头</run-script>结束
if(MyScript!=null){
for(i=0;i<MyScript.length;i++){
MyScript[i]=MyScript[i].replace(/<run-script>/g,"");
MyScript[i]=MyScript[i].replace(/<//run-script>/g,"");
eval(MyScript[i]);
}
}
}else{$(element).innerHTML="暂无数据......";}
}else{$(element).innerHTML="你所请求的页面发生异常！返回："+http.status;}
}//else{$(element).innerHTML="<img src=images/loading.gif />载入数据中......";}
};
http.send(sVars);
}
catch(z) { return false; }
return true;
};
return this;
}
function getFormData(formname) {
var dataString = "";
function addParam(name, value) {
dataString += (dataString.length > 0 ? "&" : "")
+ escape(name).replace(//+/g, "%2B") + "="
+ encodeURIComponent(escape(value ? value : ""));
}
var elemArray = $(formname).elements;
for (var i = 0; i < elemArray.length; i++) {
var element = elemArray[i];
var elemType = element.type.toUpperCase();
var elemName = element.name;
var elemId = element.id;
if (elemName) {
if (elemType == "TEXT"
|| elemType == "TEXTAREA"
|| elemType == "PASSWORD"
|| elemType == "HIDDEN")
addParam(elemName, element.value);
else if (elemType == "CHECKBOX" && element.checked)
addParam(elemName, element.value ? element.value : "On");
else if (elemType == "RADIO" && element.checked)
addParam(elemName, element.value);
else if (elemType.indexOf("SELECT") != -1)
for (var j = 0; j < element.options.length; j++) {
var option = element.options[j];
if (option.selected)
addParam(elemName,
option.value ? option.value : option.text);
}
}else if(elemId){
if (elemType == "TEXT"
|| elemType == "TEXTAREA"
|| elemType == "PASSWORD"
|| elemType == "HIDDEN")
addParam(elemId, element.value);
else if (elemType == "CHECKBOX" && element.checked)
addParam(elemId, element.value ? element.value : "On");
else if (elemType == "RADIO" && element.checked)
addParam(elemId, element.value);
else if (elemType.indexOf("SELECT") != -1)
for (var j = 0; j < element.options.length; j++) {
var option = element.options[j];
if (option.selected)
addParam(elemId,
option.value ? option.value : option.text);
}
}
}
return dataString;
}
//DIV名，交互页面，GET or POST，参数，表单名
function htmlupdate(element,url,method,data,formname){
var xh = new XHConn();
if($(formname)){data+="&"+getFormData(formname);}
xh.connect(element,url,method,data);
}
-------------------------------------------------------------------------------------
ASP调用
<script language="JavaScript" src="returnhtm.js" type="text/javascript"></script>
<script>htmlupdate('reg_main','UserCheck.asp','GET','cmd=1');</script>
<input type="button" value="创建用户帐户" onclick="this.disabled=true;htmlupdate('temp','/UserCheck.asp','GET','cmd=3','user_reg');this.disabled=false;" name="sbfrm"/>
<input name="UserName" type="text" class="myinput" id="UserName" onBlur="JavaScript:htmlupdate('user_show','/UserCheck.asp','POST','cmd=2','user_reg');" />
-------------------------------------------------------------------------------------
UserCh
a18e
eck.asp
-------------------------------------------------------------------------------------
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Response.CharSet = "GB2312"
cmd=cint(request("cmd"))
Select Case cmd
Case 1
..........................................
Case 2
UserName=trim(unescape(request("UserName")))
if RegExpTest("^[@./-_A-Za-z0-9/u4E00-/u9FA5]{4,20}$",UserName)=false then
response.write "<img src=/images/ERROR.GIF /> <font color=#FF0000>由4-20位的中英文与字符@.-_组成!</font>"
else
sql="select * from dv_user where username='"&UserName&"'"
set rs=conn.execute(sql)
if not rs.eof then
Response.write "<img src=/images/ERROR.GIF /> <font color=#FF0000>该帐号已经存在!</font>"
else
Response.write "<img src=/images/RIGHT.GIF />"
end if
set rs=nothing
end if
Case 3
UserName=trim(unescape(request("UserName")))
if RegExpTest("^[@./-_A-Za-z0-9/u4E00-/u9FA5]{4,20}$",UserName)=false then
response.write "<run-script>alert('用户帐号由4-20个英文字母或数字、中文、字符@.-_等组成!');$('UserName').focus();</run-script>"
response.end
else
sql="select * from dv_user where username='"&UserName&"'"
set rs=conn.execute(sql)
if not rs.eof then
Response.write "<run-script>alert('该帐号已经存在!');$('UserName').focus();</run-script>"
response.end
end if
set rs=nothing
end if
nickname=trim(unescape(request("nickname")))
if RegExpTest("^[A-Za-z0-9/u4E00-/u9FA5]{1,20}$",nickname)=false then
Response.write "<run-script>alert('昵称必须是1-20位的中英文组成!');$('nickname').focus();</run-script>"
response.end
end if
UserPassword=trim(unescape(request("UserPassword")))
if RegExpTest("^[A-Za-z0-9]{4,20}$",UserPassword)=false then
Response.write "<run-script>alert('密码由4-20个英文字母或数字组成!');$('UserPassword').focus();</run-script>"
response.end
end if
UserPassword1=trim(unescape(request("UserPassword1")))
if UserPassword<>UserPassword1 then
Response.write "<run-script>alert('您两次输入的密码不一致,请确认!');$('UserPassword1').focus();</run-script>"
response.end
end if
UserEmail=trim(unescape(request("UserEmail")))
if RegExpTest("^([a-z0-9]*[-_]?[a-z0-9]+)*@([a-z0-9]*[-_]?[a-z0-9]+)+[/.][a-z]{2,3}([/.][a-z]{2})?$",UserEmail)=false then
Response.write "<run-script>alert('Email地址格式不正确!');$('UserEmail').focus();</run-script>"
response.end
end if
getcode=trim(unescape(request("getcode")))
if getcode<>Trim(Session("getCode")) then
Response.write "<run-script>alert('验证码错误！');$('getcode').focus();</run-script>"
response.end
end if
session.contents.remove("getCode")
UserFace=Trim(unescape(request("UserFace")))
UserWidth=Trim(unescape(request("UserWidth")))
UserHeight=Trim(unescape(request("UserHeight")))
UserIM=Trim(unescape(request("UserIM")))
UserClass=Trim(unescape(request("UserClass")))
userWealth=Trim(unescape(request("userWealth")))
userEP=Trim(unescape(request("userEP")))
userCP=Trim(unescape(request("userCP")))
UserFav=Trim(unescape(request("UserFav")))
UserInfo=Trim(unescape(request("UserInfo")))
UserSetting=Trim(unescape(request("UserSetting")))
UserGroupID=Trim(unescape(request("UserGroupID")))
TitlePic=Trim(unescape(request("TitlePic")))
TruePassWord=Trim(unescape(request("TruePassWord")))
UserToday=Trim(unescape(request("UserToday")))
CommID=Trim(unescape(request("CommID")))
sql="set nocount on;insert into Dv_User (username,UserPassword,UserEmail,UserFace,UserWidth,UserHeight,UserIM,UserClass,userWealth,userEP,userCP,UserFav,UserInfo,UserSetting,UserGroupID,TitlePic,TruePassWord,UserToday,c_id) values ('"&username&"','"&md5(md5(UserPassword,16),32)&"','"&UserEmail&"','"&UserFace&"',"&UserWidth&","&UserHeight&",'"&UserIM&"','"&UserClass&"',"&userWealth&","&userEP&","&userCP&",'"&UserFav&"','"&nickname&UserInfo&"','"&UserSetting&"',"&UserGroupID&",'"&TitlePic&"','"&TruePassWord&"','"&UserToday&"',"&CommID&");select
@@identity as newid;SET NOCOUNT OFF"
set rs=conn.execute(sql)
'Response.Cookies("user_userid")=rs("newid")
'Response.Cookies("user_username")=UserName
'Response.Cookies("user_pass")=md5(md5(now(),16),32)
set rs=nothing
Response.Write "<run-script>location.href='my_user.asp?CommID="&CommID&"';</run-script>"
End Select
'正则表表达式验证函数 patrn-正则表达式 strng-需要验证的字符串
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
RegExpTest = retVal '返回不尔值，不符合就返回false，符合为true
End Function
%>
function $(o){return document.getElementById(o);}
function XHConn()
{
var http = window.ActiveXObject ? new ActiveXObject("Microsoft.XMLHTTP") : new XMLHttpRequest();
this.connect = function(element,sURL,sMethod,sVars){
if(!http){$(element).innerHTML="<img src=images/loading.gif />初始化失败......";return false;}
sMethod = sMethod.toUpperCase();
try {
if (sMethod == "GET") {
http.open(sMethod, sURL+"?"+sVars, true);
http.setRequestHeader("Content-Type","text/html;encoding=GB2312");
sVars = "";
}else{
http.open(sMethod, sURL, true);
http.setRequestHeader("Method", "POST "+sURL+" HTTP/1.1");
http.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
}
http.onreadystatechange = function(){
if (http.readyState == 4){
if(http.status == 200){
if(http.responseText!=""){
var htmlText=http.responseText;
var DomJs=htmlText.match(/<load-js>[/s/S]+?<//load-js>/g);//获取载入JS文件
var DomCss=htmlText.match(/<load-css>[/s/S]+?<//load-css>/g);//获取载入CSS文件
var DomScript=htmlText.match(/<load-script>[/s/S]+?<//load-script>/g);//获取载入函数
var MyScript=htmlText.match(/<run-script>[/s/S]+?<//run-script>/g);//获取执行语句
htmlText=htmlText.replace(/<load-js>[/s/S]+?<//load-js>/g,"")//删除载入JS文件文本
htmlText=htmlText.replace(/<load-css>[/s/S]+?<//load-css>/g,"")//删除载入CSS文件文本
htmlText=htmlText.replace(/<load-script>[/s/S]+?<//load-script>/g,"")//删除载入函数文本
htmlText=htmlText.replace(/<run-script>[/s/S]+?<//run-script>/g,"")//删除执行语句文本
$(element).innerHTML=htmlText;//输出文本
//载入JS文件,以<load-js>开头</load-js>结束
if(DomJs!=null){
for(i=0;i<DomJs.length;i++){
DomJs[i]=DomJs[i].replace(/<load-js>/g,"");
DomJs[i]=DomJs[i].replace(/<//load-js>/g,"");
if (filesadded.indexOf("["+DomJs[i]+"]")==-1){
var headerDom=document.getElementsByTagName('head')[0];
var jsDom=document.createElement('script');
jsDom.setAttribute("type","text/javascript");
jsDom.setAttribute("src",DomJs[i]);
headerDom.appendChild(jsDom);
filesadded += "["+DomJs[i]+"]";
}
}
}
//载入CSS文件,以<load-css>开头</load-css>结束
if(DomCss!=null){
for(i=0;i<DomCss.length;i++){
DomCss[i]=DomCss[i].replace(/<load-css>/g,"");
DomCss[i]=DomCss[i].replace(/<//load-css>/g,"");
if (filesadded.indexOf("["+DomCss[i]+"]")==-1){
var headerDom=document.getElementsByTagName('head')[0];
var jsDom=document.createElement('link');
jsDom.setAttribute("rel", "stylesheet");
jsDom.setAttribute("type","text/javascript");
jsDom.setAttribute("href",DomCss[i]);
headerDom.appendChild(jsDom);
filesadded += "["+DomCss[i]+"]";
}
}
}
//载入JS函数,以<load-script>开头</load-script>结束
if(DomScript!=null){
for(i=0;i<DomScript.length;i++){
DomScript[i]=DomScript[i].replace(/<load-script>/g,"");
DomScript[i]=DomScript[i].replace(/<//load-script>/g,"");
var headerDom=document.getElementsByTagName('head').item[0];
var jsDom=document.createElement('script');
jsDom.type='text/javascript';
jsDom.language='javascript';
jsDom.defer=true;
jsDom.text=DomScript[i];
headerDom.appendChild(jsDom);
}
}
//执行JS,以<run-script>开头</run-script>结束
if(MyScript!=null){
for(i=0;i<MyScript.length;i++){
MyScript[i]=MyScript[i].replace(/<run-script>/g,"");
MyScript[i]=MyScript[i].replace(/<//run-script>/g,"");
eval(MyScript[i]);
}
}
}else{$(element).innerHTML="暂无数据......";}
}else{$(element).innerHTML="你所请求的页面发生异常！返回："+http.status;}
}//else{$(element).innerHTML="<img src=images/loading.gif />载入数据中......";}
};
http.send(sVars);
}
catch(z) { return false; }
return true;
};
return this;
}
function getFormData(formname) {
var dataString = "";
function addParam(name, value) {
dataString += (dataString.length > 0 ? "&" : "")
+ escape(name).replace(//+/g, "%2B") + "="
+ encodeURIComponent(escape(value ? value : ""));
}
var elemArray = $(formname).elements;
for (var i = 0; i < elemArray.length; i++) {
var element = elemArray[i];
var elemType = element.type.toUpperCase();
var elemName = element.name;
var elemId = element.id;
if (elemName) {
if (elemType == "TEXT"
|| elemType == "TEXTAREA"
|| elemType == "PASSWORD"
|| elemType == "HIDDEN")
addParam(elemName, element.value);
else if (elemType == "CHECKBOX" && element.checked)
addParam(elemName, element.value ? element.value : "On");
else if (elemType == "RADIO" && element.checked)
addParam(elemName, element.value);
else if (elemType.indexOf("SELECT") != -1)
for (var j = 0; j < element.options.length; j++) {
var option = element.options[j];
if (option.selected)
addParam(elemName,
option.value ? option.value : option.text);
}
}else if(elemId){
if (elemType == "TEXT"
|| elemType == "TEXTAREA"
|| elemType == "PASSWORD"
|| elemType == "HIDDEN")
addParam(elemId, element.value);
else if (elemType == "CHECKBOX" && element.checked)
addParam(elemId, element.value ? element.value : "On");
else if (elemType == "RADIO" && element.checked)
addParam(elemId, element.value);
else if (elemType.indexOf("SELECT") != -1)
for (var j = 0; j < element.options.length; j++) {
var option = element.options[j];
if (option.selected)
addParam(elemId,
option.value ? option.value : option.text);
}
}
}
return dataString;
}
//DIV名，交互页面，GET or POST，参数，表单名
function htmlupdate(element,url,method,data,formname){
var xh = new XHConn();
if($(formname)){data+="&"+getFormData(formname);}
xh.connect(element,url,method,data);
}
-------------------------------------------------------------------------------------
ASP调用
<script language="JavaScript" src="returnhtm.js" type="text/javascript"></script>
<script>htmlupdate('reg_main','UserCheck.asp','GET','cmd=1');</script>
<input type="button" value="创建用户帐户" onclick="this.disabled=true;htmlupdate('temp','/UserCheck.asp','GET','cmd=3','user_reg');this.disabled=false;" name="sbfrm"/>
<input name="UserName" type="text" class="myinput" id="UserName" onBlur="JavaScript:htmlupdate('user_show','/UserCheck.asp','POST','cmd=2','user_reg');" />
-------------------------------------------------------------------------------------
UserCh
a18e
eck.asp
-------------------------------------------------------------------------------------
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Response.CharSet = "GB2312"
cmd=cint(request("cmd"))
Select Case cmd
Case 1
..........................................
Case 2
UserName=trim(unescape(request("UserName")))
if RegExpTest("^[@./-_A-Za-z0-9/u4E00-/u9FA5]{4,20}$",UserName)=false then
response.write "<img src=/images/ERROR.GIF /> <font color=#FF0000>由4-20位的中英文与字符@.-_组成!</font>"
else
sql="select * from dv_user where username='"&UserName&"'"
set rs=conn.execute(sql)
if not rs.eof then
Response.write "<img src=/images/ERROR.GIF /> <font color=#FF0000>该帐号已经存在!</font>"
else
Response.write "<img src=/images/RIGHT.GIF />"
end if
set rs=nothing
end if
Case 3
UserName=trim(unescape(request("UserName")))
if RegExpTest("^[@./-_A-Za-z0-9/u4E00-/u9FA5]{4,20}$",UserName)=false then
response.write "<run-script>alert('用户帐号由4-20个英文字母或数字、中文、字符@.-_等组成!');$('UserName').focus();</run-script>"
response.end
else
sql="select * from dv_user where username='"&UserName&"'"
set rs=conn.execute(sql)
if not rs.eof then
Response.write "<run-script>alert('该帐号已经存在!');$('UserName').focus();</run-script>"
response.end
end if
set rs=nothing
end if
nickname=trim(unescape(request("nickname")))
if RegExpTest("^[A-Za-z0-9/u4E00-/u9FA5]{1,20}$",nickname)=false then
Response.write "<run-script>alert('昵称必须是1-20位的中英文组成!');$('nickname').focus();</run-script>"
response.end
end if
UserPassword=trim(unescape(request("UserPassword")))
if RegExpTest("^[A-Za-z0-9]{4,20}$",UserPassword)=false then
Response.write "<run-script>alert('密码由4-20个英文字母或数字组成!');$('UserPassword').focus();</run-script>"
response.end
end if
UserPassword1=trim(unescape(request("UserPassword1")))
if UserPassword<>UserPassword1 then
Response.write "<run-script>alert('您两次输入的密码不一致,请确认!');$('UserPassword1').focus();</run-script>"
response.end
end if
UserEmail=trim(unescape(request("UserEmail")))
if RegExpTest("^([a-z0-9]*[-_]?[a-z0-9]+)*@([a-z0-9]*[-_]?[a-z0-9]+)+[/.][a-z]{2,3}([/.][a-z]{2})?$",UserEmail)=false then
Response.write "<run-script>alert('Email地址格式不正确!');$('UserEmail').focus();</run-script>"
response.end
end if
getcode=trim(unescape(request("getcode")))
if getcode<>Trim(Session("getCode")) then
Response.write "<run-script>alert('验证码错误！');$('getcode').focus();</run-script>"
response.end
end if
session.contents.remove("getCode")
UserFace=Trim(unescape(request("UserFace")))
UserWidth=Trim(unescape(request("UserWidth")))
UserHeight=Trim(unescape(request("UserHeight")))
UserIM=Trim(unescape(request("UserIM")))
UserClass=Trim(unescape(request("UserClass")))
userWealth=Trim(unescape(request("userWealth")))
userEP=Trim(unescape(request("userEP")))
userCP=Trim(unescape(request("userCP")))
UserFav=Trim(unescape(request("UserFav")))
UserInfo=Trim(unescape(request("UserInfo")))
UserSetting=Trim(unescape(request("UserSetting")))
UserGroupID=Trim(unescape(request("UserGroupID")))
TitlePic=Trim(unescape(request("TitlePic")))
TruePassWord=Trim(unescape(request("TruePassWord")))
UserToday=Trim(unescape(request("UserToday")))
CommID=Trim(unescape(request("CommID")))
sql="set nocount on;insert into Dv_User (username,UserPassword,UserEmail,UserFace,UserWidth,UserHeight,UserIM,UserClass,userWealth,userEP,userCP,UserFav,UserInfo,UserSetting,UserGroupID,TitlePic,TruePassWord,UserToday,c_id) values ('"&username&"','"&md5(md5(UserPassword,16),32)&"','"&UserEmail&"','"&UserFace&"',"&UserWidth&","&UserHeight&",'"&UserIM&"','"&UserClass&"',"&userWealth&","&userEP&","&userCP&",'"&UserFav&"','"&nickname&UserInfo&"','"&UserSetting&"',"&UserGroupID&",'"&TitlePic&"','"&TruePassWord&"','"&UserToday&"',"&CommID&");select
@@identity as newid;SET NOCOUNT OFF"
set rs=conn.execute(sql)
'Response.Cookies("user_userid")=rs("newid")
'Response.Cookies("user_username")=UserName
'Response.Cookies("user_pass")=md5(md5(now(),16),32)
set rs=nothing
Response.Write "<run-script>location.href='my_user.asp?CommID="&CommID&"';</run-script>"
End Select
'正则表表达式验证函数 patrn-正则表达式 strng-需要验证的字符串
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
RegExpTest = retVal '返回不尔值，不符合就返回false，符合为true
End Function
%>
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- AJAX 载入JS文件，载入CSS文件，载入JS函数，执行JS 。ASP应用
- AJAX载入外部JS文件到页面并让其执行的方法（附源码）
- AJAX载入外部JS文件到页面并让其执行的方法（附源码）
- ASP.NET - Ajax UpLoadFile 多个大文件上传控件及应用范例
- 在Asp.net中动态添加css文件，js文件，控件
- 如何封装JS和CSS文件为服务器端控件---ASP.NET 2.0
- 简单ASP.NET AJAX 客户端应用：用JS直接调用WebServices方法
- Ajax跨域的解决办法：载入javascript(js)文件实现无刷新更新数据(转载)
- Asp.net中Js、Css文件压缩辅助类
- ASp.net动态加载js和css文件
- ASP.NET 2.0: 页面中链入的CSS、js文件带中文时需注意
- asp.net 中引用js文件和css文件的方法
- 如何封装JS和CSS文件封装为服务器端控件---ASP.NET 2.0
- 在Asp.net中动态添加css文件，js文件，控件
- 在Asp.Net头部动态加载css和js文件的方法(转)
- 如何在Asp.net 页面中添加CSS和JS的引用， 使得不是文件路径的限制
- 如何封装JS和CSS文件封装为服务器端控件---ASP.NET 2.0
- 如何封装JS和CSS文件封装为服务器端控件---ASP.NET 2.0
- GridView 72般绝技,Javascript与asp.net 实现Ajax多文件无刷新上传,在ASP.NET中执行URL重写经典方案
- ASP.NET 2.0: 页面中链入的CSS、js文件带中文时需注意