Vraag : Vind en vervang honderden lijn van code VBScript via SQL verklaring

Ik heb met succes code VBscript via een SQL updateverklaring vinden en kunnen vervangen, maar het werkt slechts met één lijn van code VBscript. Deze verklaring is below

1:
2:
3:

update vastgestelde xaoProperties FormDefinitions = vervangen (varchar bekeerling ((maximum), xaoProperties), de „Prijs van het Kuuroord“, „de StandaardPrijs van het Kuuroord“)
VAN [M1_TJ]. [dbo]. [FormDefinitions]
WAAR xaoFormID als „%fcy%“ en xaoControlName als „LBLSPAPRICE“
/>I behoefte 


1:
2:
3:
4:
5:
6:

 (
           , 
           , 
           , 
           , 
           , )
/>I behoefte 



1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

 functie `Oude UpdatePriceTag
Functie UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + „$“
	Vraag RemovePriceTag (cControlName)
	Als Juist (Controles (cControlName). Titel, 10) = „(Inbegrepen)“ toen
		Controles (cControlName). Titel = Weggegaan (Controles (cControlName). Titel, Len (Controles (cControlName). Titel) - Len (Chr (13) + „(Inbegrepen)“))
	Eind als
	Vastgestelde rsPrice = CreateObject („ADODB.Recordset“)
	rsPrice.Open „selecteren * uit PartUnitSalePrices waar imhpartid =“ & App.AddQuotes (cPartID) & „en imhpartrevisionid = 'a'orde door imhstartdate desc“, adLockBatchOptimistic Verbinding, adOpenStatic, adCmdText
	Als niet rsPrice.EOF toen
		CPrice = CStr (Ronde (rsPrice.Fields („imhUnitSalePrice“). Waarde, 2))
		CPrice = cPrefix + AddCents (Ware CPrice,)
		Controles (cControlName). Titel = Controles (cControlName). Titel + CPrice
	Eind als
De Functie van het eind


with dit onder… 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 functie `Nieuwe UpdatePriceTag
Functie UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + „$“
	Vraag RemovePriceTag (cControlName)
	Als Juist (Controles (cControlName). Titel, 10) = „(Inbegrepen)“ toen
		Controles (cControlName). Titel = Weggegaan (Controles (cControlName). Titel, Len (Controles (cControlName). Titel) - Len (Chr (13) + „(Inbegrepen)“))
	Eind als
	Vastgestelde rsPrice = CreateObject („ADODB.Recordset“)
	rsPrice.Open „selecteren * uit PartUnitSalePrices waar imhpartid =“ & App.AddQuotes (cPartID) & „en imhpartrevisionid = 'a'orde door imhstartdate desc“, adLockBatchOptimistic Verbinding, adOpenStatic, adCmdText
	Als niet rsPrice.EOF toen
		Als cPartID = „ATRALINTAS“ toen
		CPrice = CStr (Ronde (rsPrice.Fields („imhUnitSalePrice“). Waarde, 2))
		Cprice = CDbl (CPrice) *cLintPots
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (Ware CPrice,)
		Controles (cControlName). Titel = Controles (cControlName). Titel + CPrice
		Anders
		CPrice = CStr (Ronde (rsPrice.Fields („imhUnitSalePrice“). Waarde, 2))
		CPrice = cPrefix + AddCents (Ware CPrice,)
		Controles (cControlName). Titel = Controles (cControlName). Titel + CPrice
		Eind als
	Eind als
De Functie van het eind


I zou waarderen om het even welk terugkoppelen.

Thanks!! J

Antwoord : Vind en vervang honderden lijn van code VBScript via SQL verklaring

U kon proberen en gebruikend de jquerybibliotheek iets in die aard doen.
omvat jquerybibliotheek in het HTMLhoofd

$ (document) .ready (functie () {

$ („input [type=hidden]“) .each (functie () {//captures en verpakt alle verborgen elementen
  waarde = $ (dit) .value;    ///this zal tegelijkertijd de waarde voor elk van de verborgen elementen worden
    ///put ajax vraag hier.  elke verborgen elementenwaarde zal verwerkt één tegelijkertijd… lijn zijn
   });
});
Andere oplossingen  
 
programming4us programming4us