<!--连接数据库部分(包含销毁对象子过程函数)Begin->
dim conn
set conn = server.createobject("adodb.connection")
conn.open "driver={SQL Server};server=127.0.0.1;UID=sa;PWD=sa;database=guest;"
sub close_conn
conn.close
set conn = nothing
end sub
sub close_rs
rs.close
set rs = nothing
end sub
<!--连接数据库部分(包含销毁对象子过程函数)End->
<!--插入方式一Begin-->'新增一条留言内容' 第一种新增并且,跳转到那个新增的文章页面上
dim sql,rs
sql = "insert into G_Article (G_Title,G_UserName,G_Kind,G_Brow,G_Content,G_Date) values ('"&title&"','"&username&"','"&kind&"','"&brow&"','"&content&"',now())"
conn.execute(sql)
'新增了一条,他的时间是最晚的时间+他的用户名(唯一的
'就可以筛选到这个新增的文章的ID
set rs = server.createobject("adodb.recordset")
sql = "select * from G_Article where G_UserName='"&username&"' order by G_Date desc"
rs.open sql,conn,1,1
if not rs.eof then
showid = rs("G_ID")
else
call close_rs
call close_conn
response.write "<script>alert('发生错误');history.back();</script>"
response.end
end if
call close_rs
<!--插入方式一End-->
<!--插入方式二Begin-->
'第二种方法,新增,
dim rs,sql,showid
set rs = server.createobject("adodb.recordset")
sql = "select * from G_Article"rs.open sql,conn,1,3 '这里是3,为什么?3可写这个是通过recordset对象新增的
rs.addnewrs("G_Title") = title '当新增了这条数据,那么G_ID就有值了,并且指针在那条记录上
rs("G_UserName") = username
rs("G_Kind") = kind
rs("G_Brow") = browrs("G_Content") = content
rs("G_Date") = now()
showid = rs("G_ID")
rs.update
call close_rs
call close_conn
<!--插入方式二End-->
ASP插入数据库的两种方式
最新推荐文章于 2022-11-03 16:08:32 发布