帮我分析这个ASP语句

<!--#include file="function.asp" -->
<!--#include file="database_name.asp" -->
<%
dim db
const DatabaseType="ACCESS"
db="../bbs/data/"&#datename&""
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
哪个是数据库文件

<!--下面两个#include 是一种包含语句，就是把function.asp和database_name.asp里的内容放到这里-->
<!--#include file="function.asp" -->
<!--#include file="database_name.asp" -->
<%
dim db '定义变量
const DatabaseType="ACCESS" '定义数据库类型
db="../bbs/data/"&#datename&"" '赋值给db
On Error Resume Next '忽略错误，就是当该页面有语句错误的时候也不报错
dim ConnStr '定义变量
dim conn '定义变量
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '定义数据库连接
Set conn = Server.CreateObject("ADODB.Connection") '建立数据连接对象
conn.Open connstr '打开数据库连接
If Err Then '如果打开出错
err.Clear '清除错误
Set Conn = Nothing '释放对象
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。" '输入错误提示
Response.End '中止下面的操作，就是程序运行到这里后，下面的都不运行了
End If
'下面是定义关闭数据库连接对象用的一个过程
sub CloseConn() '