Classic ASP mssql Db연결

asp언어를 활용해 mssql db와 연결하고 데이터를 불러오는 내용

언어가 오래되서 하이라이트가 제대로 작동이 안되는듯

 

<%
   ' classic asp에서의 mssql dbconnect 내용
   ' 해당 아이피 주소를 넣어주고 
 
   dim dbIp, dbName, dbId, dbPwd
   dbIp = "xx.xxx.xxx.xxx,port" 
   dbName = "sampleDb" 
   dbId = "samplId" 
   dbPwd = "samplePwd" 
 
   ' db connect
   Set db = Server.CreateObject("ADODB.Connection")
   strconnect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID="&dbId&";Initial Catalog="&dbName&";Data Source="&dbIp&";Password="&dbPwd
   db.Open strconnect
 
   ' query 날리기
   query = "SELECT * FROM tbl_name"
 
   ' rs에 넣어줌 rs는 record set인데 아무거나 다른 이름으로 해도 됨
   set rs = server.createobject("adodb.recordset") 
 
   ' 정상적으로 실행
   rs.open query,db,1 
 
   ' 데이터가 있으면 false, 없으면 true
   if Not rs.eof then
      ' 타언어에도 하나씩 있는 기본 출력문
      response.write "no record" 
      else
      ' query리 문의 결곽값 안에있는 필드명을 적어준다.
      data1 = rs("field_name1")
      data2 = rs("field_name2")
      response.write data1, data2       
   end if 
 
   rs.close 
%>