copy.asp

用ASP写的二手市场程序

copy shuju complete
<%
   connstr = "DBQ="+server.mappath("data2.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   conn2 = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   Set DataConn = Server.CreateObject("ADODB.Connection")
   Set Conn = Server.CreateObject("ADODB.Connection")
   dataconn.open connstr 
   conn.open conn2
   Set InsertCursor = Server.CreateObject("ADODB.Recordset")
   Set cmdTemp = Server.CreateObject("ADODB.Command")
   set Rs = Conn.Execute("select * from data where id>0")
   cmdTemp.CommandText = " select * from data  where  (name IS NULL) "
   cmdTemp.CommandType = 1
   Set cmdTemp.ActiveConnection = dataconn
   InsertCursor.Open cmdTemp, , 1, 3
   do while not Rs.Eof
   InsertCursor.AddNew
   InsertCursor("buyorsell") = rs("buyorsell")
   InsertCursor("date") = rs("date")
   InsertCursor("time") = rs("time")
   InsertCursor("goods") = rs("goods")
   InsertCursor("kind") =rs("kind")
   InsertCursor("price") =rs("price")
   InsertCursor("amount") =rs("amount")
   InsertCursor("degree") = ndegree
   InsertCursor("buydate") =rs("buydate")
   InsertCursor("name") =rs("name")
   InsertCursor("email") =rs("email")
   InsertCursor("province") =rs("province")
   InsertCursor("city") =rs("city")
   InsertCursor("telephone") =rs("telephone")
   InsertCursor("bbcall") =rs("bbcall")
   InsertCursor("icq") =rs("icq")
   InsertCursor("oicq") =rs("oicq")
   InsertCursor("trademode") =rs("trademode")
   InsertCursor("content") =rs("content")
   InsertCursor("num") = rs("num")
   InsertCursor.Update
   
rs.movenext
loop
InsertCursor.close
   dataconn.close
   set InsertCursor=nothing
   set dataconn=nothing
%>