ASP连接硬件代码收集.pdfVIP

Asp 如何与 Windows API 结合控制硬件、给 IIS 建站点控制站点、给 SQL 分配用户、设置 备份？ Asp 的代码： % ***************************************************** 创建一个 WebServer 必须参数： WRoot, 为创建站点的物理目录； WComment 为站点说明； WPort 为站点端口； ServerRun 为是否自动运行 当创建成功时返回 1，失败时提示退出并返回 0 ，当创建站点成功但启动失败时返回 2 ****************************************************** ****************** 注意： WPort 为 List 类型，意为服务器端口 本函数在 IIS5.0 上通过，＊＊必须以管理员身份登录＊＊ 端口举例： Dim WPort,bindlists,createflag,oComputer oComputer= LocalHost binglists=Array(0) binglists(0)= 800 端口号为 80 WPort=binglists createflag=CreateWebServer( e:\dt , 我的家园 ,WPort,False) 调用建站函数 If creatflag=0 Then Response.Write 创建站点失败！请确定是否有权限 ElseIf createflag=1 Then Response.Write 创建站点成功！ ElseIf createflag=2 Then Response.Write 创建站点成功，但启动站点失败，可能端口冲突！ End If ********************************************************* 关于 Ftp 站点的创建我已发表在 asp 版，请有兴趣的朋友自己去查看 如有问题，欢迎跟我联系 :nonepassby@163.com Function CreateWebServer(WRoot,WComment,WPort,ServerRun) On Error Resume Next Dim ServiceObj,ServerObj,VDirObj Set ServiceObj = GetObject( IIS:// oComputer /W3SVC ) 首先创建一个服务实例 WNumber=1 Do While IsObject(ServiceObj.GetObject( IIsWebServer ,WNumber)) If Err.number 0 Then Err.Clear() Exit Do End If WNumber=WNumber+1 Loop Set ServerObj = ServiceObj.Create( IIsWebServer , WNumber) 然后创建一个 WEB 服务器 If (Err.Number 0) Then 是否出错 Response.Write 错误 : 创建 Web 服务器的 ADSI 操作失败！ CreateWebServer=0 Exit Function End If 接着配置服务器 ServerObj.ServerSize = 1 中型大小 ServerObj.ServerComment = WComment 说明 ServerObj.ServerBindings = WPort 端口 ServerObj.EnableDefaultDoc=True 提交信息 ServerObj.SetInfo 最后，建立虚拟目录