Cuestión : Encontrar y substituir los centenares de línea de código de VBScript vía la declaración de SQL

He podido con éxito encontrar y substituir el código de VBscript vía una declaración de la actualización del SQL, pero trabaja solamente con una línea de código de VBscript. Esta declaración es class= " lineNumbers " >

1 del >

update = substituye (convertido (varchar (máximo), xaoProperties), “precio del balneario”, “precio estándar del balneario ")
DE [M1_TJ]. [dbo]. [FormDefinitions]
DONDE el xaoFormID tiene gusto del “%fcy%” y del xaoControlName como “LBLSPAPRICE”
necesidad " clara " de >

I del class= de 
1 del >
 (
           , 
           , 
           , 
           , 
           , )
la necesidad " clara " de >

I del class= de 
1 del >

 vieja función de UpdatePriceTag del `
Función UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + “$”
	Llamada RemovePriceTag (cControlName)
	Si es derecho (controles (cControlName). Subtítulo, 10) = “(incluido)” entonces
		Controles (cControlName). Subtítulo = ido (controles (cControlName). Subtítulo, Len (controles (cControlName). Subtítulo) - Len (Chr (13) + “(incluido) "))
	Terminar si
	Fijar el rsPrice = CreateObject (“ADODB.Recordset”)
	rsPrice.Open “seleccionan * de PartUnitSalePrices donde imhpartid =” y App.AddQuotes (cPartID) y “e imhpartrevisionid = “A” orden por el desc del imhstartdate”, conexión, adOpenStatic, adLockBatchOptimistic, adCmdText
	Si no rsPrice.EOF entonces
		CPrice = CStr (redondo (rsPrice.Fields (“imhUnitSalePrice”). Valor, 2))
		CPrice = cPrefix + AddCents (CPrice, verdades)
		Controles (cControlName). Subtítulo = controles (cControlName). Subtítulo + CPrice
	Terminar si
Terminar la función
class= >

with de 
1 del >

 nueva función de UpdatePriceTag del `
Función UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + “$”
	Llamada RemovePriceTag (cControlName)
	Si es derecho (controles (cControlName). Subtítulo, 10) = “(incluido)” entonces
		Controles (cControlName). Subtítulo = ido (controles (cControlName). Subtítulo, Len (controles (cControlName). Subtítulo) - Len (Chr (13) + “(incluido) "))
	Terminar si
	Fijar el rsPrice = CreateObject (“ADODB.Recordset”)
	rsPrice.Open “seleccionan * de PartUnitSalePrices donde imhpartid =” y App.AddQuotes (cPartID) y “e imhpartrevisionid = “A” orden por el desc del imhstartdate”, conexión, adOpenStatic, adLockBatchOptimistic, adCmdText
	Si no rsPrice.EOF entonces
		Si cPartID = “ATRALINTAS” entonces
		CPrice = CStr (redondo (rsPrice.Fields (“imhUnitSalePrice”). Valor, 2))
		*cLintPots de Cprice = de CDbl (CPrice)
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, verdades)
		Controles (cControlName). Subtítulo = controles (cControlName). Subtítulo + CPrice
		
		CPrice = CStr (redondo (rsPrice.Fields (“imhUnitSalePrice”). Valor, 2))
		CPrice = cPrefix + AddCents (CPrice, verdades)
		Controles (cControlName). Subtítulo = controles (cControlName). Subtítulo + CPrice
		Terminar si
	Terminar si
Terminar la función
el class= >

I de 

Thanks!! J

class= del 

Respuesta : Encontrar y substituir los centenares de línea de código de VBScript vía la declaración de SQL

Usted podría intentar usar la biblioteca del jquery y hacer algo similar.
incluir la biblioteca del jquery en la cabeza del HTML

$ (documento) .ready (función () {

$ (“entrada [type=hidden] ").each (función () {//captures y empaqueta todos los elementos ocultados
  valor = $ (éste) .value;    ///this conseguirá el valor para cada uno de los elementos ocultados uno a la vez
    llamada del ajax de ///put aquí.  cada valor ocultado del elemento será uno a la vez procesado… lazo
   });
});