zoukankan
html css js c++ java
VBS的疑惑,它们不考虑效率吗?
VBS建立站点代码
Function
CreateWebServer(strServerComment,arrServerBindings,strMaxConnections,strPath)
'
建立站点
On
Error
Resume
Next
Set
objW3svc
=
GetObject
(
"
IIS://LocalHost/W3svc
"
)
intSiteIndex
=
999
Do
While
IsObject
(objW3svc.GetObject(
"
IIsWebServer
"
,intSiteIndex))
If
Err.Number
<>
0
Then
'
Wscript.Echo Err.Description
Err.Clear()
Exit
Do
End
If
intSiteIndex
=
intSiteIndex
-
1
Loop
Set
objIIs
=
objW3svc.Create(
"
IIsWebServer
"
,intSiteIndex)
If
Err.Number
<>
0
Then
Wscript.Echo
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description
Err.Clear()
CreateWebServer
=
0
Exit
Function
End
If
objIIs.ServerSize
=
1
objIIs.ServerComment
=
strServerComment
objIIs.ServerBindings
=
arrServerBindings
objIIs.MaxConnections
=
strMaxConnections
objIIs.EnableDefaultDoc
=
True
objIIs.SetInfo
Set
objIIsWeb
=
objIIs.Create(
"
IIsWebVirtualDir
"
,
"
Root
"
)
If
Err.Number
<>
0
Then
Wscript.Echo
"
Error #
"
&
CStr
(Err.Number)
&
"
"
&
Err.Description
Err.Clear()
CreateWebServer
=
0
Exit
Function
End
If
objIIsWeb.Path
=
strPath
objIIsWeb.AccessRead
=
True
objIIsWeb.AccessWrite
=
False
objIIsWeb.EnableDirBrowsing
=
False
objIIsWeb.EnableDefaultDoc
=
True
objIIsWeb.AccessScript
=
True
objIIsWeb.AppIsolated
=
2
objIIsWeb.AppCreate2
2
objIIsWeb.AppFriendlyName
=
"
默认应用程序
"
objIIsWeb.SetInfo
Set
objW3svc
=
Nothing
Set
objIIs
=
Nothing
Set
objIIsWeb
=
Nothing
CreateWebServer
=
1
End Function
If Err.Number <> 0 Then 在VBS里经常看到这种代码。
查看全文
相关阅读:
ASP.NET没有魔法——ASP.NET MVC Razor与View渲染
ASP.NET没有魔法——ASP.NET MVC界面美化及使用Bundle完成静态资源管理
ASP.NET没有魔法——ASP.NET MVC 模型绑定解析(下篇)
ASP.NET没有魔法——ASP.NET MVC 模型绑定解析(上篇)
ASP.NET没有魔法——ASP.NET MVC 模型验证
ASP.NET没有魔法——ASP.NET MVC 模型绑定
ASP.NET没有魔法——ASP.NET OAuth、jwt、OpenID Connect
ASP.NET没有魔法——ASP.NET MVC使用Oauth2.0实现身份验证
MyDAL
Git
原文地址:https://www.cnblogs.com/LCX/p/421285.html
最新文章
meta 标签知识汇总
meta 刷新
正则表达式基础知识
正确的解读正则表达式的方式
ext前后台数据传输的标准化
ext组件中的查询
ext组件的查询方式
jquery实现静态柱形图(写死的数据,只为系统首页UI更美观)
ext整合highcharts实现饼图
ext当表单中的输入项为必填时,输入项label后显示红色的*
热门文章
ext图片预览功能实现,前端代码
jsp用el表达式获取后台传来的值,或者获取session中的值
智能ERP收银统计-优惠统计计算规则
电子秤查看通道及更改通道方法
扫呗、通联微信后台配置支付授权目录流程
VUE新版扫码下单必选分类设置FAQ
智能POS常见问题整理
新报表平台统计相关问题
智能POS(轻餐、正餐同理)桌台页面已结金额,只做参考,不做对账使用
ASP.NET MVC应用迁移到ASP.NET Core及其异同简介
Copyright © 2011-2022 走看看