아래의 소스를 프로시저로 만들고 싶습니다...
많은 도움 주시면 감사드릴께요...
<%
sdate = now()-1
sdate = Replace(FormatDateTime(sdate,2),"-","")&"000000"
'하루전 데이터를 모두 가져옴
sql = "select * from CDR where ETIME < '"& sdate &"' "
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,DbCon
if rs.EOF and rs.BOF then
else
i = 1
do until rs.EOF
'데이터 백업
sql_cdr = "INSERT INTO CDR_BAK (num,stno,callid)"
sql_cdr = sql_cdr & "values('"&rs(0)&"','"&rs(1)&"','"&rs(2)&"')"
DbCon.Execute sql_cdr
i = i + 1
rs.MoveNext
loop
end if
'백업된 데이터 원본 삭제
sql_del = "DELETE CDR where ETIME < '"& sdate &"'
DbCon.Execute sql_del
RESPONSE.WRITE sdate&"<br>"
RESPONSE.WRITE i&"개 데이터 입력 성공"
DbCon.Close
set RS = nothing
set DbCon = nothing
%>
|