谁能给我一段写入数据库的源码？简单点的。

conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "数据库路径" & "数据库名称"
set rsUserInfo=server.CreateObject("adodb.recordset")
mysql = "SELECT * FROM 表名称"
rsUserInfo.Open mysql,conn,3,3
rsUserInfo.Addnew()
rsUserInfo("字段名称") = Trim(变量名称)
rsUserInfo.update()
rsUserInfo.close()
set rsUserInfo=Nothing

以上代码中的conn是你的数据库连接，你首先要确定你的数据库连接已经建立成功，否则无法正确运行。

我以上给出的代码是在数据库中新插入一条记录，如果你是要修改数据库中的记录可以用下面的，

conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "数据库路径" & "数据库名称"
set rsUserInfo=server.CreateObject("adodb.recordset")
mysql = "SELECT * FROM 表名称 WHERE 要修改记录的ID="&返回的ID
rsUserInfo.Open mysql,conn,3,3

If Not rsUserInfo.eof Then
rsUserInfo("字段名称") = Trim(变量名称)
rsUserInfo.update()
Else
Response.write("没有找到对应的记录")
End If
rsUserInfo.c