跪求ASP连接问题

我在网上下载了一个ASP网站源码,前台和后台分别用了一个数据库连接文件
conn.asp为什么不用同一个呢？后台的conn我懂,但前台的数据库连接文件很长，有的不知道什么用的,并且前台的conn还包含了一个sql.asp文件
这是前台的连接文件:
<!--#Include File="Inc/Sql.asp"-->
<%Dim Conn,ConnStr,Rs,Sql
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr="driver={SQL Server};Server=(local);uid=sa;pwd=dj15881274447;database=diandc"
Conn.Open ConnStr
Sub CloseDB
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
End Sub
'定义字符串判别函数
Function StrLen(str)
dim P_Len,x
P_Len=0
StrLen=0
If Trim(Str)<>"" Then
P_Len=Len(Trim(Str))
For x=1 To P_Len
If Asc(Mid(Str,x,1))<0 Then
StrLen=Int(StrLen) + 2
Else
StrLen=Int(StrLen) + 1
End If
Next
End If
End Function
'定义截取函数
Function StrValue(Str,LenNum)
dim P_Num,xx
If StrLen(Str)<=LenNum Then
StrValue=Str
Else
P_Num=0
xx=0