8_12.asp

来自「《asp网页设计》作者沈才梁源代码,共十章」· ASP 代码 · 共 20 行

<%
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.open "txl"	  '打开数据库
Set Rs = Server.CreateObject("ADODB.Recordset")	
SQL = "Select * from userlist " 
Rs.Open SQL,Conn,0,3   '打开记录集Rs，最后一个参数（锁定类型）应为2或3，这样才能添加新记录
Rs.AddNew	'调用AddNew方法，向数据库要求添加一个数据记录
'以下是给各个字段赋值
Rs("姓名")="李逵"
Rs("性别")="男"
Rs("出生日期")="79-3-31"
Rs("电话")="1234567"
Rs("地址")="浙江"
Rs("Email")="[e-mail]"
Rs.Update	'调用Update方法，将数据记录的内容写入数据库
Rs.Close
Set Rs=Nothing
%>
添加记录完毕