sethits.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<%sub initmon()
 dim initmonRS
  set initmonRS= server.createobject("adodb.recordset")
  initmonRS.open "select * from sethits",conn,1,3
    if initmonRS("setmon")=false then
    initmonRS.close
    set initmonRS=nothing
    exit sub
   else
	initmonRS("setmon")=false
	initmonRS.update
   end if
end sub

sub initweek()
 dim initweekRS
  set initweekRS= server.createobject("adodb.recordset")
  initweekRS.open "select * from sethits",conn,1,3
    if initweekRS("setweek")=false then
    initweekRS.close
    set initweekRS=nothing
    exit sub
   else
	initweekRS("setweek")=false
	initweekRS.update
   end if
end sub

sub setmonhit()
 Dim monRS
   set monRS= server.createobject("adodb.recordset")
   monRS.open "select * from sethits",conn,1,3
    if monRS("setmon")=true then
    monRS.close
    set monRS=nothing
    exit sub
   else
    conn.execute "update film set monthhits=0"
	monRS("setmon")=true
	monRS.update
   end if
   monRS.close
   set monRS=nothing
end sub

sub setweekhit()
 Dim weekRS
   set weekRS= server.createobject("adodb.recordset")
   weekRS.open "select * from sethits",conn,1,3
   if weekRS("setweek")=true then
    weekRS.close
    set weekRS=nothing
    exit sub
   else
    conn.execute "update film set weekhits=0"
	weekRS("setweek")=true
	weekRS.update
   end if
   weekRS.close
   set weekRS=nothing
end sub%>