Вопрос : Находите и замените сотниы линии Кодего VBScript через заявление SQL

Я успешно мог найти и заменить Кодего VBscript через заявление уточнения SQL, но он только работает с одной линией Кодего VBscript. Этим заявлением будет class= " lineNumbers " >

1 >

update установленные = заменяет ть (новообращенный (varchar (максимально), xaoProperties), «цена спы», «нормативная цена спы ")
ОТ [M1_TJ]. [dbo]. [FormDefinitions]
ГДЕ xaoFormID любит «%fcy%» и xaoControlName как «LBLSPAPRICE»
потребность >

I class= 
1 >
 (
           , 
           , 
           , 
           , 
           , )
потребность >

I class= 
1 >

 функция UpdatePriceTag `старая
Функция UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + «$»
	Звонок RemovePriceTag (cControlName)
	Если право, то (управление (cControlName). Титр, 10) = «(включено)» после этого
		Управление (cControlName). Титр = о (управление (cControlName). Титр, Len (управление (cControlName). Титр) - Len (Chr (13) + «(включено) "))
	Закончитесь если
	Установите rsPrice = CreateObject («ADODB.Recordset»)
	rsPrice.Open «выбирают * от PartUnitSalePrices где imhpartid =» & App.AddQuotes (cPartID) & «и imhpartrevisionid = «a» заказ desc imhstartdate», соединение, adOpenStatic, adLockBatchOptimistic, adCmdText
	Если не rsPrice.EOF после этого
		CPrice = CStr (круглое (rsPrice.Fields («imhUnitSalePrice»). Значение, 2))
		CPrice = cPrefix + AddCents (CPrice, поистине)
		Управление (cControlName). Титр = управление (cControlName). Титр + CPrice
	Закончитесь если
Закончите функцию
class= " ясное " >

with 
1 >

 функция UpdatePriceTag `новая
Функция UpdatePriceTag (cControlName, cPartID, cAsterisk)
	cPrefix = cAsterisk + Chr (13) + «$»
	Звонок RemovePriceTag (cControlName)
	Если право, то (управление (cControlName). Титр, 10) = «(включено)» после этого
		Управление (cControlName). Титр = о (управление (cControlName). Титр, Len (управление (cControlName). Титр) - Len (Chr (13) + «(включено) "))
	Закончитесь если
	Установите rsPrice = CreateObject («ADODB.Recordset»)
	rsPrice.Open «выбирают * от PartUnitSalePrices где imhpartid =» & App.AddQuotes (cPartID) & «и imhpartrevisionid = «a» заказ desc imhstartdate», соединение, adOpenStatic, adLockBatchOptimistic, adCmdText
	Если не rsPrice.EOF после этого
		Если cPartID = «ATRALINTAS» после этого
		CPrice = CStr (круглое (rsPrice.Fields («imhUnitSalePrice»). Значение, 2))
		*cLintPots Cprice = CDbl (CPrice)
		Cprice = CStr (CPrice)
		CPrice = cPrefix + AddCents (CPrice, поистине)
		Управление (cControlName). Титр = управление (cControlName). Титр + CPrice
		Еще
		CPrice = CStr (круглое (rsPrice.Fields («imhUnitSalePrice»). Значение, 2))
		CPrice = cPrefix + AddCents (CPrice, поистине)
		Управление (cControlName). Титр = управление (cControlName). Титр + CPrice
		Закончитесь если
	Закончитесь если
Закончите функцию
class= " ясное " >

I 

Thanks!! J

  
  class= 

Ответ : Находите и замените сотниы линии Кодего VBScript через заявление SQL

Вы smogли попытаться использовать архив jquery и сделаться что-нибудь подобное.
включите архив jquery в головку HTML

$ (документ) .ready (функция () {

$ («входной сигнал [type=hidden] ").each (функция () {//captures и упаковывает все спрятанные элементы
  значение = $ (это) .value;    ///this получит значение для каждого из спрятанных элементов одного одновременно
    звонок ajax ///put здесь.  каждое спрятанное значение элемента будет обработано одной одновременно… петле
   });
});