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

苹果手机下载金沙娱城手机版:操作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.Wri苹果手机下载金沙娱城手机版te ""

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 will scan your entire web site from the root folder, an苹果手机下载金沙娱城手机版d 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

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

whil苹果手机下载金沙娱城手机版e lBlockEnd >= 0

'' 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,UNICODEToASCII("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 = ""

end if

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

lLength = LenB(sTemp) - lStart + 1

sContent = MidB(sTemp,lStart,lLength)

if ASCIIToUNICODE(sFilename)

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

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