Funções comuns para ASP: CheckScript ()

Recomendado: funções comuns para asp: str4js ()
Código do programa % 'Função: Definição para converter para JavaScript String Output (Convenção em JavaScript, Strings de cita em citações únicas)' Fonte: http://www.cncms.com/asp.asp function str4js (sString) str4js = sString if isNull (sString), então str4js =: exiT) str4js = sstring if isNull (sString), então str4js =: exiT).

Código do programa

<%

'Função: usado para verificar quais valores da caixa de seleção especificada

'Fonte: http://www.cncms.com/asp.asp

Caixa de seleção da função (ByVal FormElement, ByVal ElementValue)

CheckScript = <scr & ipt idioma = javascript type = text/javascript> & vbcrlf & string.prototype.

CheckScript = CheckScript & realmentedo = function () {return this.replace (/(^/s*) | (/s*$)/g,);} & vbcrlf

Caixa de seleção = Caixa de seleção e var jorkin = & ElementValue & .split (,); & vbcrlf

CheckScript = CheckScript & for (i = 0; i <& formElement & .Length; i ++) {& vbcrlf

CheckScript = CheckScript & for (j = 0; j <jorkin.length; j ++) {& vbcrlf

CheckboxScript = CheckScript & if (jorkin [j] .Reallydo () == & FormElement & [i] .Value.Reallylydo ()) {& vbcrlf

CheckScript = CheckScript & & FormElement & [i] .checked = true}}} </scr & ipt> & vbcrlf

Função final

%>

exemplo:

Código do programa

<nome de forma = form1>

<nome de entrada = realmentedo tipo = ID da caixa de seleção = realmenteDO1 Valor = 10 /> 10

<nome de entrada = realmentedo tipo = ID da caixa de seleção = realmenteDO2 Valor = 20 /> 20

<nome de entrada = realmentedo tipo = ID da caixa de seleção = realmenteDO3 Valor = 30 /> 30

<nome de entrada = realmentedo tipo = ID da caixa de seleção = realmenteDO4 Valor = 40 /> 40

<nome de entrada = realmentedo tipo = ID da caixa de seleção = realmenteDO5 Valor = 50 /> 50

</morm>

<%= Caixa de seleção (form1.reallylydo, 10,30,50)%>

Compartilhar: Funções comuns de ASP: WRITELN () PRIMLN ()
Program code % 'Function: Output string plus line break' Source: http://www.cncms.com/asp.asp Function WriteLn(sString) Response.Write( sString vbCrLf ) End Function % Program code % 'Function: Output string plus HTML code br / 'Source: http://www.cncms.com/asp.asp Function PRintLn(sString) Res