принять данные поста в ASP и вставить в SQL Server - PullRequest
Новая
       14

принять данные поста в ASP и вставить в SQL Server

0 голосов
/ 10 марта 2012

Я только что сделал свой вопрос и добавил несколько других сценариев, необходимых, чтобы собрать все вместе

Это небольшой сценарий, который я использую для получения сообщения и передачи данных в SQL Server (если 2008,имеет значение): ОБНОВЛЕНИЕ 2 после предложений: 

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script runat="server">
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myConn As SqlConnection = New SqlConnection("Integrated Security=false;Data Source=.;Initial Catalog=DOMAIN_NAME;UserID=user;Password=password")
myConn.Open()
Dim sqlstring As String = " INSERT INTO sean.local (etype, latitude, longtitude, phone) VALUES ('" + Request.Form("type") + "','" + Request.Form("latitude") + "','" + Request.Form("longtitude") + "','" + Request.Form("phone") + "')"
Dim cmd As SqlCommand = New SqlCommand(sqlstring, myConn)
cmd.ExecuteNonQuery()
myConn.Close()
Response.Redirect(Request.RawUrl, True)
Response.Write("1 record added")
End Sub
</script>

вот мой сценарий создания таблицы 

CREATE TABLE local
(
P_Id int PRIMARY KEY IDENTITY,
etype varchar(255) NOT NULL,
latitude varchar(255),
longtitude varchar(255),
phone varchar(255)
)

, а вот форма, которую я использую для проверки 

 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
 <head>
 <title>A Web Page</title>
 </head>
 <body>
 <BR></BR>
 <form action="http://www.mydomain.com/script.asp" method="post">
 <h1>Form Test</h1>
 Phone:<BR></BR><input type="text" name="phone"/>      
 <BR></BR>
 type:<BR></BR><input type="text" name="type"/>
 <BR></BR>
 lat:<BR></BR><input type="text" name="latitude"/>
 <BR></BR>
 lng:<BR></BR><input type="text" name="longtitude"/>
 <BR></BR>
 <input type="submit" name="submit" value="Submit Data"/>
 </form>
 </body>
 </html>

Это может быть что-то маленькое, но у меня действительно нет других идей ... спасибо.

Ответы [ 2 ]

0 голосов
/ 10 марта 2012

Это исправит несколько проблем в вашем существующем коде, включая те, о которых вы даже не знаете: 

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    Dim sql As String = "INSERT INTO sean.local (etype, latitude, longtitude, phone) VALUES (@etype, @latitude, @longtitude, @phone)"
    Using myConn As New SqlConnection("Integrated Security=false;Data Source=.;Initial Catalog=DOMAIN_NAME;UserID=user;Password=password"), _
          cmd As New SqlCommand(sql, cn)

       'I had to make up database types... edit this to use the real types
       cmd.Parameters.Add("@etype", SqlDbType.Integer).Value = Request.Form("type")
       cmd.Parameters.Add("@latitude", SqlDbType.Float).Value = Request.Form("latitude")
       cmd.Parameters.Add("@longtitude", SqlDbType.Float).Value = Request.Form("longtitude")
       cmd.Parameters.Add("@phone", SqlDbType.Varchar, 12).Value = Request.Form("phone")

       myConn.Open()
       cmd.ExecuteNonQuery()
    End Using

    Response.Redirect(Request.RawUrl, True)

    'This line will never run!
    Response.Write("1 record added")

End Sub
0 голосов
/ 10 марта 2012

В основном это VB, просто переключитесь на него 

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script runat="server">
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim myConn As SqlConnection = New SqlConnection("Integrated Security=false;Data Source=.;Initial Catalog=DOMAIN_NAME;UserID=abc;Password=123")
        myConn.Open()
        Dim sqlstring As String = " INSERT INTO sean.local (etype, latitude, longtitude, phone) VALUES ('" + Request.Form("type") + "','" + Request.Form("latitude") + "','" + Request.Form("longtitude") + "','" + Request.Form("phone") + "')"
        Dim cmd As SqlCommand = New SqlCommand(sqlstring, myConn)
        cmd.ExecuteNonQuery()
        myConn.Close()
        Response.Redirect(Request.RawUrl, True)
        Response.Write("1 record added")
    End Sub
</script>

Если вам это нужно в C #, запустите его через: http://wiki.sharpdevelop.net/Code%20Converter.ashx

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...