当年偶写的asp程

 当年偶用VBScript写的asp程序，好不容易从电脑上翻了出来，在ADO.NET大行其道的今天，偶确要研究一下先进的ADO技术，真有点时空错乱的感觉

 

   dim conn  
   dim connstr

   on error resume next
  c+server.mappath("database/db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

   set conn=server.createobject("ADODB.CONNECTION")
   if err then
      err.clear
   else
        conn.open connstr
        if err then
           err.clear
        end if
   end if

set rs=Server.CreateObject("ADODB.recordset")
sql="select * from news"
rs.open sql,conn,1,3
rs.addnew
rs("main")=trim(request("s1")) 
rs("content")=trim(request("s2"))
rs("picexplain")=trim(request("s3"))
rs("type")=trim(request("c1"))
rs("source")=trim(request("t1"))
rs("manager")=Request.Cookies("Username")
rs("time")=now
rs.Update
rs.Close

 

 

 

set rs=server.CreateObject("adodb.recordset")
    sql="select * from news where id="&n
  rs.open sql,conn,1,3

if not rs.eof then
  rs.delete
end if

 

 

 

set rs=server.CreateObject("adodb.recordset")
    sql="select * from news where type='"&z&"' order by id desc"
  rs.open sql,conn,1,1

 

do while not (rs.eof or err) %>
    <%=rs("main")%>
rs.movenext    
loop