?? szxxr1.asp
字號:
<!--#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")
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -