Packen Sie die Datei in das XML -Dateipaket mit einem ASP -Tool, das auspackt!
Verpacken Sie den gesamten Website -Quellcode in eine XML -Datei, generieren Sie die Datei updata.xml und laden Sie die XML -Datei in den Speicherplatz hoch
Lassen Sie dann alle Dateien über die Datei install.asp.
Es hat die gleiche Funktion wie das automatische Installationspaket von Z-Blog.
Der Code wurde von einem Bruder geschrieben, der veraltet war, aber der Code schien falsch zu sein. Dies wurde von mir durch Referenz geändert und kann normal laufen! ~~
Dieser Code kann auf den automatischen Upgrade -Service des ASP -Programms angewendet werden. So implementieren Sie es speziell, Willkommen zu diskutieren! ~~
Lassen Sie uns es im folgenden Beitrag besprechen! ~~~
Es ist nicht erforderlich, die Version verpackter Verzeichnisversion festzulegen. Sie müssen den Unterschied zwischen der Packaged Directory -Version festlegen:
Sie müssen die verpackte Verzeichnisversion nicht festlegen. Stellen Sie sie einfach in das Verzeichnis ein, das Sie zum Ausführen verpacken müssen.
Sie müssen die Paketverzeichnisversion festlegen und den Pfad zum Paket angeben (im Programm ändern). Wenn Sie es nicht angeben, können Sie es nicht verpacken.
Sie müssen das Verzeichnis nicht festlegen - Paket der Datei verpackt
Die Codekopie lautet wie folgt:
<%@Sprache = "vbscript" Codepage = "65001"%>
<%OptionExplicit%>
<%OnErrorresumeNext%>
<%Response.charset = "utf-8"%>
<%Server.ScriptTimeout = 99999999%>
<! DocTypEHtmlPublic "-// W3C // dtdxhtml1.0Transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<kopf>
<metahttp-äquiv = "content-type" content = "text/html; charset = utf-8"/>
<title> Dateiverpackungsprogramm </title>
</head>
<body>
<%
Dimzippathdir, Zippathfile, Zipfileext
Dimstartime, Endzeit
Ȁndern Sie den Pfad zum hier verpackten Ordner
Zippathdir = links (Request.Servervariables ("Path_Translated"), Instrrev (Request.Servervariables ("path_translated"), "/")) '
'Die generierte XML -Datei
Zippathfile = "update.xml"
'Nicht verpackte Dateierweiterung
Zipfileext = "db; bak"
IFright (Zippathdir, 1) <> "/" thenzippathdir = Zippathdir & "/"
'Packen Sie an
Createxml (Zippathfile)
Reisen Sie durch alle Dateien und Ordner im Verzeichnis
Subloaddata (Dirath)
dimxmldoc
DimfSo'fso -Objekt
DimobjFolder 'Ordnerobjekt
DimobjsubFolders -Unterordnersammlung