Emballez le fichier dans le package de fichiers XML, avec un outil ASP qui déballe!
Emballez tout le code source du site Web dans un fichier XML, générez le fichier updata.xml et téléchargez le fichier XML dans l'espace
Libérez ensuite tous les fichiers via le fichier install.asp.
Il a la même fonction que le package d'installation automatique de Z-Blog.
Le code a été écrit par un frère qui était dépassé, mais le code semblait incorrect. Cela a été modifié par moi par référence et il peut fonctionner normalement! ~~
Ce code peut être appliqué au service de mise à niveau automatique du programme ASP. Comment l'implémenter spécifiquement, bienvenue à discuter! ~~
Discutons-en dans le post suivant! ~~~
Il n'est pas nécessaire de définir la version du répertoire emballé, vous devez définir la différence entre la version du répertoire emballé:
Vous n'avez pas besoin de définir la version du répertoire emballé, il suffit de le mettre dans le répertoire dont vous avez besoin pour l'emballage pour exécuter.
Vous devez définir la version du répertoire des packages et vous devez spécifier le chemin du package (modifier dans le programme). Si vous ne le spécifiez pas, vous ne pouvez pas l'emballer.
Pas besoin de définir le répertoire - Package le fichier
La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "65001"%>
<% OptionExplicite%>
<% 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">
<adal>
<Metahttp-Equiv = "Content-Type" Content = "Text / Html; charSet = UTF-8" />
<Title> Programme d'emballage de fichiers </TITME>
</ head>
<body>
<%
Dimzippathdir, Zippathfile, ZipFileExt
DimStartime, EndTime
'Changez le chemin vers le dossier à emballer ici
Zippathdir = Left (request.serverVariables ("path_translated"), instrrrev (request.servervariables ("path_translated"), "/")) '
'Le fichier XML généré
Zippathfile = "update.xml"
'Extension de fichier non emballée
Zipfileext = "db; bak"
ifright (zippathdir, 1) <> "/" thenzippathdir = zippathdir & "/"
'Commencez à emballer
CreateExml (Zippathfile)
'Voyagez à travers tous les fichiers et dossiers du répertoire
Subloaddata (dirpath)
dimxmldoc
objet dimfso'fso
objet de dossier dimobjfolder
Collection des sous-dossiers de DimobjSubfolders