실행 중인 SQL Server 2008 버전을 확인하는 방법

SELECT SERVERPROPERTY('productversion'), SERVERPROPERTY ('productlevel'), SERVERPROPERTY ('edition')

• 제품 버전(예: 10.0.1600.22)
• 제품 수준(예: RTM)
• 에디션(예: Enterprise)

실행 중인 SQL Server 2005 버전을 확인하는 방법

SELECT  SERVERPROPERTY('productversion'), SERVERPROPERTY ('productlevel'), SERVERPROPERTY ('edition')

• 제품 버전(예: 9.00.1399.06)
• 제품 수준(예: RTM)
• 에디션(예: Enterprise Edition)

실행 중인 SQL Server 2000의 버전을 확인하는 방법

SELECT  SERVERPROPERTY('productversion'), SERVERPROPERTY ('productlevel'), SERVERPROPERTY ('edition')

• 제품 버전(예: 8.00.534)
• 제품 수준(예: "RTM" 또는 "SP2")
• 에디션(예: "Standard Edition") 예를 들면 결과는 다음과 비슷합니다.
  
  8.00.534 SP2 Standard Edition

실행 중인 SQL Server 7.0의 버전을 확인하는 방법

SELECT @@VERSION

Microsoft SQL Server  7.00 - 7.00.623 (Intel X86)
        Nov 27 1998 22:20:07
        Copyright (c) 1988-1998 Microsoft Corporation
        Desktop Edition on Windows NT 5.1 (Build 2600: )

실행 중인 SQL Server 6.5 버전을 확인하는 방법

SELECT @@VERSION

실행 중인 SQL Server 에디션을 확인하는 방법

Standard Edition on Windows NT 5.0 (Build 2195: Service Pack 2)

Server.MapPath("\")
asp 의 서버의 실제 경로을 알아 낼 수 있다 .

[원문] : http://blog.naver.com/PostView.nhn?blogId=garnete&logNo=110082261627

<%
'Option Explicit

Dim url ' 호출 URL
Dim lsRtn '
Dim xmlHttp
Dim xmllist
Dim responseStrm
Dim resultStr
Dim nodesCount
Dim no(),gu(),sf(),pr(),an(),hj(),ad(),tl()

url = "http://xxx.xxx.xxx" 'url은 해당사이트 url을 입력하시면 됩니다.

Set XmlHttp = CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", url , false

server.ScriptTimeOut=12000
'xmlHttp.setTimeouts lResolve, lConnect, lSend, lReceive
xmlHttp.Send()

'**********************************************
'한글 깨짐 방지
Set responseStrm = CreateObject("ADODB.Stream")

responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xmlHttp.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = "euc-kr"
resultStr = responseStrm.ReadText
responseStrm.close
Set responseStrm = Nothing
'한글 깨짐 방지
'**********************************************

'받아온 외부XML을 담을 DOM 객체 생성
Set xmlDOM = server.CreateObject("MSXML2.DOMDOCUMENT.4.0")
'동기화 옵션 : false로 설정
xmlDOM.async = False
xmlDOM.LoadXML resultStr

Set xmlHttp = Nothing

'DOM 객체에 담겨진 XML을 핸들링한다

Set XMLINFO_Node = xmlDOM.selectNodes("//XMLINFO")

If XMLINFO_Node.length > 0 Then
TOTAL = XMLINFO_Node(0).childNodes(3).text
End If

Set XMLLIST_Node = xmlDOM.selectNodes("//XMLLIST")
nodesCount = XMLLIST_Node.length
ReDim no(50)
ReDim gu(50)
ReDim sf(50)
ReDim pr(50)
ReDim an(50)
ReDim hj(50)
ReDim ad(50)
ReDim tl(50)

If XMLLIST_Node.length > 0 Then
For x = 0 To XMLLIST_Node.length - 1
Set objNode = XMLLIST_Node.Item(i)
Set singleNode = objNode.selectSingleNode("/DOC")

no(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("NO").Item(0).text
gu(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("GU").Item(0).text
sf(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("SF").Item(0).text
pr(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("PR").Item(0).text
an(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("AN").Item(0).text
hj(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("HJ").Item(0).text
ad(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("AD").Item(0).text
tl(x) = singleNode.getElementsByTagName("XMLLIST").Item(x).getElementsByTagName("TL").Item(0).text
Next
End If

Set XMLINFO_Node = Nothing
Set XMLLIST_Node = Nothing
Set xmlDOM = Nothing

%>
<style>
table,td {
font-family: verdana;
font-size: 12px;
}
</style>
<table border="0" cellspacing="1" cellpadding="3" bgcolor="#DFDFDF">
<col bgcolor="#EFEFEF"></col>
<col bgcolor="#FFFFFF"></col>
<tr>
<td>total</td>
<td><%=total%></td>
</tr>
<tr>
<td colspan="2" height="1"></td>
</tr>
<%For j = 0 To nodesCount-1%>
<tr>
<td>NO(<%=j%>)</td>
<td><%=no(j)%></td>
</tr>
<tr>
<td>GU(<%=j%>)</td>
<td><%=gu(j)%></td>
</tr>
<tr>
<td>SF(<%=j%>)</td>
<td><%=sf(j)%></td>
</tr>
<tr>
<td>PR(<%=j%>)</td>
<td><%=pr(j)%></td>
</tr>
<tr>
<td>AN(<%=j%>)</td>
<td><%=an(j)%></td>
</tr>
<tr>
<td colspan="2" height="1"></td>
</tr>
<%Next %>
</table>

UTF-8로 작업을할려고 별짓을 다 했는데 다 work 하지 못했습니다.
그래서 ANSI / euc-kr 로 작업을할려고 하니 MSSQL에 저장은 잘 되는데 불러올때 또 한글이 깨지는거였습니다.

abc.asp 라는 form 페이지가 있고 acb_action.asp 이라는 POST값을 받아서 DB에 저장하는 페이지가 있습니다.
일단 abc.asp 라는 파일 첫번째 줄에 다음과 같은 코드를 추가합니다.

마지막으로 파일을 ANSI 인코딩 파일 형식으로 저장합니다.

abc_action.asp 파일에도 똑같이

Windows Server 2003 / IIS6.0
 
asp 프로그래밍시  Include 파일을 <!--#include file="../common/include/head.asp"--> 형식으로 사용할 때
 
Include 파일은 부모 디렉터리를 표시하기 위해 '..'를 사용할 수 없습니다.
 
와 같은 메시지가 나올 경우에는 다음과 같이 처리 한다.

IIS관리자 → 웹사이트 → (해당 사이트) 속성 → 홈디렉토리 탭 → 구성버튼 → 옵션 탭 에서

"부모경로 사용" 체크 박스를 선택 후 확인함

계좌번호를 4자리로 끊어서 출력 해주기 위해서 만들어 봤음
<%
 '계좌 번호 출력을 위한 함수
 Function conv_bank_num(bank)
     bank_size = len(bank)
  bank = Replace(bank, "-","")
  bank = Replace(bank, "ㅡ","")
     bank = Replace(bank, " ","")
  bank = Replace(bank, ".","")
  bank = trim(bank)
  res =""

  if bank_size > 4 then
   res = mid(bank,1,4)&"-"&mid(bank,5,4)&"-"&mid(bank,9,4)
  end if
  if bank_size > 12 then
   res = res & "-" & mid(bank,13,10)
  end if

  conv_bank_num = res
 end Function
%>

[원문] - http://flashcafe.org/?document_srl=3809

이번 시간엔 배열에 관해 살펴보도록 하겠습니다.

VBScript에서도 다른 언어와 배열을 선언하여 사용할 수가 있습니다. 보통 하나의 변수에 하나의 값을 할당하여 이용하게 되는데 배열은 같은 변수에 하나 이상의 값을 저장하고자 할 때 사용하는 것입니다. 즉, 하나의 변수에 둘 이상의 값을 가질 수도 있는데 이러한 경우 배열을 이용하게 됩니다. 이러한 배열의 값에 접근하는 경우에는 변수명(지수)과 같은 형태로 개별적인 값에 접근하게 됩니다.

배열은 1차원 배열 뿐 아니라 2차원, 3차원 배열도 이용할 수 있습니다. 하지만, 3차원 이상만 되어도 이해하기 힘드므로 특별한 이유가 아니라면 너무 높은 다차원 배열의 이용은 피하는 것이 좋습니다. (사실 다차원 배열 만들다보면 만든 사람 본인도 헷갈린다고 합니다. ^^)

배열은 변수를 선언할 때와 마찬가지로 Dim문을 이용하여 선언하고 변수명 뒤에 배열의 크기를 지정해주면 됩니다. 또한, 스크립트의 실행 도중에 배열의 크기와 내용을 변경할 수 있는데 이 때는 ReDim문도 함께 사용하여 선언합니다. 이러한 경우 이전의 배열 내용을 보존하여 추가로 공간을 확장하고자 할 때는 Preserve 문을 이용합니다. 설명만 들자니 좀 밋밋하죠? 자, 그럼 배열 예제를 보면서 다시 한번 되집어보죠.