install_make.asp

ASP文件打包安装程序,使你的WEB程序发布更具商业化。

<%@ CODEPAGE=65001 %>
<%
'*****************************************************************************'
'   程序作者:    宋东宁(zlsdn)                                                  '
'   版权所有:    零点设计                                                       '
'   技术支持:    [e-mail]                                                 '
'   程序名称:    install make                                                  '
'   程序版本:    Ver 1.0                                                       '
'   单元名称:    install.asp                                              '
'   开始时间:    2007.07.07                                                    '
'   最后修改:                                                                  '
'   程序备注:    用于生成文件 便于上传                                            '
'*****************************************************************************'
%>
<% Option Explicit %>
<% 'On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%

Dim objXmlFile,pi,Att
Set objXmlFile = Server.CreateObject("Microsoft.XMLDOM")
objXmlFile.async = False
Set pi=objXmlFile.createprocessinginstruction("xml","version='1.0'")
objXmlFile.insertbefore pi,objXmlFile.childnodes(0)

Dim root,tempnode,filenode,streamnode,adostream

Set root = objXmlFile.createElement("files") '创建根元素
Set objXmlFile.documentElement = root '指定根为root

ShowFolderList Server.MapPath("/")

Function ShowFolderList(folderspec)

	Dim fso, f, f1,f2, fc, s,fd
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFolder(folderspec) '获得folderspec目录下的所有目录，包括文件？

	If folderspec=Server.MapPath("/") Then '判断是否为根目录，包括文件？
		Set fd =f.Files '根目录下目录？的所有文件
		For Each f2 in fd

			If (f2.Name<>"install_make.asp") And (f2.Name<>"install.asp") And (f2.Name<>"install.dat") And (f2.Name<>"install_make.vbs") Then

				Set tempnode = objXmlFile.createNode("element", "f", "") 

				root.appendChild tempnode

				Set filenode = objXmlFile.createNode("element", "fn", "") 
				filenode.Text = Right(f2.Path,Len(f2.Path)-Len(Server.MapPath("/"))-1)
				tempnode.appendChild filenode

				Set adostream = server.createobject("ADODB.Stream")
				adostream.type = 1
				adostream.open()
				adostream.loadfromfile(f2.Path)
				Set filenode = objXmlFile.createElement("fb")
				filenode.datatype = "bin.base64"
				filenode.nodeTypedvalue = adostream.read()
				adostream.close
				tempnode.appendChild filenode

				Set tempnode = nothing

			End If
		Next
	End If

	Set fc = f.SubFolders
	For Each f1 in fc
		Set fd =f1.Files
		For Each f2 in fd

			Set tempnode = objXmlFile.createNode("element", "f", "") 
			root.appendChild tempnode

			Set filenode = objXmlFile.createNode("element", "fn", "") 
			filenode.Text = Right(f2.Path,Len(f2.Path)-Len(Server.MapPath("/"))-1)
			tempnode.appendChild filenode

			Set adostream = server.createobject("ADODB.Stream")
			adostream.type = 1
			adostream.open()
			adostream.loadfromfile(f2.Path)
			Set filenode = objXmlFile.createElement("fb")
			filenode.datatype = "bin.base64"
			filenode.nodeTypedvalue = adostream.read()
			adostream.close
			tempnode.appendChild filenode

			Set tempnode = nothing

		Next

		'Set tempnode = objXmlFile.createNode("element", "folder", "") 

		'Set filenode = objXmlFile.createNode("element", "fn", "") 
		'filenode.Text = Right(f1.Path,Len(f1.Path)-Len(Server.MapPath("/")))
		'tempnode.appendChild filenode

		'root.appendChild tempnode
		'Set tempnode = Nothing

		ShowFolderList f1.Path
	Next

	objXmlFile.save(Server.MapPath("install.dat"))

End Function


%>