Nmail ASP 서비스 종료 안내(EOS)
필터링 progress.asp 소스
엔터프라이즈 3.2
소스는 수정한 부분이 없어서요 어제에 이어서 올립니다.
해결되어야 사항이어서 이렇게 올립니다.
소스좀 봐주세요
테이블에서 정상적인 값들이 들어가 있습니다.
<!--#Include File = "config.asp"-->
<!--#Include File = "Include/IncHead.asp"-->
<%
Response.Buffer = true
Dim strSql
Dim filterCount
Dim mailCount
Dim totalCount
Dim getMailFileName
Dim fromEmail
Dim title
Dim password
Set Rs = Server.CreateObject("ADODB.RecordSet")
strSql = "SELECT " _
& "FILTER_STRING, " _
& "FILTER_TYPE, " _
& "FILTER_ACTION, " _
& "FILTER_USE " _
& "FROM " _
& "FILTERING " _
& "WHERE " _
& "USER_ID = '" & userId & "' " _
& "AND DOMAIN = '" & servers & "' " _
& "AND FILTER_USE = 'Y'"
Rs.Open strSql, DbCon, 1
filterCount = Rs.RecordCount
ReDim filterString(filterCount)
ReDim filterType(filterCount)
ReDim filterAction(filterCount)
ReDim filterUse(filterCount)
For i = 0 To filterCount - 1
filterString(i) = trim(Rs("filter_string"))
filterType(i) = trim(Rs("filter_type"))
filterAction(i) = trim(Rs("filter_action"))
filterUse(i) = trim(Rs("filter_use"))
Rs.Movenext
Next
Rs.Close
strSql = "SELECT " _
& "PW " _
& "FROM " _
& "MAILUSER " _
& "WHERE " _
& "USERS = '" & userId & "' " _
& "AND DOMAIN = '" & servers & "'"
Rs.Open strSql, DbCon
If Rs.EOF or Rs.BOF Then
With Response
.Write "<script language=""javascript"">" & vbcrlf _
& "<!--" & vbcrlf _
& " alert(""사용자 정보가 없습니다."");" & vbcrlf _
& " self.close();" & vbcrlf _
& "//-->" & vbcrlf _
& "</script>"
.End
End With
End If
password = Rs("pw")
Rs.Close
DbCon.Close
Set Rs = Nothing
Set DbCon = Nothing
Set RFM = Server.CreateObject("ReadFileMail.FileMail.1")
mailCount = RFM.Mailbox_mailcount(path, "mailbox")
totalCount = mailCount
%>
<center>
현재 진행 상태 <br><br>
<OBJECT id=PB name=PB style="LEFT: 0px; WIDTH: 300px; TOP: 500px; HEIGHT: 14px" classid="clsid:0713E8D2-850A-101B-AFC0-4210102A8DA7" width=530 height=14 VIEWASTEXT>
<PARAM NAME="_ExtentX" VALUE="14023">
<PARAM NAME="_ExtentY" VALUE="370">
<PARAM NAME="_Version" VALUE="327682">
<PARAM NAME="BorderStyle" VALUE="1">
<PARAM NAME="Appearance" VALUE="0">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="Min" VALUE="0">
<PARAM NAME="Max" VALUE="100">
</OBJECT>
<html>
<head>
<title></title>
<link rel="STYLESHEET" type="text/css" href="default.css">
</head>
<body>
<br><br>
<span id="message" name="message">
</span>
<%
' 현재 버퍼의 내용으로 클라언트에 표시
Response.Flush
If totalCount > 0 Then
k = 0
For i = 0 To mailCount
RFM.Summarymail path, "mailbox", i
getMailFileName = RFM.Get_mailfilename(i)
fromEmail = RFM.email_from
title = RFM.subject
title = replace(title, "<", "<")
title = replace(title, ">", ">")
RFM.subject = ""
For j = 0 To filterCount - 1
If filterUse(j) = "Y" Then
If filterType(j) = "S" Then
If InStr(title, filterString(j)) > 0 Then
RFM.Mail_move servers, user, "mailbox", filterAction(j), getMailFileName
End If
ElseIf filterType(j) = "F" or filterType(j) = "D" Then
If InStr(fromEmail, filterString(j)) > 0 Then
RFM.Mail_move servers, user, "mailbox", filterAction(j), getMailFileName
End If
End If
status = (k / totalCount) * 100
%>
<script>
PB.Value = <%= status %>;
message.innerText = "총 <%= totalCount %>개의 메일중 <%= k %>개의 메일을 필터링 했습니다.";
</script>
<%
k = k + 1
Else
Exit For
End If
Response.Flush
Next
Next
End If
Set RFM = Nothing
%>
<SCRIPT LANGUAGE=javascript>
<!--
setTimeout("action();", 2000);
function action()
{
opener.parent.body.location.reload();
self.close();
}
//-->
</SCRIPT>
</body>
| 이전 글 | 첫줄만 보입니다. -_-;; 3 | 환*쓰 | 2004.04.28 |
|---|---|---|---|
| 다음 글 | 페이지를 찾을수가 없습니다. 1 | 안*원 | 2004.04.26 |