快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

澳门威尼人9499网站:操作xml的类



ASPValidate, Site validator

ASPValidate, Site validator

Author: Chris Read (Mail, Web)

Validation results

0 then

'' Problem with the file

Response.Write ""

Response.Write objNode.getAttribute("path") & "

"

Response.Write "^^^^ FILE HAS BEEN REMOVED

"

Response.Write ""

else

if CStr(objFile.DateLastModified)objNode.getAttribute("size") then

Response.Write ""

Response.Write objNode.getAttribute("path") & "

^^^^ Changed, "

Response.Write "original: " & objNode.getAttribute("modified") & " modified: " & objFile.DateLastModified & ", "

Response.Write "was " & objNode.getAttribute("size") & " bytes - now " & CStr(objFile.Size) & " bytes

"

Response.Write ""

lDifferences = lDifferences + 1

elseif objRequest("view")

Back to the main page

" & vbCRLF

sXML = sXML & "" & vbCRLF

sXML = sXML & "" & vbCRLF

sXML = sXML & "" & vbCRLF

sXML = sXML & ProcessFolder(Server.MapPath("/"))

sXML = sXML & "" & vbCRLF

sDate = Year(Date()) & "-" & Month(Date()) & "-" & Day(Date())

Response.ContentType = "text/xml"

Response.AddHeader "Content-Disposition","attachment; filename=site" & sDate & ".xml;"

Response.Write sXML

Response.End

else

Response.ContentType = "text/html"

%>

ASPValidate, Site validator

ASPValidate, Site validator

Author: Chris Read (Mail, Web)

It validates sites

This script澳门威尼人9499网站 will scan your entire web site from the root folder, and record the file sizes and last modified dates for all ASP pages.

This is saved as XML. Then, at a later date, when you need to make adjustments or check anything, you can load the XML into

this script again and it''ll tell you which files have changed and when.

Checksum all ASP files on this site and generate an XML checksum file

Right-click here and select "Save As" to download for ASP files only

Right-click here and select "Save As" to download for ASP and HTML files

OR

Upload XML File of checksums and validate it against this site

File:

Show all results:

" & vbCRLF

end if

Next

For Each objFolder in objRoot.SubFolders

sTemp = sTemp & ProcessFolder(sFolder & "" & objFolder.Name)

Next

Set objFolder = Nothing

ProcessFolder = sTemp

End Function

'' Reques object proxy for uploads.

Class ProxyRequest

Public ClientCertificate

Public Cookies

Public Form

Public QueryString

Public ServerVariables

Public TotalBytes

Private m_Item

Public Default Property Get Item(sIndex)

Item = m_Item(sIndex)

End Property

Private sBinaryText

Public Function BinaryRead(lTotalBytes)

BinaryRead = LeftB(sBinaryText,lTotalBytes)

End Function

Private Sub ParseRequest()

Dim sDelimeter

Dim lKeyLength

Dim lBlockEnd

Dim sBlock

Dim sTemp

Dim sField

Dim lStart澳门威尼人9499网站

Dim lLength

Dim sFilename

Dim sContentType

Dim sContent

sBlock = sBinaryText

lKeyLength = InstrB(1,sBlock,ChrB(&H0D)) - 1

if lKeyLength > 0 then

sDelimeter = LeftB(sBlock,lKeyLength)

lBlockEnd = 0

while lBlockEnd >= 0澳门威尼人9499网站

'' Chop off the key, including the CR/LF pair

sBlock = RightB(sBlock,LenB(sBlock) - (lBlockEnd + lKeyLength + 2))

lBlockEnd = InStrB(1,sBlock,sDelimeter) - 1

if lBlockEnd >= 0 then

sTemp = LeftB(sBlock,lBlockEnd - 2)

lStart = InStrB(1,sTemp,UNICODEToASCII("name=")) + 6

lLength = InStrB(lStart,sTemp,ChrB(34)) - lStart

sField = MidB(sTemp,lStart,lLength)

lStart = InStrB(1,sTemp,UNI澳门威尼人9499网站CODEToASCII("filename=")) + 10

lLength = InStrB(lStart,sTemp,ChrB(34)) - lStart

if lStart > 10 then

sFilename = MidB(sTemp,lStart,lLength)

lStart = InStrB(1,sTemp,UNICODEToASCII("Content-Type:")) + 14

lLength = InStrB(lStart,sTemp,ChrB(&H0D)) - lStart

sContentType = MidB(sTemp,lStart,lLength)

else

sFilename = ""

sContentType = ""

en澳门威尼人9499网站d if

lStart = InStrB(1,sTemp,UNICODEToASCII(vbCRLF & vbCRLF)) + 4

lLength = LenB(sTemp) - lStart + 1

sContent = MidB(sTemp,lStart,lLength)

if ASCIIToUNICODE(sFilename)

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: