asp中access数据库的增删改查

<%set conn = server.createobject("adodb.connection")conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("../data/zhou.mdb")%>

连接数据库

<%newstitle = request.form("newstitle")newstype = request.form("newstype")newstext = request.form("newstext")newstext = replace(newstext,"'","''")newspic = request.form("newspic")newsfrom = request.form("newsfrom")newsyear = request.form("newsyear")exec = "insert into newscenter(newstitle,newstype,newstext,newspic,newsfrom,newsyear) values('" & newstitle & "','" & newstype &"','" & newstext & "','" & newspic & "','" & newsfrom & "','" & newsyear & "');"'response.write exec'response.endconn.execute exec%>

添加数据

<%myID = cint(request.form("id"))newstitle = request.form("newstitle")newstype = request.form("newstype")newstext = request.form("newstext")newspic = request.form("newspic")newsfrom = request.form("newsfrom")exec = "update newscenter set newstitle ='" & newstitle & "', newstype = '" & newstype & "',newstext = '" & newstext & "',newspic ='" & newspic & "' ,newsfrom ='" & newsfrom & "' where ID=" & myID'response.write exec'response.endconn.execute exec%>

修改数据

<%exec="delete * from newscenter where id="&request("ID")conn.execute exec%>

删除数据

                   <%exec = "select * from newscenter where newstype='liu' order by newstime desc"set rsqq = server.createobject("adodb.recordset")rsqq.open exec,conn,1,1for n=1 to 10 if not rsqq.eof then%> <br />                   <%            if len(rsqq("newstitle")) > 17 then         response.Write left(rsqq("newstitle"),15)&"..."             else             response.write rsqq("newstitle")        end if        %></a><% rsqq.movenext end if next rsqq.close set rsqq = nothing%>

查询数据