用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
				%>