双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

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

2006-11-28 12:10:45 244 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lixingjian 墨衍会员 · AI 创作全网分发关注 + 加入社区

POJ1065 POJ1065–贪心问题目录POJ1065--贪心问题一、题目链接二、题目内容三、题意拆解四、解题思路五、参考代码一、题目链接题目来源–POJ1065 二、题目内容 There is a pile of n wooden sticks. The length and weight of each stick are known in advance. The sticks are to be processed by a woodworking machine in one by one fashi 阅读详情

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

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

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

...全文

POJ 1065-Wooden Sticks 贪心问题题目来源: http://acm.pku.edu.cn/JudgeOnline/problem?id=1065 解题报告: 本题采用贪心算法, 先从一堆sticks中找到长度最小的stick, 对长度相等的, 找到weight最小的, 找到后, 设长度为l, 重量为w, 然后，从剩下的sticks中找到长度、重量都大于等于l和w的sticks中长度及重量最小的stick，再依次找下去，如果不存在，则就直接找长度、重量最小的sti 阅读详情

lixingjian

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

xyz1125 2006-11-28

打赏
举报

高手
厉害

taih 2006-11-28

打赏
举报

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脚本，然后写个小程序直接导入就好了

lixingjian 2006-11-28

打赏
举报

有人知道吗?能帮帮我吗

✦双11狂欢大促✦

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

相关推荐

双11狂欢大促