ASP код всегда вызывает ошибку сценария.

@leg1on · Регистрация: 10.09.2007

Студворк — интернет-сервис помощи студентам

Срочно нужна помощь начинающему.

Есть код на ASP, но при запуске он весь пропускается или выполняется некорректно. Выдает ошибку сценария, хотя пример является учебным и по идее должен работать без проблем.

Даже эдементарная строка Response.Write не дает каких-либо результатов на экран.

Может я что нибудь не так делаю?

Заранее спаибо.

16.09.2007, 10:29

Дай код???

@leg1on · 16.09.2007, 11:34 **[ТС]**

А код вот какой!
<html>
<head>
<title>Виртуальный магазин </title>
<meta http-equiv='Content-Type' content='text/html; charset=windows-1251'>

<SCRIPT>

<%
Set db = Server.CreateObject('ADODB.Connection')
db.Open 'DSN=Beriozka;UID=sa;PWD=;'

SQLQuery = 'Select * From _Components WHERE IsPCComponent = 1 ORDER BY CategoryName ASC'
Set rs = db.Execute(SQLQuery)

CurrentCategory = 0

Do While NOT rs.EOF
CurrentCategory = CurrentCategory + 1

Response.Write 'function OnLoadMess' & CurrentCategory & '(){'
Response.Write 'Message' & CurrentCategory & '.innerText=FrmPrice' & CurrentCategory & '.document.all.Message' & CurrentCategory & '.innerText;}'
Response.Write 'function GetPrice' & CurrentCategory & '(){'
Response.Write 'var content = 'ifrsrc/ifrsrc' & CurrentCategory & '.asp?mess='+ document.forms.MainForm.elements.select' & CurrentCategory & '.value;'
Response.Write 'FrmPrice' & CurrentCategory & '.document.URL=content;'
Response.Write 'OnLodTotalPrice();}'
rs.MoveNext
Loop

db.Close
Set db = Nothing
%>

function OnLodTotalPrice()
{
var Total;

Total = 0;

Total = Total + parseInt(Message1.innerText) * (document.forms.MainForm.elements.quant1 .value);
Total = Total + parseInt(Message2.innerText) * (document.forms.MainForm.elements.quant2 .value);
Total = Total + parseInt(Message3.innerText) * (document.forms.MainForm.elements.quant3 .value);
Total = Total + parseInt(Message4.innerText) * (document.forms.MainForm.elements.quant4 .value);
Total = Total + parseInt(Message5.innerText) * (document.forms.MainForm.elements.quant5 .value);
Total = Total + parseInt(Message6.innerText) * (document.forms.MainForm.elements.quant6 .value);
Total = Total + parseInt(Message7.innerText) * (document.forms.MainForm.elements.quant7 .value);
Total = Total + parseInt(Message8.innerText) * (document.forms.MainForm.elements.quant8 .value);
Total = Total + parseInt(Message9.innerText) * (document.forms.MainForm.elements.quant9 .value);
Total = Total + parseInt(Message10.innerText) * (document.forms.MainForm.elements.quant1 0.value);
Total = Total + parseInt(Message11.innerText) * (document.forms.MainForm.elements.quant1 1.value);
Total = Total + parseInt(Message12.innerText) * (document.forms.MainForm.elements.quant1 2.value);
Total = Total + parseInt(Message13.innerText) * (document.forms.MainForm.elements.quant1 3.value);
Total = Total + parseInt(Message14.innerText) * (document.forms.MainForm.elements.quant1 4.value);
Total = Total + parseInt(Message15.innerText) * (document.forms.MainForm.elements.quant1 5.value);

TMessage.innerText = String(Total);
}

function Set()
{
GetPrice1(); GetPrice2(); GetPrice3(); GetPrice4(); GetPrice5();
GetPrice6(); GetPrice7(); GetPrice8(); GetPrice9(); GetPrice10();
GetPrice11(); GetPrice12(); GetPrice13(); GetPrice14(); GetPrice15();

SetQuantity();
OnLodTotalPrice();
}

function SetQuantity()
{
TotalPrice.document.URL = 'tprice.asp?mess=aaa';
}

</SCRIPT>
</head>

<body bgcolor='#006767' text='#FFFFFF' link='#FFFF00' vlink='#FFFF00' onLoad='Set();'>
<div align='center'>

<%
Set db = Server.CreateObject('ADODB.Connection')
db.Open 'DSN=Beriozka;UID=sa;PWD= = 'Cdrom' Then
CurTemplateSelectID = CdromID
End If
If CurTableName = 'Sound' Then
CurTemplateSelectID = SoundID
End If
If CurTableName = 'Modem' Then
CurTemplateSelectID = ModemID
End If
If CurTableName = 'Keyboard' Then
CurTemplateSelectID = KeyboardID
End If
If CurTableName = 'Mouse' Then
CurTemplateSelectID = MouseID
End If
If CurTableName = 'Monitor' Then
CurTemplateSelectID = MonitorID
End If
If CurTableName = 'Pad' Then
CurTemplateSelectID = PadID
End If
If CurTableName = 'SCSI' Then
CurTemplateSelectID = SCSIID
End If
If CurTableName = 'Speaker' Then
CurTemplateSelectID = SpeakerID
End If
'*************************************** **************************************** **********

ISQLQuery = 'Select * From ' & CStr(CurTableName) & ' ORDER BY Title ASC'
Response.Write ISQLQuery
Set res = db.Execute(ISQLQuery)

CurrentItem = 0

Do While NOT res.EOF
CurrentItem = CurrentItem + 1
str = '<option'

If CurrentItem = CurTemplateSelectID Then
str = str & ' selected'
TemplatePriceValue = res.Fields('Price1').value
End If

str = str & ' value='' & res.Fields('Title').value & ''>' & res.Fields('Title').value & '</option>'
Response.Write str
res.MoveNext
Loop

Response.Write '</select>'
res.Close
Set res = Nothing

'Rs.MoveNext

Response.Write '</td><td>'
Response.Write '<select id='quant' & CurrentCategory & '' name='quant' & CurrentCategory & '' style='WIDTH: 50px' OnChange = 'SetQuantity()'>'
I = 1
Do While I <> 50
Response.Write '<option value = ' & I & '>' & I & '</option>'
I = I + 1
Loop
Response.Write '</select>'
Response.Write '</td><td><IFRAME id='FrmPrice' & CurrentCategory & '' style='WIDTH: 80px' style='HEIGHT: 40px' style='display: none' name='FrmPrice' & CurrentCategory & ''></IFRAME>'
Response.Write '<SPAN id='Message' & CurrentCategory &''></SPAN></td></tr>'

Response.Write '<input type='hidden' name='price' & CurrentCategory & '' value='' & TemplatePriceValue & ''>'

Rs.MoveNext
TotalPrice = TotalPrice + TemplatePriceValue
Loop

db.Close
Set db = Nothing

Response.Write '<tr><td><b><i>Итого:</b></i></td><td> - </td><td> - </td>'
Response.Write '<td><b><i>'
Response.Write '<IFRAME id='TotalPrice' style='WIDTH: 80px' style='HEIGHT: 40px' style='display: none' name='TotalPrice'></IFRAME>'
Response.Write '<SPAN id='TMessage'></SPAN></b></i></td></tr>'
%>

</table>

<p>
<input type='submit' name='Submit' value='Продолжить'>
<input type='reset' name='Reset' value='Очистить форму'>
</p>

</form>

<p><a href='http://www.grcom.ru'>©GRC Ltd., 2000.</a></p>
</div>

</body>
</html>

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@leg1on 0 / 0 / 0 Регистрация: 10.09.2007 Сообщений: 85

	ASP код всегда вызывает ошибку сценария. 16.09.2007, 08:53. Показов 987. Ответов 2 Метки нет (Все метки) Срочно нужна помощь начинающему. Есть код на ASP, но при запуске он весь пропускается или выполняется некорректно. Выдает ошибку сценария, хотя пример является учебным и по идее должен работать без проблем. Даже эдементарная строка Response.Write не дает каких-либо результатов на экран. Может я что нибудь не так делаю? Заранее спаибо. 0

@leg1on 0 / 0 / 0 Регистрация: 10.09.2007 Сообщений: 85
	16.09.2007, 11:34 [ТС]
	А код вот какой! <html> <head> <title>Виртуальный магазин </title> <meta http-equiv='Content-Type' content='text/html; charset=windows-1251'> <SCRIPT> <% Set db = Server.CreateObject('ADODB.Connection') db.Open 'DSN=Beriozka;UID=sa;PWD=;' SQLQuery = 'Select * From _Components WHERE IsPCComponent = 1 ORDER BY CategoryName ASC' Set rs = db.Execute(SQLQuery) CurrentCategory = 0 Do While NOT rs.EOF CurrentCategory = CurrentCategory + 1 Response.Write 'function OnLoadMess' & CurrentCategory & '(){' Response.Write 'Message' & CurrentCategory & '.innerText=FrmPrice' & CurrentCategory & '.document.all.Message' & CurrentCategory & '.innerText;}' Response.Write 'function GetPrice' & CurrentCategory & '(){' Response.Write 'var content = 'ifrsrc/ifrsrc' & CurrentCategory & '.asp?mess='+ document.forms.MainForm.elements.select' & CurrentCategory & '.value;' Response.Write 'FrmPrice' & CurrentCategory & '.document.URL=content;' Response.Write 'OnLodTotalPrice();}' rs.MoveNext Loop db.Close Set db = Nothing %> function OnLodTotalPrice() { var Total; Total = 0; Total = Total + parseInt(Message1.innerText) * (document.forms.MainForm.elements.quant1 .value); Total = Total + parseInt(Message2.innerText) * (document.forms.MainForm.elements.quant2 .value); Total = Total + parseInt(Message3.innerText) * (document.forms.MainForm.elements.quant3 .value); Total = Total + parseInt(Message4.innerText) * (document.forms.MainForm.elements.quant4 .value); Total = Total + parseInt(Message5.innerText) * (document.forms.MainForm.elements.quant5 .value); Total = Total + parseInt(Message6.innerText) * (document.forms.MainForm.elements.quant6 .value); Total = Total + parseInt(Message7.innerText) * (document.forms.MainForm.elements.quant7 .value); Total = Total + parseInt(Message8.innerText) * (document.forms.MainForm.elements.quant8 .value); Total = Total + parseInt(Message9.innerText) * (document.forms.MainForm.elements.quant9 .value); Total = Total + parseInt(Message10.innerText) * (document.forms.MainForm.elements.quant1 0.value); Total = Total + parseInt(Message11.innerText) * (document.forms.MainForm.elements.quant1 1.value); Total = Total + parseInt(Message12.innerText) * (document.forms.MainForm.elements.quant1 2.value); Total = Total + parseInt(Message13.innerText) * (document.forms.MainForm.elements.quant1 3.value); Total = Total + parseInt(Message14.innerText) * (document.forms.MainForm.elements.quant1 4.value); Total = Total + parseInt(Message15.innerText) * (document.forms.MainForm.elements.quant1 5.value); TMessage.innerText = String(Total); } function Set() { GetPrice1(); GetPrice2(); GetPrice3(); GetPrice4(); GetPrice5(); GetPrice6(); GetPrice7(); GetPrice8(); GetPrice9(); GetPrice10(); GetPrice11(); GetPrice12(); GetPrice13(); GetPrice14(); GetPrice15(); SetQuantity(); OnLodTotalPrice(); } function SetQuantity() { TotalPrice.document.URL = 'tprice.asp?mess=aaa'; } </SCRIPT> </head> <body bgcolor='#006767' text='#FFFFFF' link='#FFFF00' vlink='#FFFF00' onLoad='Set();'> <div align='center'> <% Set db = Server.CreateObject('ADODB.Connection') db.Open 'DSN=Beriozka;UID=sa;PWD= = 'Cdrom' Then CurTemplateSelectID = CdromID End If If CurTableName = 'Sound' Then CurTemplateSelectID = SoundID End If If CurTableName = 'Modem' Then CurTemplateSelectID = ModemID End If If CurTableName = 'Keyboard' Then CurTemplateSelectID = KeyboardID End If If CurTableName = 'Mouse' Then CurTemplateSelectID = MouseID End If If CurTableName = 'Monitor' Then CurTemplateSelectID = MonitorID End If If CurTableName = 'Pad' Then CurTemplateSelectID = PadID End If If CurTableName = 'SCSI' Then CurTemplateSelectID = SCSIID End If If CurTableName = 'Speaker' Then CurTemplateSelectID = SpeakerID End If '************************************* ************************************ ******** ISQLQuery = 'Select * From ' & CStr(CurTableName) & ' ORDER BY Title ASC' Response.Write ISQLQuery Set res = db.Execute(ISQLQuery) CurrentItem = 0 Do While NOT res.EOF CurrentItem = CurrentItem + 1 str = '<option' If CurrentItem = CurTemplateSelectID Then str = str & ' selected' TemplatePriceValue = res.Fields('Price1').value End If str = str & ' value='' & res.Fields('Title').value & ''>' & res.Fields('Title').value & '</option>' Response.Write str res.MoveNext Loop Response.Write '</select>' res.Close Set res = Nothing 'Rs.MoveNext Response.Write '</td><td>' Response.Write '<select id='quant' & CurrentCategory & '' name='quant' & CurrentCategory & '' style='WIDTH: 50px' OnChange = 'SetQuantity()'>' I = 1 Do While I <> 50 Response.Write '<option value = ' & I & '>' & I & '</option>' I = I + 1 Loop Response.Write '</select>' Response.Write '</td><td><IFRAME id='FrmPrice' & CurrentCategory & '' style='WIDTH: 80px' style='HEIGHT: 40px' style='display: none' name='FrmPrice' & CurrentCategory & ''></IFRAME>' Response.Write '<SPAN id='Message' & CurrentCategory &''></SPAN></td></tr>' Response.Write '<input type='hidden' name='price' & CurrentCategory & '' value='' & TemplatePriceValue & ''>' Rs.MoveNext TotalPrice = TotalPrice + TemplatePriceValue Loop db.Close Set db = Nothing Response.Write '<tr><td><b><i>Итого:</b></i></td><td> - </td><td> - </td>' Response.Write '<td><b><i>' Response.Write '<IFRAME id='TotalPrice' style='WIDTH: 80px' style='HEIGHT: 40px' style='display: none' name='TotalPrice'></IFRAME>' Response.Write '<SPAN id='TMessage'></SPAN></b></i></td></tr>' %> </table> <p> <input type='submit' name='Submit' value='Продолжить'> <input type='reset' name='Reset' value='Очистить форму'> </p> </form> <p><a href='http://www.grcom.ru'>©GRC Ltd., 2000.</a></p> </div> </body> </html> 0