我有一asp加mssql程序不知怎连接数据库大家帮忙看下

数据库连接文件如下：<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Option Explicit %>
<%
dim Sixth
Set Sixth = Server.CreateObject("第六感.lqiaoz")

dim nn,yy,rr,ss,ff,mm,xq,i_temp,rndid
nn=year(now)&""
yy=Month(now)&""
rr=Day(now)&""
if len(rr)=1 then rr="0"&rr
ss=hour(now)&""
if len(ss)=1 then ss="0"&ss
ff=minute(now)&""
if len(ff)=1 then ff="0"&ff
mm=second(now)&""
if len(mm)=1 then mm="0"&mm
xq=WeekdayName(Weekday(Date))
i_temp=rr&ss&ff&mm
rndid=nn&yy&rr&ss&ff&mm
'-------------------------
dim userip,memu,xurl,mycs,myua,yumi,myop,myuu,mydn,lt_Server
yumi=Request.ServerVariables("SERVER_NAME")
userip=Request.ServerVariables("REMOTE_ADDR")
memu=Request.ServerVariables("PATH_INFO")
xurl=LCase(Request.ServerVariables("SCRIPT_NAME"))
mycs=Sixth.gxjm(Request.ServerVariables("QUERY_STRING"))
myua=Request.ServerVariables("HTTP_USER_AGENT")
lt_Server=Request.ServerVariables("local_ADDR")
if right(mycs,1)="@" then mycs=left(mycs,len(mycs)-1)
myuu=request.ServerVariables("HTTP_VIA")
mydn=Request.Servervariables("HTTP_USER_AGENT")
if myuu="" and mydn<>"" then
myop="yes"
else
myop="no"
end if
'-------------------------
dim glsb
glsb=Sixth.sql_sbm(request.QueryString("glsb"))
if glsb="" then glsb=Sixth.sql_sbm(Session("glsb"))
if glsb="" then glsb=Sixth.sql_sbm(Request.Cookies("glsb"))
if glsb="" then glsb="ture"
'-------------------------
%>高手看下该如何连接啊？