[핵킹발생추적] 모든 프로그램에 ORG.size 삽입하고 Watchdog,asp에서 CURR.size 상호비교 알고리즘
<!--------------------------------------------------------------------------->
<!----------------------모든 프로그램에 삽입---------------------------------->
<!--------------------------------------------------------------------------->
<%
'''''''''''''Watchdog-----------------------------------------
Path = "/icact.org/journal.asp "
Watchdog = "1"
Mnemonic = "Journal "
FsizeORG = 9266
Response.Write FsizeORG
Response.Write (" : ")
%>
<!--#include virtual="/include/Watchdog.asp"-->
'''''''''''''Watchdog-----------------------------------------
<!--------------------------------------------------------------------------->
<!----------------------/include/watch.asp---------------------------------->
<!--------------------------------------------------------------------------->
<%
If FsizeORG <> FsizeCURR Then
'''''''''''''''''make eMail contents--
mail_from = "secretariat@icact.org"
mail_to = "tomayoon@hotmail.com"
mail_subject = "ICACT.ORG Hecking Information "
mail_content = "<table width=450 height=230 cellspacing=0 cellpadding=0 border=0 align=center>"
mail_content = mail_content & " <tr><td align=center>"
mail_content = mail_content & " <font size=3> ICACT.ORG Hecking Information </font><br><br>"
mail_content = mail_content & "<font size=5> FileName is " & Path & "<br>"
mail_content = mail_content & " Visitor IP is " & Visitor_IP & "<br>"
mail_content = mail_content & " Full path is " & FullPath & "<br>"
mail_content = mail_content & "FsizeORG " & FsizeORG & " : FsizeCURR " & FsizeCURR &"<br>"
mail_content = mail_content & Today & "</font><br>"
mail_content = mail_content & " </td></tr></table> "
''''''''''''''''Send eMail--
Send_mail = GetSendMail(mail_from, mail_to, mail_subject, mail_content)
End If
%>