Лучший отвечающий
javascript и ASP помогите

Вопрос
-
Я новичек. Помогите зделать так, чтобы этот код работал с помощью javascript.
Зараннее спасибо.
<%@ Language=VBScript %>
<html>
<head>
<title>Гостевая книга с использованием только объекта Connection</title>
</head>
<body>
<font face="MS Gothic">
<h2>Гостевая книга с использованием только объекта Connection</h2><%
IF Not Request.QueryString("Message") = "True" Then
'Данные еще не введены, следует вывести форму.
%>
<p>
<FORM NAME="GuestBook1" METHOD="GET" ACTION="guestbook1.asp">
<table>
<tr>
<td><font face="MS Gothic">От:</td><td><INPUT TYPE="TEXT" NAME="From"></td>
</tr><tr>
<td><font face="MS Gothic">Адрес электронной почты:</td><td><INPUT TYPE="TEXT" NAME="EmailAdd"></td>
</tr><tr>
<td><font face="MS Gothic">Копия:</td><td><INPUT TYPE="TEXT" NAME="CC"></td>
</tr><tr>
<td><font face="MS Gothic">Тема:</td><td><INPUT TYPE="TEXT" NAME="Subject"></td>
</tr>
</table>
Сообщение:<br><TEXTAREA NAME="Memo" ROWS=6 COLS=70></TEXTAREA>
</p><p>
<INPUT TYPE="HIDDEN" NAME="Message" VALUE="True">
<INPUT TYPE="SUBMIT" VALUE="Отправить данные">
</FORM>
</p>
<%
Else
'Выше кнопка HIDDEN устанавливает значение переменной Message в True.
'Данные введены в форму.'Получение данных из формы. Они будут помещены в базу данных.
'Access не принимает некоторые знаки (например апострофы) поэтому закодируем
' данные с помощью метода HTMLEncode ASP-объекта Server.
dim strTB1, strTB2, strTB3, strTB4, strMB1, strCommand
strTB1 = Server.HTMLEncode(Request.QueryString("From"))
strTB2 = Server.HTMLEncode(Request.QueryString("EMailAdd"))
strTB3 = Server.HTMLEncode(Request.QueryString("CC"))
strTB4 = Server.HTMLEncode(Request.QueryString("Subject"))
strMB1 = Server.HTMLEncode(Request.QueryString("Memo"))'Строка подключения. ADO использует ее для подключения к базе данных через драйвер Access.
'В строке указывается имя поставщика драйвера Access и имя базы данных Access.
'Строки подключения могут немного отличаться в зависимости от поставщика,
' но все они используют точку с запятой для разделения переменных.
'Если эта строка вызывает ошибку, выполните в реестре поиск по образцу
' Microsoft.JET и убедитесь, что используется версия 4.0.
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\Tutorial\guestbook.mdb;"'Создание экземпляра ADO-объекта Connection.
'ADO предоставляет также 4 других объекта с разными методами и
'свойствами, позволяющими выполнять разнообразные действия с базами данных.
Set objConn = server.createobject("ADODB.Connection")'Метод Open объекта Connection использует строку подключения для
' подключения к базе данных.
objConn.Open strProvider'Определение запроса.
'Существуют различные типы запросов, позволяющих добавлять, удалять и получать данные.
'Этот запрос будет добавлять данные в базу данных с использованием ключевых слов INSERT INTO.
'Здесь GuestBook — это имя таблицы.
'Здесь для ограничения строк нужно использовать апострофы.
strCommand = "INSERT INTO GuestBook (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES ('"
strCommand = strCommand & strTB1 & "','" & strTB2 & "','" & strTB3 & "','" & strTB4 & "','" & strMB1
strCommand = strCommand & "')"'Выполнить запрос для добавления данных в базу данных.
objConn.Execute strCommandResponse.Write("Спасибо! Ваши данные добавлены.")
End If
%></font>
</body>
</html>14 июля 2010 г. 2:07
Ответы
-
спасибо за пассивную помощь. сам перииначил
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head><body>
<font face="MS Gothic">
<h2>Гостевая книга с использованием только объекта Connection</h2><%
var mes;
mes=(Request.QueryString("Message"));
if (mes!="True"){
//Данные еще не введены, следует вывести форму
%>
<p>
<FORM NAME="GuestBook1" METHOD="GET" ACTION="3java.asp">
<table>
<tr>
<td><font face="MS Gothic">От:</td><td><input name="From" type="text" /></td>
</tr><tr>
<td><font face="MS Gothic">Адрес электронной почты:</td><td><INPUT TYPE="TEXT" NAME="EmailAdd"></td>
</tr><tr>
<td><font face="MS Gothic">Копия:</td><td><INPUT TYPE="TEXT" NAME="CC"></td>
</tr><tr>
<td><font face="MS Gothic">Тема:</td><td><INPUT TYPE="TEXT" NAME="Subject"></td>
</tr>
</table>
Сообщение:<br><TEXTAREA NAME="Memo" ROWS=6 COLS=70></TEXTAREA>
</p><p>
<INPUT TYPE="HIDDEN" NAME="Message" VALUE="True">
<font face="MS Gothic">
<input type="SUBMIT" value="Отправить данные" />
</font>
</FORM>
</p>
<%
}else {
//Выше кнопка HIDDEN устанавливает значение переменной Message в True.
//Данные введены в форму.//Получение данных из формы. Они будут помещены в базу данных.
//Access не принимает некоторые знаки (например апострофы) поэтому закодируем
// данные с помощью метода HTMLEncode ASP-объекта Server.
var strTB1, strTB2, strTB3, strTB4, strMB1, strCommand;
strTB1 = Server.HTMLEncode(Request.QueryString("From")) ;
strTB2 = Server.HTMLEncode(Request.QueryString("EMailAdd")) ;
strTB3 = Server.HTMLEncode(Request.QueryString("CC"));
strTB4 = Server.HTMLEncode(Request.QueryString("Subject"));
strMB1 = Server.HTMLEncode(Request.QueryString("Memo")) ;//Строка подключения. ADO использует ее для подключения к базе данных через драйвер Access.
//В строке указывается имя поставщика драйвера Access и имя базы данных Access.
//Строки подключения могут немного отличаться в зависимости от поставщика,
// но все они используют точку с запятой для разделения переменных.
//Если эта строка вызывает ошибку, выполните в реестре поиск по образцу
// Microsoft.JET и убедитесь, что используется версия 4.0.
var strProvider;
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:/InetPub/Wwwroot/Tutorial/guestbook.mdb;";//Создание экземпляра ADO-объекта Connection.
//ADO предоставляет также 4 других объекта с разными методами и
//свойствами, позволяющими выполнять разнообразные действия с базами данных.
var objConn;
objConn = Server.CreateObject("ADODB.Connection") ;//Метод Open объекта Connection использует строку подключения для
// подключения к базе данных.
objConn.Open (strProvider) ;//Определение запроса.
//Существуют различные типы запросов, позволяющих добавлять, удалять и получать данные.
//Этот запрос будет добавлять данные в базу данных с использованием ключевых слов INSERT INTO.
//Здесь GuestBook — это имя таблицы.
//Здесь для ограничения строк нужно использовать апострофы.
strCommand = "INSERT INTO GuestBook (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES ('"+ strTB1 + "','" + strTB2 + "','" + strTB3 + "','" + strTB4 + "','" + strMB1+ "')";
//Выполнить запрос для добавления данных в базу данных.
objConn.Execute (strCommand);
Response.Write("Спасибо! Ваши данные добавлены.");
}
%></font>
</body>
</html>- Изменено mikolkai 22 июля 2010 г. 8:25
- Помечено в качестве ответа I.Vorontsov 23 августа 2010 г. 8:07
22 июля 2010 г. 8:08
Все ответы
-
А что именно в этом коде должно работать на javascript?14 июля 2010 г. 4:09Модератор
-
вместо VBScript должен быть javascript.
тоесть вместо <%@ Language=VBScript %>
<%@ Language=JavaScript %>
вместо
<%
IF Not Request.QueryString("Message") = "True" Then
'Данные еще не введены, следует вывести форму.
%>я пологаю
<%
var mes;
mes=(Request.QueryString("Message"));
if (mes=="True"){
//Данные еще не введены, следует вывести форму
%>и дальше
14 июля 2010 г. 5:27 -
спасибо за пассивную помощь. сам перииначил
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head><body>
<font face="MS Gothic">
<h2>Гостевая книга с использованием только объекта Connection</h2><%
var mes;
mes=(Request.QueryString("Message"));
if (mes!="True"){
//Данные еще не введены, следует вывести форму
%>
<p>
<FORM NAME="GuestBook1" METHOD="GET" ACTION="3java.asp">
<table>
<tr>
<td><font face="MS Gothic">От:</td><td><input name="From" type="text" /></td>
</tr><tr>
<td><font face="MS Gothic">Адрес электронной почты:</td><td><INPUT TYPE="TEXT" NAME="EmailAdd"></td>
</tr><tr>
<td><font face="MS Gothic">Копия:</td><td><INPUT TYPE="TEXT" NAME="CC"></td>
</tr><tr>
<td><font face="MS Gothic">Тема:</td><td><INPUT TYPE="TEXT" NAME="Subject"></td>
</tr>
</table>
Сообщение:<br><TEXTAREA NAME="Memo" ROWS=6 COLS=70></TEXTAREA>
</p><p>
<INPUT TYPE="HIDDEN" NAME="Message" VALUE="True">
<font face="MS Gothic">
<input type="SUBMIT" value="Отправить данные" />
</font>
</FORM>
</p>
<%
}else {
//Выше кнопка HIDDEN устанавливает значение переменной Message в True.
//Данные введены в форму.//Получение данных из формы. Они будут помещены в базу данных.
//Access не принимает некоторые знаки (например апострофы) поэтому закодируем
// данные с помощью метода HTMLEncode ASP-объекта Server.
var strTB1, strTB2, strTB3, strTB4, strMB1, strCommand;
strTB1 = Server.HTMLEncode(Request.QueryString("From")) ;
strTB2 = Server.HTMLEncode(Request.QueryString("EMailAdd")) ;
strTB3 = Server.HTMLEncode(Request.QueryString("CC"));
strTB4 = Server.HTMLEncode(Request.QueryString("Subject"));
strMB1 = Server.HTMLEncode(Request.QueryString("Memo")) ;//Строка подключения. ADO использует ее для подключения к базе данных через драйвер Access.
//В строке указывается имя поставщика драйвера Access и имя базы данных Access.
//Строки подключения могут немного отличаться в зависимости от поставщика,
// но все они используют точку с запятой для разделения переменных.
//Если эта строка вызывает ошибку, выполните в реестре поиск по образцу
// Microsoft.JET и убедитесь, что используется версия 4.0.
var strProvider;
strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:/InetPub/Wwwroot/Tutorial/guestbook.mdb;";//Создание экземпляра ADO-объекта Connection.
//ADO предоставляет также 4 других объекта с разными методами и
//свойствами, позволяющими выполнять разнообразные действия с базами данных.
var objConn;
objConn = Server.CreateObject("ADODB.Connection") ;//Метод Open объекта Connection использует строку подключения для
// подключения к базе данных.
objConn.Open (strProvider) ;//Определение запроса.
//Существуют различные типы запросов, позволяющих добавлять, удалять и получать данные.
//Этот запрос будет добавлять данные в базу данных с использованием ключевых слов INSERT INTO.
//Здесь GuestBook — это имя таблицы.
//Здесь для ограничения строк нужно использовать апострофы.
strCommand = "INSERT INTO GuestBook (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES ('"+ strTB1 + "','" + strTB2 + "','" + strTB3 + "','" + strTB4 + "','" + strMB1+ "')";
//Выполнить запрос для добавления данных в базу данных.
objConn.Execute (strCommand);
Response.Write("Спасибо! Ваши данные добавлены.");
}
%></font>
</body>
</html>- Изменено mikolkai 22 июля 2010 г. 8:25
- Помечено в качестве ответа I.Vorontsov 23 августа 2010 г. 8:07
22 июля 2010 г. 8:08