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.end
conn.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.end

conn.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,1
for 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%>