@vitaliy2003

есть например кнопка:
<INPUT class=btnm onclick=crm(); type=button value=Отправить>

Все бы ни чего, если бы crm() был написан на яве, а вот если на бейсике, тогда как быть?

0

WebLamer

ты имееш в виду JavaScript и VBScript????

@vitaliy2003

да, именно их и имел я ввиду

0

@vitaliy2003

Тогда скажи мне, правильна ли будет написана функция:
<SCRIPT language=VBSSript>
function base()
dim dsn1
dim Conn1
dsn1 = 'Provider=Microsoft.Jet.OLEDB.4.0ata Source=' & Server.MapPath('123.mdb')
Set Conn1 = Server.CreateObject('ADODB.Connection')
Conn1.Open dsn1
......
Conn1.close
set Conn1 = nothing
base = '111'
end function
</SCRIPT>

0

WebLamer

Так кажеться я начинаю дагонять что ты хочешь сделать одно из двух либо отправить форму, либо стначало проверить ее на ошибки а потом все же отправить.
Итак
<%@LANGUAGE='VBSCRIPT'%>
№1
<form action='test.asp' method='post' name='frmName'>
<input type='text' name='txtName' value='Test' size='10' maxlength='10'>
<input type='submit' name='btnSubmit' value='Поехали'>
</form>
<%End Sub%>

<%
If (Request('CONTENT_LENGTH')=0) Then
Call GenerateForm()
Else
strError = Validation()'проверка на ошибки
If not isNull(strError) then
Call UpdateData()
End If
End If
№2
<%Sub GenerateForm()%>
<SCRIPT language=JavaSript>
function base()
{
if(document.txtName.value=='')
{
alert('Ай ай ай так нельзя!!!');
document.frmName.txtName.focus();
return;
}
document.frmName.submit();
}
</script>
<form action='test.asp' method='post' name='frmName'>
<input type='text' name='txtName' value='Test' size='10' maxlength='10'>
<input type='button' name='btnSubmit' onClick='base()' value='Поехали'>
</form>
<%End Sub%>

@vitaliy2003

Да нет же
Я хочу проверить данные на правильности заполения, но не просто так, а на сравнения с данными в базе, но привязать это дело к функции.
Т.е. по большому счет авторизация, есть несколько едитов, среди них пароль и имя, ниже кнопарь, так вот мне надо по нажатию кнопаря открыть базу, проверить имя и пароль, после этого взять остальные данные и поместить в базу.

0

WebLamer

ну наконецто он раскололся что хочет, алилуя!!!
дык ведь эт первый вариант!

WebLamer

Я так набрасал примерчик, может чего упустил, хотел побыстрей, ну если чего не разберешь свиснишь!
и еще НИКОГДА не отправляй форму с паролем либо еще с какими-нибуть секретными данными методом GET только POST!!!

@vitaliy2003

>>и еще НИКОГДА не отправляй форму с паролем либо еще с какими-нибуть секретными данными методом GET только POST!!!

В том то и дело, что я ни чего не хочу отправлять, ни хочу вызывать новый броузер со страницей для запроса данных. Инпут для ввода данных всегда на странице, а функцию хочу приивязать к форме только для того, что бы не передовать данные на другую страницу.
Спасибо за пример, буду разбираться

0

WebLamer

так как же ты собираешься залесть в базу не передовая данных на сервер? По-моему, это не возможно. Если ты не хочешь передовать данные на другую страницу, тоникто тебя и не застовляет это делать, ты же можешь передовать данные на эту же страницу. Пример на это и расчитан на такую страницу.
If (Request('CONTENT_LENGTH')=0) Then
как раз и выесняет есть данные или нет, если нет то просто выводиться форма, если же есть то данные нужно обработать, если нет никаких ошибок в заполнении формы то засовываешь их в базу, если есть то выводишь форму с ошибкой и введенными ранее данными. isGood проверяет правельность пароля. У меня была подобная задача, и я тем же методом с ней справился, так что не знаю что тут не так.

@vitaliy2003

<%@LANGUAGE='VBSCRIPT'%><%Dim strLogin, strPass, strBodySub GenerateForm()%><form action='test.asp' method='post' name='frmName'><input type='text' name='txtLogin' value='<%=strLogin%>' size='10' maxlength='10'><input type='Password' name='txtPassword'><textarea cols='44' rows='10' name='txtBody' class='ktcText'><%=strBody%></textarea><input type='submit' name='btnSubmit' value='Поехали'></form><%End Sub%><%If (Request('CONTENT_LENGTH')=0) Then Call GenerateForm('')Else strError = Validation()'проверка на ошибки If isNull(strError) then Call UpdateData() Else Call GenerateForm(strError) End IfEnd IfFunction Validation()strLogin = Request('txtLogin')strPass = Request('txtPassword')strBody = Request('txtBody')if isNull(strPass) or strPass='' or isNull(strLogin) or strLogin='' or isGood(strLogin, strPassword) thenValidation = 'И тебе не стыдно!!!'ElseValidation = nullEnd FunctionFunction isGood(strLogin, strPassword)----здесь проверяешь на валидность пароль-----End FunctionSub UpdateData()----здесь добавляешь strBodyEnd Sub

Я тебя не совсем понял, видишь ли, у меня на форме куча кнопок и объектов инпут и тектуре. Мне надо выполнить все эти действия только по ожной кнопке.

Дальше, вопрос такой, из примера я не понял, ты передаешь куда-нить введенные значения или обрабатываешь здесь же?
Еще вопрос, реально ли сразу передавать часть данных методом гет, а чать методом пост?

0