📄 admin_comparefilesonline.asp
字号:
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><font color='" & interHtml & "</font></b></td>" & vbCrLf
If interHtml = "gray'>≈" Then
Response.Write " <td><b>·</b>" & FileName & "</td>" & vbCrLf
Response.Write " <td align='right'>" & FormatNumber(FileSize, 0, vbTrue, vbFalse, vbTrue) & " </td>" & vbCrLf
Else
Response.Write " <td><font color='red'><b>·</b>" & FileName & "</font></td>" & vbCrLf
Response.Write " <td align='right'><font color='red'>" & FormatNumber(FileSize, 0, vbTrue, vbFalse, vbTrue) & "</font> </td>" & vbCrLf
End If
Response.Write " <td><font color='red'>" & FileDate & "</font></td>" & vbCrLf
End If
End If
Else
Response.Write " <td><font color='blue'><b>·</b>" & theFiles(i)(0) & "</font></td>" & vbCrLf
Response.Write " <td align='right'><font color='blue'>" & FormatNumber(theFiles(i)(1), 0, vbTrue, vbFalse, vbTrue) & " </font></td>" & vbCrLf
Response.Write " <td><font color='blue'>" & theFiles(i)(2) & "</font></td>" & vbCrLf
Response.Write " <td class='tdinter'> </td>" & vbCrLf
Response.Write " <td></td>" & vbCrLf
Response.Write " <td></td>" & vbCrLf
Response.Write " <td></td>" & vbCrLf
bczNum = bczNum + 1
End If
Response.Write "</tr>" & vbCrLf
j = j + 1
Next
Response.Write "</table>" & vbCrLf
Response.Write "<br>" & vbCrLf
Response.Write "<table width='100%'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td colspan='5'><b>官方和本站比较结果统计：</b></td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write " <td>两边大小时间完全相同：<font color='red'>" & dyNum & "</font> 个</td>" & vbCrLf
Response.Write " <td>两边大小不相同：<font color='green'>" & bdyNum & "</font> 个</td>" & vbCrLf
Response.Write " <td>两边仅仅时间不同：<font color='gray'>" & ydyNUm & "</font> 个</td>" & vbCrLf
Response.Write "</tr><tr>" & vbCrLf
Response.Write " <td>本地不存在的文件：<font color='blue'>" & bczNum & "</font> 个</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<br>" & vbCrLf
End Sub
Sub ChangeArr(strChannel, ModuleType)
'复制strChannel类型的频道开始
Dim arrstrChannel, arrstrChannelNum, arrstrChannelAll, arrstrChannelAllNum
Dim sqlstrChannel, rsstrChannel, arrResult
arrstrChannelNum = -1
arrstrChannelAllNum = -1
ReDim arrstrChannel(20)
For i = 0 To FilesNum - 1
If InStr(theFiles(i)(0), strChannel & "/") > 0 Then
arrstrChannelNum = arrstrChannelNum + 1
If arrstrChannelNum > UBound(arrstrChannel) Then
ReDim Preserve arrstrChannel(arrstrChannelNum + 20)
End If
arrstrChannel(arrstrChannelNum) = theFiles(i)
End If
Next
ReDim Preserve arrstrChannel(arrstrChannelNum)
sqlstrChannel = "select ChannelDir from PE_Channel where ModuleType=" & ModuleType & " and ChannelType=1 and ChannelDir<>'" & strChannel & "' order by ChannelID asc"
Set rsstrChannel = Server.CreateObject("ADODB.Recordset")
rsstrChannel.Open sqlstrChannel, Conn, 1, 3
ReDim arrstrChannelAll((arrstrChannelNum + 1) * rsstrChannel.RecordCount + 20)
Do While Not rsstrChannel.EOF
For i = 0 To arrstrChannelNum
arrstrChannelAllNum = arrstrChannelAllNum + 1
arrResult = Replace(arrstrChannel(i)(0), strChannel & "/", rsstrChannel("ChannelDir") & "/")
arrstrChannelAll(arrstrChannelAllNum) = Array(arrResult, arrstrChannel(i)(1), arrstrChannel(i)(2))
Next
rsstrChannel.MoveNext
Loop
rsstrChannel.Close
Set rsstrChannel = Nothing
If arrstrChannelAllNum > -1 Then
ReDim Preserve arrstrChannelAll(arrstrChannelAllNum)
ReDim Preserve theFiles(FilesNum + arrstrChannelAllNum)
For i = FilesNum To FilesNum + arrstrChannelAllNum
theFiles(i) = arrstrChannelAll(i - FilesNum)
Next
FilesNum = FilesNum + arrstrChannelAllNum + 1
End If
'复制strChannel类型的频道完毕
End Sub
Sub ShowOnlyDif()
Dim Html, GetFiles, FileInfo
Dim f, fPath, FileSize, FileDate, theFilePath, FileName, interHtml, trHtml
Html = GetHttpPage(FileInfoURL, 0)
If Html = "" Then
Response.Write "<br><p align='center'><font color='red' style='font-size:9pt'>获取官方数据失败，可能是您的服务器不支持 XMLHTTP 组件或者是通过代理服务器访问网络。</font></p>"
Exit Sub
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
j = 1
For i = 0 To FilesNum - 1
theFilePath = Replace(InstallDir & theFiles(i)(0), "//", "/")
fPath = Server.MapPath(theFilePath)
If j Mod 2 = 0 Then
trHtml = "<tr class='tdbg1' onmouseout=""this.className='tdbg1'"" onmouseover=""this.className='tdbgmouseover'"">" & vbCrLf
Else
trHtml = "<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'>≠"
Else
interHtml = "gray'>≈"
End If
If theFiles(i)(1) = CStr(FileSize) And CDate(theFiles(i)(2)) = FileDate Then
j = j - 1
Else
If CDate(theFiles(i)(2)) > FileDate Then
Response.Write trHtml & vbCrLf
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
Response.Write "</tr>" & vbCrLf
Else
Response.Write trHtml & vbCrLf
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><font color='" & interHtml & "</font></b></td>" & vbCrLf
If interHtml = "gray'>≈" Then
Response.Write " <td><b>·</b>" & FileName & "</td>" & vbCrLf
Response.Write " <td align='right'>" & FormatNumber(FileSize, 0, vbTrue, vbFalse, vbTrue) & " </td>" & vbCrLf
Else
Response.Write " <td><font color='red'><b>·</b>" & FileName & "</font></td>" & vbCrLf
Response.Write " <td align='right'><font color='red'>" & FormatNumber(FileSize, 0, vbTrue, vbFalse, vbTrue) & "</font> </td>" & vbCrLf
End If
Response.Write " <td><font color='red'>" & FileDate & "</font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
End If
Else
Response.Write trHtml & vbCrLf
Response.Write " <td><font color='blue'><b>·</b>" & theFiles(i)(0) & "</font></td>" & vbCrLf
Response.Write " <td align='right'><font color='blue'>" & FormatNumber(theFiles(i)(1), 0, vbTrue, vbFalse, vbTrue) & " </font></td>" & vbCrLf
Response.Write " <td><font color='blue'>" & theFiles(i)(2) & "</font></td>" & vbCrLf
Response.Write " <td class='tdinter'> </td>" & vbCrLf
Response.Write " <td></td>" & vbCrLf
Response.Write " <td></td>" & vbCrLf
Response.Write " <td></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
End If
j = j + 1
Next
Response.Write "</table>" & vbCrLf
Response.Write "<br>" & vbCrLf
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -