|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。还无法完全实现一些企业级的功能:完全的集群、负载均横。conn.asp不再贴出。
这里从数据库中读出目次名
<!--#includefile="conn.asp"-->
<%
response.end//这是做调试时用的
onerrorresumenext
SetRs=Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection=MyConnection
Sql="select*from你的表名where你指定的前提"
Rs.OpenSql,,1,2
IfRs.EofThenResponse.End//假如无切合前提纪录,则中断
Rs.MoveFirst
dimnamestr//界说假造目次名变量
Dowhilenotrs.eof
ifinstr(1,namestr,server.htmlencode(Trim(Rs("SUname"))))0ThenRs.MoveNext
name=name&server.htmlencode(Trim(Rs("SUname")))
%>
<%
sComputer="localhost"
sPhyDir="X: est"&server.htmlencode(Trim(Rs("SUname")))//这里界说假造目次指向的物理路径
sVirDir=server.htmlencode(Trim(Rs("Suname")))//这里界说假造目次名
setwebsvc=GetObject("IIS://"&sComputer&"/W3svc/1")//取得你以后站点工具。如有多个站点,那末修改前面1为2,3...便可指向别的的
setvRoot=websvc.GetObject("IIsWebVirtualDir","Root")//取得以后站点假造ROOT
SetClassDefinition=GetObject(vRoot.Schema)//取得假造目次的类界说
asMustHaves=ClassDefinition.MandatoryProperties
asMayHaves=ClassDefinition.OptionalProperties
i=1
%>
<tableborder=1>
<tr><th>ClassMustHaveProperty</th>
<th>RootVirtualDirectoryCurrentvalue</th></tr>
<%
onerrorresumenext
ForEachThinginasMustHaves
Response.Write"<tr><td>("&Cstr(i)&")"&_
Thing&"</td><td>"&vRoot.Get(Thing)&_
"</td></tr>"
i=i+1
Next
%>
</table>
<tableborder=1>
<tr><th>ClassMayHaveProperty</th>
<th>以后站点</th></tr>
<%
i=1
ForEachThinginasMayHaves
Response.Write"<tr><td>("&CStr(i)&")"&_
Thing&"</td><td>"&vRoot.Get(Thing)&_
"</td></tr>"
i=i+1
Next
onerrorgoto0
//创建假造目次
Response.Writesvirdir&"
"
SetvDir=vRoot.Create("IIsWebVirtualDir",sVirDir)
//设置假造目次的两个属性,这里设置可读属性和将假造目次的路径指向物理路径
vDir.AccessRead=true
vDir.Path=sPhyDir
vDir.SetInfo//将信息写进库,指的IIS站点相干的库,不是你的用户数据表
%>
<%
Rs.Movenext
Loop
Rs.Close
Response.Write"创立假造目次完成!"
%>
别的,另有使用adsi举行站点设置好比建站点,删除站点,设置站点IP,主机头,默许文档的等等,这里不做下载,有乐趣的伴侣能够到微软站点下载adsiSDK的开辟文档深切。
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|