dataupdate.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

<% 
dim rsup,sqlup
set rsup=server.createobject("adodb.recordset")
sqlup="select aucended,aucclosedate,aucnum from auctions where DateDiff('s', aucclosedate, now())>0 or aucnum=0"
rsup.open sqlup,conn,1,3
if not rsup.eof then
do while not rsup.eof
  if DateDiff("d", rsup("aucclosedate"), now())>autodel then
'---------------删除商品留言----------
 	set rsdelly=server.createobject("adodb.recordset")
	sqldelly="select * from msg where aucid="&rsup("aucid")
	rsdelly.open sqldelly,conn,1,3
if not rsdelly.eof then
	do while not rsdelly.eof
	rsdelly.delete
	rsdelly.update
	rsdelly.movenext
	loop
end if
	rsdelly.close
	set rsdelly=nothing
'------------------------------------.
'---------------删除商品竞价----------
 	set rsdelbid=server.createobject("adodb.recordset")
	sqldelbid="select * from bids where biditemid="&rsup("aucid")
	rsdelbid.open sqldelbid,conn,1,3
if not rsdelbid.eof then
	do while not rsdelbid.eof
	rsdelbid.delete
	rsdelbid.update
	rsdelbid.movenext
	loop
end if
	rsdelbid.close
	set rsdelbid=nothing
'------------------------------------.
'---------------删除商品的一口价竞价-------
 	set rsdelykj=server.createobject("adodb.recordset")
	sqldelykj="select * from ykjbids where ykjbiditemid="&rsup("aucid")
	rsdelykj.open sqldelykj,conn,1,3
if not rsdelykj.eof then
	do while not rsdelykj.eof
	rsdelykj.delete
	rsdelykj.update
	rsdelykj.movenext
	loop
end if
	rsdelykj.close
	set rsdelykj=nothing
'-------------------------------------.
    	rsup.delete
	rsup.update
  else
rsup("aucended")="Y"
rsup("aucnum")=0
rsup.update
  end if
'response.write "yes"
rsup.movenext
loop
end if
rsup.close
set rsup=nothing
%>