Questione : Trovare e sostituire le centinaia di linea di codice di VBScript via la dichiarazione di SQL

Ho potuto con successo trovare e sostituire il codice di VBscript via una dichiarazione dell'aggiornamento di SQL, ma funziona soltanto con una linea di codice di VBscript. Questa dichiarazione è class= " i lineNumbers " >

1 del >

update = sostituisce (convertito (varchar (massimo), xaoProperties), “prezzo della stazione termale„, “prezzo standard della stazione termale ")
DA [M1_TJ]. [dbo]. [FormDefinitions]
DOVE il xaoFormID gradice “%fcy%„ e il xaoControlName come “LBLSPAPRICE„
necessità " libera " di >

I del class= di 
1 del >
 (
           , 
           , 
           , 
           , 
           , )
la necessità " libera " di >

I del class= di 
1 del >

 vecchia funzione di UpdatePriceTag del `
Funzione UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + “$„
	Chiamata RemovePriceTag (cControlName)
	Se di destra (comandi (cControlName). Titolo, 10) = “(incluso)„ allora
		Comandi (cControlName). Titolo = andato (comandi (cControlName). Titolo, Len (comandi (cControlName). Titolo) - Len (Chr (13) + “(incluso) "))
	Concluder se
	Regolare il rsPrice = CreateObject (“ADODB.Recordset„)
	rsPrice.Open “selezionano * a partire da PartUnitSalePrices dove imhpartid =„ & App.AddQuotes (cPartID) & “e imhpartrevisionid = “A„ ordine dal desc del imhstartdate„, il collegamento, adOpenStatic, adLockBatchOptimistic, adCmdText
	Se non rsPrice.EOF allora
		CPrice = CStr (rotondo (rsPrice.Fields (“imhUnitSalePrice„). Valore, 2))
		CPrice = cPrefix + AddCents (CPrice, allineare)
		Comandi (cControlName). Titolo = comandi (cControlName). Titolo + CPrice
	Concluder se
Concludere la funzione
class= >

with di 
1 del >

 nuova funzione di UpdatePriceTag del `
Funzione UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + “$„
	Chiamata RemovePriceTag (cControlName)
	Se di destra (comandi (cControlName). Titolo, 10) = “(incluso)„ allora
		Comandi (cControlName). Titolo = andato (comandi (cControlName). Titolo, Len (comandi (cControlName). Titolo) - Len (Chr (13) + “(incluso) "))
	Concluder se
	Regolare il rsPrice = CreateObject (“ADODB.Recordset„)
	rsPrice.Open “selezionano * a partire da PartUnitSalePrices dove imhpartid =„ & App.AddQuotes (cPartID) & “e imhpartrevisionid = “A„ ordine dal desc del imhstartdate„, il collegamento, adOpenStatic, adLockBatchOptimistic, adCmdText
	Se non rsPrice.EOF allora
		Se cPartID = “ATRALINTAS„ allora
		CPrice = CStr (rotondo (rsPrice.Fields (“imhUnitSalePrice„). Valore, 2))
		*cLintPots di CDbl = di Cprice (CPrice)
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, allineare)
		Comandi (cControlName). Titolo = comandi (cControlName). Titolo + CPrice
		Altrimenti
		CPrice = CStr (rotondo (rsPrice.Fields (“imhUnitSalePrice„). Valore, 2))
		CPrice = cPrefix + AddCents (CPrice, allineare)
		Comandi (cControlName). Titolo = comandi (cControlName). Titolo + CPrice
		Concluder se
	Concluder se
Concludere la funzione
il class= >

I di 

Thanks!! J

  
  class= del 

Risposta : Trovare e sostituire le centinaia di linea di codice di VBScript via la dichiarazione di SQL

Potreste provare a usando la biblioteca di jquery e fare qualcosa di simile.
includere la biblioteca di jquery nella testa del HTML

$ (documento) .ready (funzione () {

$ (“input [type=hidden] ").each (funzione () {//captures ed impacca tutti gli elementi nascosti
  valore = $ (questo) .value;    ///this otterrà il valore per ciascuno degli elementi nascosti uno alla volta
    chiamata del ajax di ///put qui.  ogni valore nascosto dell'elemento sarà procedato un alla volta… ciclo
   });
});