記錄的增加與更新

'記錄集
<%
strcon="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/yiuwekdsodksldfslwifds.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.Open strcon
%>

'增加
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from zhuankan"
rs.open sql,conn,1,3
rs.addnew
rs("KanName")=KanName
rs("image")=image
rs("KanHao")=KanHao
rs("Author")=Author
rs("Hits")=Hits
rs("Istui")=Istui
rs("Isnew")=Isnew
rs("site")=site
rs("content")=content
rs.update
KanID=rs("KanID")
rs.close

'更新
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from zhuankan where KanID="&KanID
rs.open sql,conn,1,3
rs("KanName")=KanName
rs("image")=image
rs("KanHao")=KanHao
rs("Author")=Author
rs("Hits")=Hits
rs("Istui")=Istui
rs("Isnew")=Isnew
rs("site")=site
rs("content")=content
rs.update
rs.close
end if