ASP常用函数:CheckBoxScript()

 程序代码

<%
'功能:用来在指定CheckBox的哪几个值上打勾
'来源:http://www.cncms.com/asp.asp

Function CheckBoxScript(ByVal FormElement , ByVal ElementValue)
  CheckBoxScript = "<scr" & "ipt language=""javascript"" type=""text/Javascript"">" & vbCrLf & "String.PRototype."
  CheckBoxScript = CheckBoxScript & "ReallyDo=function(){return this.replace(/(^s*)|(s*$)/g,"""");}" & vbCrLf
  CheckBoxScript = CheckBoxScript & "var Jorkin = """ & ElementValue & """.split("","");" & vbCrLf
  CheckBoxScript = CheckBoxScript & "for (i = 0; i < " & FormElement & ".length; i++){" & vbCrLf
  CheckBoxScript = CheckBoxScript & "  for (j = 0; j < Jorkin.length; j++){" & vbCrLf
  CheckBoxScript = CheckBoxScript & "　  if (Jorkin[j].ReallyDo() == " & FormElement & "[i].value.ReallyDo()){" & vbCrLf
  CheckBoxScript = CheckBoxScript & "　　  " & FormElement & "[i].checked = true } } }</scr" & "ipt>" & vbCrLf
End Function
%>

例子:

 程序代码
<form name="Form1">
<input name="ReallyDo" type="checkbox" id="ReallyDo1" value="10" />10
<input name="ReallyDo" type="checkbox" id="ReallyDo2" value="20" />20
<input name="ReallyDo" type="checkbox" id="ReallyDo3" value="30" />30
<input name="ReallyDo" type="checkbox" id="ReallyDo4" value="40" />40
<input name="ReallyDo" type="checkbox" id="ReallyDo5" value="50" />50
</form>
<%=CheckBoxScript("Form1.ReallyDo","10,30, 50")%>

时间： 2024-03-19 15:54:35

ASP常用函数:CheckBoxScript()的相关文章

ASP常用函数收藏

函数 ************************************'取得IP地址'************************************Function Userip()Dim GetClientIP'如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

ASP常用函数:getIMG()

 目前还是有BUG的,最新的测试页面在: http://www.reallydo.com/getimg.asp 正则分析页面在: http://jorkin.reallydo.com/article.asp?id=380  发现BUG请在后面留言,谢谢. 1.31修正 src=后面有空格不能正确匹配.已修正. src=''为空时出错.已修正. 发现BUG: 图片路径有多个空格时只能保留一个.未修正. 2.18修正 图片路径有多个空格时只能保留一个的BUG.已修正. <% '功能:获取全部图片地址

ASP常用函数收藏乱七八糟未整理版_ASP基础

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

asp 常用函数用法_应用技巧

Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

asp 常用函数用法

Array()   FUNCTION: 返回一个数组   SYNTAX: Array(list)   ARGUMENTS: 字符,数字均可   EXAMPLE: <%   Dim myArray()   For i = 1 to 7   Redim Preserve myArray(i)   myArray(i) = WeekdayName(i)   Next   %>   RESULT: 建立了一个包含7个元素的数组myArray   myArray("Sunday",&

ASP常用函数收藏乱七八糟未整理版

<% '******************************************************************* '取得IP地址 '******************************************************************* Function Userip()     Dim GetClientIP     '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR&

ASP常用函数收集

函数 1.检查是否有效邮件地址FunctionCheckEmail(strEmail) Dimre Setre=NewRegExp re.Pattern="^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}$" re.IgnoreCase=True CheckEmail=re.Test(strEmail)EndFunction2.测试变量是否为空值,空值的含义包括:变量不存在/为空,对象为Nothing,0,空数组,字符串为空Function

ASP常用函数

1  数学函数 1.1 取整函数 int(x)       取不大于x的最大整数. fix(x)       舍去x的小数部分. 1.2 绝对值函数 abs(x)       求x的绝对值. 1.3 符号函数 sgn(x)       求x的符号代码,x为负数时函数值为-1 . 1.4 平方根函数 sqr(x)       求x的算术平方根,x必须大于0 . 1.5 指数函数 exp(x)       求以e为底x为指数的值. 1.6 对数函数 log(x)       求以e为底的对数函数值.

ASP常用函数:WriteLn() PrintLn()

 程序代码 <% '功能:输出字符串加换行 '来源:http://www.cncms.com/asp.asp Function WriteLn(sString)   Response.Write( sString & vbCrLf ) End Function %>  程序代码 <% '功能:输出字符串加HTML代码<br /> '来源:http://www.cncms.com/asp.asp Function PRintLn(sString)   Response.