进门玄关挂中国结好吗:在DW里做ASP连接ACESS数据库

在建立站点的时候有一步：“您用什么 URL 来浏览站点的根目录？”
请写http://localhost/myDW

用下面的代码多简便?
我都奇怪,干吗非要用DW呢?产生一大堆垃圾代码不说,启动还占用N多资源,编出来的文件基本没有不需要修改就可以使用的.我宁愿使用记事本编辑ASP文件.
<%
Dim Conn,ConnStr,Startime,SqlNowString
Startime = Timer()
'可修改设置一：========================定义数据库类别，1为SQL数据库，0为Access数据库=============================
Const IsSqlDataBase = 0
'================================================================================================================
If IsSqlDataBase = 1 Then
'必修改设置二：========================SQL数据库设置=============================================================
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "Cnend"
Const SqlPassword = "123456789"
Const SqlUsername = "sa"
Const SqlLocalName = "127.0.0.1"
'================================================================================================================
SqlNowString = "GetDate()"
Else
'必修改设置三：================Access数据库设置（必须使用绝对地址，即前面加“/”）===============================
'第一次使用请修改本处数据库地址并相应修改databas目录中数据库名称，如:将#data#bas.mdb修改为#data#bas.asp
Db = "/databas/#data#bas.mdb"
'================================================================================================================
SqlNowString = "Now()"
End If
If IsSqlDataBase = 1 Then
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
'-----------------------------------------------------------------------------------------------------
%>
<%
sub connclose()
conn.close
set conn=nothing
end sub
%>