无奈的求助!ASP+SQL打包制作安装程序的问题!请做过的朋友进来指点一下!谢谢

[lixingjian]

我现在做了一个ASP的程序用的是SQL数据库,我用Setup Factory 7.0制作了安装程序,可现在的问题是

1Setup Factory 7.0在安装的时候不能自动设置IIS
2而且我把分离出来的数据库在安装的时候不能附加到SQL2000中!

请问我该怎么做才能完成此功能?

[lixingjian]

有人知道吗?能帮帮我吗

[taih]

Setup Factory 7.0本身是不可以实现你要求的这些，建议你使用其他的开发语言如：VB C#等做成小程序然后配合Setup Factory 7.0使用

下面是一个建立虚拟站点的脚本代码
Dim iispath As String, iisname As String
iispath = "" '虚拟目录路径
iisname = "" '虚拟目录名称
Screen.MousePointer = 11
strDefaultDoc = "index.htm" '默认首页

Dim objIIS

On Error Resume Next
Set objIIS = GetObject("IIS://127.0.0.1/W3SVC/1")

If Err.Number = -2147024893 Then
MsgBox "IIS不存在!" & vbCrLf & "请验证IIS是否已正确安装!", vbCritical
ElseIf Err.Number <> 0 Then
MsgBox "未知错误!", vbCritical
End If

On Error GoTo 0

Set objVirtualDir = objIIS.GetObject("IISWebVirtualDir", "Root")
For Each VR In objVirtualDir
If VR.Name = iisname Then
tt = MsgBox("虚拟目录<" & iisname & ">已存在,是否清除虚拟目录<" & iisname & ">," & Chr(13) & "并建立新的<" & iisname & ">虚拟目录？", vbOKCancel + vbQuestion, "提示")
If tt = vbCancel Then
MsgBox "你已取消创建新的虚拟目录<" & iisname & ">， " & Chr(13) & "稍后请手工重新配置IIS！", vbInformation
End
End If
If tt = vbOK Then
virdir = objVirtualDir.Delete("IISWebVirtualDir", iisname)
End If
End If
Next

On Error Resume Next
Set fs = Wscript.CreateObject("Scripting.FileSystemObject")
Set objFolder = fs.GetFolder(iispath)

If Err.Number = 76 Then
MsgBox "路径" & iispath & "不存在!", vbCritical
End If

Set objFolder = Nothing
Set fs = Nothing
On Error GoTo 0

On Error Resume Next
Set virdir = objVirtualDir.Create("IISWebVirtualDir", iisname)
virdir.AccessRead = True '读取
virdir.AccessWrite = False '写入
virdir.Path = iispath '虚拟目录路径
virdir.DefaultDoc = virdir.DefaultDoc & "," & strDefaultDoc '默认文档名
virdir.AccessScript = True '执行许可(纯脚本)
'virdir.AccessExecute = False '执行许可(脚本和可执行程序)
virdir.AppRoot = "/LM/W3SVC/1/root/" & iisname
virdir.AppFriendlyName = iisname '应用程序名
virdir.AppIsolated = 2 '应用程序保护 0:低 1:高 2:中
'virdir.AccessSource = false '脚本资源访问
'virdir.FrontPageWeb = True
'virdir.EnableDirBrowsing = False '目录游览
'virdir.AccessNoRemoteRead = False
'virdir.AccessNoRemoteWrite = False
'virdir.AccessNoRemoteExecute = False
'virdir.AccessNoRemoteScript = False
'virdir.createprocessasuser = false
virdir.setInfo

If Err.Number <> 0 Then
MsgBox "创建虚拟目录失败,稍后请手工重新配置IIS!", vbCritical
End
Else
MsgBox "虚拟目录<" & iisname & ">创建成功!", vbInformation
End
End If

Screen.MousePointer = 0


sql server数据库建议你生成sql脚本，然后写个小程序直接导入就好了

[xyz1125]

高手
厉害