powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ASP --> VBScript + JavaScript
9 сообщений из 9, страница 1 из 1
ASP --> VBScript + JavaScript
    #32111116
AVB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Значит, по порядку:
Есть целый ASP-сайт, написанный на Javascript. Так как, все страницы очень плотно работают с MSSQL, то програмист, содаваший его, создал свой объект "Database Object" (иными словами,- "конструктор") с массой дополнительных методов и свойств... очень удобная штука при работе с базой данных.
Теперь у меня появилась "прикрутка" к этому сайту, только на VBScript, и я хотел использовать этот объект, чтобы не создавать нового подключения к этой БД (и не заморачиваться потом). Но у меня ничего не получается.
Сам объект выглядит так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
function Database()
{
	// status of object
	//   0  - database closed
	//   1  - database opened
	this.__databaseStatus = new Number();
	this.__databaseStatus =  0 ;

	// type of database, that used for working
	//   0  - autentical MDB database
	//   1  - support ORACLE database (default)
	this.__databaseType = new Number();
	this.__databaseType =  0 ;

	// array of connection strings
	this.__connStr = new Array(
		'Provider=SQLOLEDB.1;Persist Security Info=False;' +
		'User ID=User;Password=Pass;Initial Catalog=db;' +
		'Data Source=Source;Locale Identifier=1049;' +
		'Connect Timeout=10;Use Procedure for Prepare=1;' +
		'Auto Translate=True;Packet Size=4096;',
		''
	);

	// connection object
	this.__connection = null;
	this.__connection = Server.CreateObject( "ADODB.Connection" );

	// recordset object
	this.__recordset = null;

	// query type
	//   0  - simple (nothing to return after query)
	//   1  - complex (return VBArray or Recordset after query) (default)
	this.queryType = new Number();
	this.queryType =  1 ;

             ...  и т.д.
}

Объявление его происходит так:
Код: plaintext
	var database = new Database();

но, это на Java. А как мне объявить его в VBScript?
Заранее СПАСИБИЩЕ!!!!

P.S.
Dim database
Set database = new Database - не прокатывает.
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111200
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дык а с каких пор vbscript стал объектно-ориентированным? Пиши на jscript.
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111327
AVB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
???... Здрасте, приехали!!!!!!!!!!... А что же тогда по Вашему VB ???
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111350
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> ???... Здрасте, приехали!!!!!!!!!!...

Создайте объект средствами vbscript, потом будем ехать ..
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111385
AVB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Согласен, что создать собственный объект не получится.
Но использовать существующие он ведь может?..
Хотя я кажется начинаю понимать, в чём тут фишка. VBScript использует только зарегистрированные классы? Так что-ли?..
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111401
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Но использовать существующие он ведь может?

Может, встроенные и доступные через CreateObject().

В данном случае он просто ничего не знает об объектах jscript. Поэтому имхо возможно 3 варианта:
1. Переписать общие функции на vbscript;
2. Писать на jscript;
3. Я абсолютно не прав (насколько я понимаю, самый предпочтительный:)).
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111420
AVB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, не будем сарказничать. Просто я действительно хочу понять эти различия между языками, чтобы либо использовать их на всю, как говорится, катушку, либо больше не натыкаться на эти грабли.

Кстати, о том, что, - ( В данном случае он просто ничего не знает об объектах jscript ),- но ведь простые функции на java доступны в VBscr. А объекты, значит нет? Странно как-то... Если не сложно, проясните тогда поподробнее об этом.
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111465
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет, ты не зря затеял этот флейм :)
Вариант 3: Я БЫЛ НЕ ПРАВ!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
<%@ Language=VBScript %>
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function Database()
{
	this.databaseStatus = new Number();
	this.databaseStatus =  0 ;
	this.queryType = new Number();
	this.queryType =  1 ;
}
</SCRIPT>
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
var database = new Database();
</SCRIPT>
<%=database.databaseStatus%><br>
<%=database.queryType%><br>


2 момента:
1. объект нужно создавать методами jscript
2. такие имена как .__databaseStatus не пройдут, vb считает что это '_' - перенос строки.

> Если не сложно, проясните тогда поподробнее об этом.

Ну в принципе многое я сам для себя прояснил :)
...
Рейтинг: 0 / 0
ASP --> VBScript + JavaScript
    #32111527
AVB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот!!!!!
Вот Это,- чистая правда, только правда, и ничего, кроме правды!!...

Вообще-то, я так и делал раньше. Я подозревал о некой кривизне VB, но всё руки "не доходили" разобраться как следует. Просто вот появилась однажды идея "фикс",- попробовать сделать ВСЁ на нём, вот и крикнул что было силы о помощи... :)
Вобщем, теперь мне более-менее всё ясно,
за что великодушно СЯНЬКУЮ!!!... :)
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ASP --> VBScript + JavaScript
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]