ASP中向mysql数据库写入数据_ASP中的SQL语句如何使用参数向数据库中写入数据?

展开全部

我理解你的需求，很可惜，ASP 不支持 @ 添加参数的方法。

不过，你可以使用 Recordset 对象的 AddNew 方法，能完美的e69da5e887aa3231313335323631343130323136353331333236373766满足你的需求。

不过你为什么不用 .net 平台呢？.net 还可以实现类型化的数据添加，更安全方便。

如果一定要用 asp，还可以参考一下微软的 DNA 架构一书(最好有自己的主机)。

说正题，针对你的 Insert(SQL)语句，以下是微软官方的 Recordset 对象的 AddNew 方法的示例代码：

AddNew 方法范例 (VBScript)

本范例使用 AddNew 方法来创建具有指定名称的新记录。

在 Active Server Page (ASP) 中使用下列范例。要查看此完整功能范例，C:\mssdk\samples\dataaccess\rds 处必须存在数据源 AdvWorks.mdb(与 SDK 一起安装)。这是 Microsoft Access 数据库文件。

使用 Find 定位文件 Adovbs.inc，并将其放到计划使用的目录中。请将下列代码剪切并粘贴到记事本或其他文本编辑器中，并将其另存为 AddNew.asp。可以在任何客户端浏览器中查看结果。

要执行本范例，请在 HTML 表中添加虚构的新记录。单击“Add New”。要删除不需要的记录，请参阅 Delete 方法范例。

ADO Open Method

ADO AddNew Method

src = "C:\mssdk\samples\dataaccess\rds\advworks.mdb"

sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & src

'Create and Open Connection Object

Set OBJdbConn = Server.CreateObject("ADODB.Connection")

OBJdbConn.Open sConnStr

'Create and Open Recordset Object

Set RsCustomerList = Server.CreateObject("ADODB.Recordset")

RsCustomerList.ActiveConnection = OBJdbConn

RsCustomerList.CursorType = adOpenKeyset

RsCustomerList.LockType = adLockOptimistic

RsCustomerList.Source = "Customers"

RsCustomerList.Open

%>

If this is first time page is open, Form collection will be empty when data is entered.

run AddNew method

-->

If Not Request.Form("CompanyName") = "" Then

RsCustomerList.AddNew

RsCustomerList("CompanyName") = Request.Form("CompanyName")

RsCustomerList("ContactLastName") = Request.Form("LastName")

RsCustomerList("ContactFirstName") = Request.Form("FirstName")

RsCustomerList("PhoneNumber") = Request.Form("PhoneNumber")

RsCustomerList("City") = Request.Form("City")

RsCustomerList("StateOrProvince") = Request.Form("State")

RsCustomerList.Update

RsCustomerList.MoveFirst

End If

End If

%>

Company Name	Contact Name	Phone Number	City	State/Province

RScustomerList.MoveNext

Loop

%>

---

Company Name:
Contact First Name:
Contact Last Name:
Contact Phone:
City:
State / Province:

Response.Write(OBJdbConn)

%>

Sub Form_OnSubmit

MsgBox "Sending New Record to Server",,"ADO-ASP _Example"

End Sub

本回答由提问者推荐

已赞过

已踩过<

你对这个回答的评价是？

评论

收起