none
javascript и ASP помогите RRS feed

 > 

  • Вопрос

  • Question
    Нужно войти
    0
    Нужно войти

     

    Я новичек. Помогите зделать так, чтобы этот код работал с помощью 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 strCommand

         Response.Write("Спасибо! Ваши данные добавлены.")

         End If
      %>

      </font>
      </body>
      </html>

    14 июля 2010 г. 2:07
    |

Ответы

  • Question
    Нужно войти
    0
    Нужно войти

    спасибо за пассивную помощь. сам перииначил

    <%@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
    |

Все ответы

  • Question
    Нужно войти
    0
    Нужно войти
    А что именно в этом коде должно работать на javascript?
    14 июля 2010 г. 4:09
    |
    Модератор
  • Question
    Нужно войти
    0
    Нужно войти

    вместо 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
    |
  • Question
    Нужно войти
    0
    Нужно войти

    спасибо за пассивную помощь. сам перииначил

    <%@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
    |