大家新年快乐！！

[newmoon7]

我想向数据库中插入数据，应该怎样写这样的程序呢？最好用ASP写。谢！

[tuoshi]

呵呵，接分！~~

用ADODB

[luluso]

ado

[foxmen]

set sql_conn=server.createobject("adodb.connection")
sql_conn.Open "driver={sql server};server=服务器名;UID=用户名;PWD=密码;Database=数据库名"

set_data_sql="insert into...... "
set set_data_rs=CreateObject("ADODB.RECORDSET")
set_data_rs.open set_data_sql,sql_conn,1,3

[newmoon7]

兄弟们，我想要完整的程序，我试过用ADO了，可是出现错了，我想要一个能在我的电脑上运行的，帮帮忙吧！我想回家过个好年。

[newmoon7]

<!--#include file=./link.asp-->
<%
s_nickname=request.form("s_nickname")
s_sex=request.form("s_sex")
s_age=request.form("s_age")
s_number=request.form("s_number")
s_class=request.form("s_class")

sql="insert into student(s_name,s_sex,s_age,s_number,s_class) values('"&s_nickname&"','"&s_sex&"',"&s_age&",'"&s_number&"','"&s_class&"')"
' response.write sql:response.end
conn.execute(sql)
response.redirect "show.asp"
%>
请问这种写法对吗？

[xeimm]

dim sql
dim rs
set rs = server.CreateObject("ADODB.RecordSet")
'将新闻保存入数据库
sql="select * from department where (id is null)"

rs.open sql,conn,1,3
rs.addnew
rs("department")=name1
rs("user")=user
rs("pass")=pass
rs.update


rs.close
set rs=nothing
conn.close

[swich]

rs.addnew
rs("name")=name
rs.update

[babycoolku]

sql数据库：

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "PROVIDER=SQLOLEDB;SERVER SOURCE=;UID=sa;PWD=;DATABASE="
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from 表名 ",conn,1,3
rs.addnew
rs("nickname")=s_request.form("s_nickname")
.....
rs.update
rs.close
set rs=nothing
conn.close
%>

Access数据库

<%
QADB ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库路径+数据库名")
Set conn= Server.CreateObject("ADODB.Connection")
conn.open QADB
sql="select * from 表名"
set rs=server.creatobject("Adodb.recordset")
rs.open conn,sql,1,3
rs.addnew
....
rs.update
rs.close
set rs=nothing
conn.close
%>

当然也可以用insert语句的~~~

[oliver007]

接分

[潜水的鱼]

去当个源代码,研究下,不就行了

[online]

新年快乐
使用insert语句

[liaoxing]

新年快乐rs.addnew
....
rs.update

[x_gn]

babycoolku(卑鄙酷) 的已经很全了