szxxr1.asp

OFFICE办公自动化

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
dim nian,yue,rq,rq1
Response.Buffer =true
rq=Request.Form("c1")
If rq<>""  Then
	rq1 = Split(rq,",")
	for i=0 to 1
	nian=year(cdate(rq1(0)))
    yue=month(cdate(rq1(0)))
    next
    
    Set RS =server.CreateObject("ADODB.RecordSet")
    if nian=year(now) and yue=month(now) then
       sql="delete from kq_xxrb where year(xxr)=" & nian & " and month(xxr)=" & yue & "and day(xxr)>" & day(now)  
       oConn.execute sql
      
    elseif nian>year(now) or (nian=year(now) and yue>month(now)) then
       sql="delete from kq_xxrb where year(xxr)=" & nian & " and month(xxr)=" & yue   
       oConn.execute sql
    end if
    
    rq1 = Split(rq,",")
	for i=0 to ubound(rq1)
      Set RS =CreateObject("ADODB.RecordSet")
	  sql="insert into kq_xxrb values('" & trim(rq1(i)) & "')"
      Response.Write rq1(i)
      oConn.execute sql
    next
else
    nian=Request.Form("nian")
    yue=Request.Form("yue")
 
    Set RS =server.CreateObject("ADODB.RecordSet")
    if cstr(nian)=cstr(year(now)) and cstr(yue)=cstr(month(now)) then
       sql="delete from kq_xxrb where year(xxr)=" & nian  & " and month(xxr)=" & yue & "and day(xxr)>" & day(now)  
       oConn.execute sql
    elseif cstr(nian)>cstr(year(now)) or (cstr(nian)=cstr(year(now)) and cstr(yue)>cstr(month(now))) then
       sql="delete from kq_xxrb where year(xxr)=" & nian & " and month(xxr)=" & yue   
       oConn.execute sql
    end if
End If
oconn.close
set oconn=nothing
Response.Redirect("szxxr.asp")
%>