Pergunta : Encontrar e substituir centenas de linha de código de VBScript através da indicação de SQL

Eu pude com sucesso encontrar e substituir o código de VBscript através de uma indicação da atualização do SQL, mas trabalha somente com uma linha de código de VBscript. Esta indicação é class= " lineNumbers " >

1 do >

update = substitui (converso (varchar (máximo), xaoProperties), dos “preço termas”, dos “preço padrão termas ")
DE [M1_TJ]. [dbo]. [FormDefinitions]
ONDE o xaoFormID gosta de “%fcy%” e de xaoControlName como “LBLSPAPRICE”
necessidade " desobstruída " de >

I do class= de 
1 do >
 (
           , 
           , 
           , 
           , 
           , )
a necessidade " desobstruída " de >

I do class= de 
1 do >

 função velha de UpdatePriceTag do `
Função UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + “$”
	Chamada RemovePriceTag (cControlName)
	Se direito (controles (cControlName). Subtítulo, 10) = “(incluído)” então
		Controles (cControlName). Subtítulo = saido (controles (cControlName). Subtítulo, Len (controles (cControlName). Subtítulo) - Len (Chr (13) + “(incluído) "))
	Terminar se
	Ajustar o rsPrice = o CreateObject (“ADODB.Recordset”)
	rsPrice.Open “selecionam * de PartUnitSalePrices onde imhpartid =” & App.AddQuotes (cPartID) & “e imhpartrevisionid = “A” ordem pelo desc do imhstartdate”, conexão, adOpenStatic, adLockBatchOptimistic, adCmdText
	Se não rsPrice.EOF então
		CPrice = CStr (redondo (rsPrice.Fields (“imhUnitSalePrice”). Valor, 2))
		CPrice = cPrefix + AddCents (CPrice, verdadeiros)
		Controles (cControlName). Subtítulo = controles (cControlName). Subtítulo + CPrice
	Terminar se
Terminar a função
class= >

with de 
1 do >

 função nova de UpdatePriceTag do `
Função UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + “$”
	Chamada RemovePriceTag (cControlName)
	Se direito (controles (cControlName). Subtítulo, 10) = “(incluído)” então
		Controles (cControlName). Subtítulo = saido (controles (cControlName). Subtítulo, Len (controles (cControlName). Subtítulo) - Len (Chr (13) + “(incluído) "))
	Terminar se
	Ajustar o rsPrice = o CreateObject (“ADODB.Recordset”)
	rsPrice.Open “selecionam * de PartUnitSalePrices onde imhpartid =” & App.AddQuotes (cPartID) & “e imhpartrevisionid = “A” ordem pelo desc do imhstartdate”, conexão, adOpenStatic, adLockBatchOptimistic, adCmdText
	Se não rsPrice.EOF então
		Se cPartID = “ATRALINTAS” então
		CPrice = CStr (redondo (rsPrice.Fields (“imhUnitSalePrice”). Valor, 2))
		*cLintPots de Cprice = de CDbl (CPrice)
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, verdadeiros)
		Controles (cControlName). Subtítulo = controles (cControlName). Subtítulo + CPrice
		Mais
		CPrice = CStr (redondo (rsPrice.Fields (“imhUnitSalePrice”). Valor, 2))
		CPrice = cPrefix + AddCents (CPrice, verdadeiros)
		Controles (cControlName). Subtítulo = controles (cControlName). Subtítulo + CPrice
		Terminar se
	Terminar se
Terminar a função
o class= >

I de 

Thanks!! J

  
  class= do 

Resposta : Encontrar e substituir centenas de linha de código de VBScript através da indicação de SQL

Você poderia tentar usar a biblioteca do jquery e fazer qualquer outra coisa semelhante.
incluir a biblioteca do jquery na cabeça do HTML

$ (original) .ready (função () {

$ (“entrada [type=hidden] ").each (função () {//captures e empacota todos os elementos escondidos
  valor = $ (este) .value;    ///this começ o valor para cada um dos elementos escondidos um de cada vez
    chamada do ajax de ///put aqui.  cada valor escondido do elemento será processado um em um laço do tempo…
   });
});