📄 admin_comparefilesonline.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.XmlHttp.asp"-->
<!--#include file="../Include/PowerEasy.Edition.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const PurviewLevel = 0
Const PurviewLevel_Channel = 0
Const PurviewLevel_Others = ""
Const NeedCheckComeUrl = True
Const AdminType = True
Const EnableGuestCheck = "Yes"
Dim FilesNum, i, theFiles, ObjInstalled_XML
Dim FileInfoURL
FileInfoURL = "http://www.powereasy.net/FileList/SiteWeaver/" & SystemEdition & ".txt"
ObjInstalled_XML = IsObjInstalled("MSXML2.XMLHTTP")
strFileName = "Admin_CompareFilesOnline.asp"
Response.Write "<html><head><title>上传文件管理</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link href='Admin_Style.css' rel='stylesheet' type='text/css'></head>"
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' Class='border'>" & vbCrLf
Call ShowPageTitle("在线比较网站文件", 10031)
If Action <> "" Then
Response.Write " <tr class='tdbg'> "
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>"
Response.Write " <td height='30'><a href='" & strFileName & "?Action=ShowAllResult'>全部显示</a> | <a href='" & strFileName & "?Action=ShowOnlyDif'>只显示差异部分</a></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'> "
Response.Write " <td width='80' height='30'><strong>各项的含义：</strong></td>"
Response.Write " <td height='30'> " & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write " <td><b>'= '</b>----两边大小时间完全相同</td>" & vbCrLf
Response.Write " <td><font color='red'><b>'≠'</b></font>----两边大小不相同</td>" & vbCrLf
Response.Write " <td><font color='gray'><b>'≈'</b></font>----两边仅仅时间不同</td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write " <td><font color='red'>红色</font>----不相同，修改或更新过的文件</td>" & vbCrLf
Response.Write " <td><font color='blue'>蓝色</font>----本地不存在的文件</td>" & vbCrLf
Response.Write " <td><font color='gray'>灰色</font>----官方有新文件，但本地未更新的文件</td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write " <td><font color='black'>黑色</font>----相同文件或官方文件</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</td>"
Response.Write " </tr>"
Else
Response.Write " <tr class='tdbg'> "
Response.Write " <td width='80' height='30'><strong>管理导航：</strong></td>"
Response.Write " <td height='30'><a href='" & strFileName & "'>在线比较网站文件信息</a> </td>"
Response.Write " </tr>"
End If
Response.Write "</table>" & vbCrLf
If ObjInstalled_FSO = False Then
Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>"
Response.End
End If
If ObjInstalled_XML = False Then
Response.Write "<b><font color=red>你的服务器不支持 XMLHTTP 组件! 不能使用本功能</font></b>"
Response.End
End If
Select Case Action
Case "ShowOnlyDif"
Call ShowOnlyDif
Case "ShowAllResult"
Call ShowAllResult
Case Else
Call Main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub Main()
Response.Write "<br><table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' align='center'><strong>在线比较网站文件信息</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='150'>"
Response.Write "<form name='form1' method='post' action='" & strFileName & "'>"
Response.Write "<br> 管理员可以利用本功能，在线比较Web空间中的网站ASP文件和动易官方发布的相应版本中原始ASP文件，方便Web空间文件管理。<br>有以下情况出现皆可以使用本功能进行比较：<font color='green'><br> 1）当官方更新文件时；<br> 2）当怀疑站点ASP文件被人删除或恶意修改时；<br> 3）当官方发布漏洞补丁时。</font>"
Response.Write "<p> 如果网站频道很多，或者网络速度比较慢，执行本操作需要耗费相当长的时间，请在访问量少时执行本操作。</p>"
Response.Write "<p align='center'><input name='Action' type='hidden' id='Action' value='ShowAllResult'>"
Response.Write "<input type='submit' name='Submit3' value=' 开始比较 '></p>"
Response.Write "</form>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
End Sub
Sub ShowAllResult()
Dim Html, GetFiles, FileInfo
Dim f, fPath, FileSize, FileDate, theFilePath, FileName, interHtml
Html = GetHttpPage(FileInfoURL, 0)
'response.write Html
'Exit sub
If Html = "" Then
Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>获取官方数据失败，可能是您的服务器不支持 XMLHTTP 组件或者是通过代理服务器访问网络。</font></p>"
Exit Sub
End If
If AdminDir <> "Admin" Then
Html = Replace(Html, "Admin/", AdminDir & "/")
End If
If ADDir <> "AD" Then
Html = Replace(Html, "AD/", ADDir & "/")
End If
GetFiles = Split(Html, vbCrLf)
FilesNum = UBound(GetFiles)
ReDim theFiles(FilesNum - 1)
For i = 0 To FilesNum - 1
FileInfo = Split(GetFiles(i), "|")
theFiles(i) = FileInfo
Next
'复制strChannel类型的频道开始
Call ChangeArr("Article", 1)
Call ChangeArr("Soft", 2)
Call ChangeArr("Photo", 3)
'复制strChannel类型的频道完毕
Response.Write "<br>"
Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0' class='border'>" & vbCrLf
Response.Write "<tr class='title0'>" & vbCrLf
Response.Write " <td> 名称(官方)</td>" & vbCrLf
Response.Write " <td> 大小</td>" & vbCrLf
Response.Write " <td> 修改时间</td>" & vbCrLf
Response.Write " <td class='tdtop'> </td>" & vbCrLf
Response.Write " <td> 名称(本站)</td>" & vbCrLf
Response.Write " <td> 大小</td>" & vbCrLf
Response.Write " <td> 修改时间</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Dim j, dyNum, bdyNum, ydyNUm, bczNum
j = 1
dyNum = 0
bdyNum = 0
ydyNUm = 0
bczNum = 0
For i = 0 To FilesNum - 1
theFilePath = Replace(InstallDir & theFiles(i)(0), "//", "/")
fPath = Server.MapPath(theFilePath)
If j Mod 2 = 0 Then
Response.Write "<tr class='tdbg1' onmouseout=""this.className='tdbg1'"" onmouseover=""this.className='tdbgmouseover'"">" & vbCrLf
Else
Response.Write "<tr onmouseout=""this.className='tdbgmouseout1'"" onmouseover=""this.className='tdbgmouseover'"">" & vbCrLf
End If
If fso.FileExists(fPath) Then
Set f = fso.GetFile(fPath)
FileName = theFiles(i)(0)
FileSize = f.size
FileDate = f.DateLastModified
If theFiles(i)(1) <> CStr(FileSize) Then
interHtml = "red'>≠"
bdyNum = bdyNum + 1
Else
interHtml = "gray'>≈"
If CDate(theFiles(i)(2)) <> FileDate Then
ydyNUm = ydyNUm + 1
End If
End If
If theFiles(i)(1) = CStr(FileSize) And CDate(theFiles(i)(2)) = FileDate Then
Response.Write " <td><b>·</b>" & theFiles(i)(0) & "</td>" & vbCrLf
Response.Write " <td align='right'>" & FormatNumber(theFiles(i)(1), 0, vbTrue, vbFalse, vbTrue) & " </td>" & vbCrLf
Response.Write " <td>" & theFiles(i)(2) & "</td>" & vbCrLf
Response.Write " <td class='tdinter'><b>=</b></td>" & vbCrLf
Response.Write " <td><b>·</b>" & FileName & "</td>" & vbCrLf
Response.Write " <td align='right'>" & FormatNumber(FileSize, 0, vbTrue, vbFalse, vbTrue) & " </td>" & vbCrLf
Response.Write " <td>" & FileDate & "</td>" & vbCrLf
dyNum = dyNum + 1
Else
If CDate(theFiles(i)(2)) > FileDate Then
Response.Write " <td><font color='red'><b>·</b>" & theFiles(i)(0) & "</font></td>" & vbCrLf
Response.Write " <td align='right'><font color='red'>" & FormatNumber(theFiles(i)(1), 0, vbTrue, vbFalse, vbTrue) & "</font> </td>" & vbCrLf
Response.Write " <td><font color='red'>" & theFiles(i)(2) & "</font></td>" & vbCrLf
Response.Write " <td class='tdinter'><b><font color='" & interHtml & "</font></b></td>" & vbCrLf
Response.Write " <td><font color='gray'><b>·</b>" & FileName & "</font></td>" & vbCrLf
Response.Write " <td align='right'><font color='gray'>" & FormatNumber(FileSize, 0, vbTrue, vbFalse, vbTrue) & "</font> </td>" & vbCrLf
Response.Write " <td><font color='gray'>" & FileDate & "</font></td>" & vbCrLf
Else
Response.Write " <td><b>·</b>" & theFiles(i)(0) & "</td>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -