asp+access转成+mssql后配置文件

想学习asp+access转成+mssql 可我连原连接数据库文件都找不到，原来的access名字是webdb.asp 只找到这两个文件含有
第一个文件为
<%
sss=LCase(request.servervariables("QUERY_STRING"))
   if instr(sss,"select")<>0 or instr(sss,"inster")<>0 or instr(sss,"delete")<>0 or instr(sss,"(")<>0 or instr(sss,"'or")<>0 then
     response.write "<BR><BR><center>你的网址不合法"
     response.end
   end if

xuasmdb="data/#webdb.asp"

set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath(xuasmdb)
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath

ON ERROR RESUME NEXT

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select zuziip from [config] where zuziip like '%"&zuziip&"%'",conn,1,1
if rs.recordcount<>0 then
       zuziip=rs("zuziip")&chr(13)
       zuziip=replace(zuziip," ","")
       zuziip=replace(zuziip,chr(10),"")
       'zuziip=replace(zuziip,".","")
       'userip2=replace(userip,".","")
       zzip=split(zuziip,chr(13))
       'Response.Write "ubound(zzip):"&ubound(zzip)&"<BR>"
       'Response.Write "zzip(0):"&zzip(0)&"<BR>"
       'Response.Write "zzip(1):"&trim(zzip(1))&"<BR>"
       for i=0 to ubound(zzip)
              if userip=trim(zzip(i)) then
                     er=1
                     'Response.Write userip&"　"&zzip(i)&"<BR>"
              end if
       next

       if er=1 then
              Response.Write "<BR><BR><BR><BR><Center><font style='font-size:10.5pt'>你所在IP被系统阻止！("&userip&")</font><BR><BR></center>"
              conn.close:set conn=nothing
              Response.end
       end if
end if

%>


第二个文件为：


<%
    Dim d_Rs, d_Sql ,aab
       
       Set d_conn=server.CreateObject("adodb.connection")
       d_conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath("data/#webdb.asp")
       Set d_Rs = Server.CreateObject( "ADODB.Recordset" )
       d_Sql = "SELECT Top 6 id,title,lm,time FROM News WHERE lm = '134' order by id desc"
       d_Rs.Open d_Sql, D_Conn, 0, 1

       Do While Not d_rs.eof
              aab=aab&"·<a href=News_View.asp?NewsID="&d_rs("id")&">"&d_rs("Title")&"</a>&nbsp;<font color=#999999>"&Month(d_rs("time"))&"-"&Day(d_rs("time"))&"</font>"
              d_Rs.movenext
       Loop
       Set d_rs=nothing
       d_conn.close
       Set d_conn=nothing
%>

document.write("<%=aab%>");


不知道哪个是连接数据库文件：也不知道怎么连接mssql

是不是第一个文件，要是的话，怎么改成连接mssql呢？