ASP로 날짜 select 박스 만들기 


셀렉트 박스에 하드코딩으로 날짜를 입력할 경우가 있습니다.

그러지 말고 아래처럼 간단하게 Date 함수와 For문을 이용해서
날짜를 뿌리는 셀렉트 박스를 만들어 보자..

▼ 아래 소스를 IIS에서 실행해보자 
1
2
3
4
5
6
7
8
<select >
    <%
        For i = 0 To 5
            NowDate = Date + i
    %>
        <option value="<%=NowDate%>"><%=NowDate%></option>
    <%Next%>
</select>

cs



▼화면에서 본 모습



마무리


하드코딩은 무조건 피해야 합니다.


댓글을 달아 주세요



Home Edit Plus 설치하기 

 
 만능 에디터 에디터플러스 설치를 해보겠습니다. IDE가 너무 많이 발전해서 사실
주력으로 개발툴로 쓰기는 부족하죠. 코드 어시스전트가 없는게 가장 큰 단점이긴 한데
심플한 기능 만큼 가볍게 문서를 열고 닫고 보기에는 최고의 툴인것은 확실 합니다.
아무리 큰 소스 파일을 열어도 절대 버벅이지 않는 엄청난 성능 최고죠.
결론은 메모장 대용으로 쓰기에도 최고이니 개발자라면 그냥 설치해 둡시다!!


우선 아래 URL로 접속합니다.

▼ 그리고 최신버전으로 다운로드


▼ 자 넥스트입니다.

▼ 언어는 당연히 한글로..


▼ 기본설정 그대로 설치해주세요.

▼ 이전에 쓰던 INI파일을 불러 올수 있습니다.


▼ 그리고 각자 평가하기나 구매후 완료를 누르면 아래처럼 짜잔 완성이네요..
(이런 너무 설치과정이 짧네요)





마무리

 이제 대부분의 프로그램이 설치되어 가네요. 



Tag ASP, HTML, IDE, PHP

댓글을 달아 주세요



xls(엑셀) 연결해서 DB처럼 사용하기


오늘은 엑셀을 사용해 DB처럼 연결 한후에 사용하는 방법을
기록하겠습니다. 

DB를 연결하듯 그 대상은 엑셀 파일이죠

단지 시트 이름이 매겨지지 않았을 경우는 [Sheet1$] 가 테이블 명인거만
기억하면 헤매지 않을 것입니다.

실무에서 개발했던 소스 기반으로 작성하였습니다.
그대로 복사해서 붙혀넣어서 테스트 해보세요

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<%
    Application("connect"= "Provider=Microsoft.ACE.OLEDB.12.0; Data Source="& Server.MapPath("."&"\1.xlsx;Extended Properties='Excel 12.0;HDR=YES;IMEX=1;'"
 
    Set adoCon = Server.CreateObject("ADODB.Connection")
    Set objRs = Server.CreateObject("ADODB.RecordSet")
    Set Rs = Server.CreateObject("ADODB.RecordSet")
    set RsTip = Server.CreateObject("ADODB.RecordSet")
 
    adoCon.Open Application("connect")
    adocon.CursorLocation  = 3
 
    strSQL = "Select * from [Sheet1$]"
 
    objRs.Open strSQL, adoCon
%>
cs





댓글을 달아 주세요



ASP 형변환 Cint, Clng, Cdbl, Cstr, Csng, Cdate


▼ 형변환 방법은 아래처럼 간단하다.
1
2
3
4
<%
value = "1004" '// 스트링으로 담고
TestVal = CLng(value)     '//형변환을 통해 long으로 반환
%>

cs

실무에서 사용하는 대부분의 형변환 객체는 아래와 같다.
대부분 긴 숫자때메 Clng을 많이 사용하게 된다.

문법
변환
Cint
integer
Clng
long
Cstr
string
Csng
single
Cdate
date






마무리



int는 너무 작아서 clng로 꼭 바꾸게 되네요





댓글을 달아 주세요



ASP에서 XML 가져오기 기본


XML을 파싱해서 ASP로 가져오는
가장 기본적인 방법을
적어보았습니다.  

서버 url에 xml 주소를 담아보고
selectSingleNode로 노드를 구별하여 담아보자  

예제를 돌려보면 쉽게 알 수 있습니다.
1
2
3
4
5
6
7
8
9
10
11
<%
    Dim ServerURL
    ServerURL = "XML주소.xml"
    Set x = Server.Createobject("Microsoft.XMLDOM")
    x.async = False
    x.setProperty "ServerHTTPRequest"true
    x.Load ServerURL
    set cxml = x.selectSingleNode("NODE1/NODE2")
    NODE3_1 = cxml.selectSingleNode("NODE3_1").text '//해당 노드가 감싸고 있는 text 값을 가져온다
    NODE3_2 = cxml.selectSingleNode("NODE3_2").text
%>
cs





마무리

절차언어는 참 이해 하기 쉽다





댓글을 달아 주세요



ASP상에서 접속 브라우저 구별하기


크로스 브라우징 작업이 많아짐에 따라 
브라우저별 코딩을 해야 할때가 많아졌다.
아래를 활용해서 브라우저를 분간해보자

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
<%
        If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 5.0">  0 Then
             borwser = "Explorer 5.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 6.0">  0 Then
             borwser =  "Explorer 6.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 7.0">  0 Then
             borwser =  "Explorer 7.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 8.0">  0 Then
             borwser =  "Explorer 8.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 9.0">  0 Then
             borwser =  "Explorer 9.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 10.0">  0 Then
             borwser =  "Explorer 10.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 11.0">  0 Then
             borwser =  "Explorer 11.0"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Chrome">  0 Then
             borwser =  "Chrome"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Safari">  0 Then
             borwser =  "Safari"
         ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Firefox">  0 Then
             borwser =  "Firefox"
        Else
         borwser =  "기타"
    End If
%>
cs




마무리

함수로 만들어 쓰시면 편해요



댓글을 달아 주세요



ASP 소스상에 트랜젝션 방법


일명 날 쿼리를 날릴 때 트랜젝션 필요할 때가 있다.
물런 ASP 소스상에서도 트랙젝션이 가능하다.  

날 쿼리라 할지라도 CUD일땐 꼭 트랜젝션을..!!
1
2
3
4
5
6
7
8
9
10
11
12
<%
   dim strSql
    dbCon.Open Application("DBInfo")
    dbCon.BeginTrans                 '//트랜젝션 시작
    dbCon.Execute(strSql)
    if dbCon.Errors.Count = 0 then
        dbCon.CommitTrans            '//오류없을 시엔 커밋
    else
        dbCon.RollbackTrans          '// 오류일땐 롤백
    end if
    dbCon.Close
%>
cs



댓글을 달아 주세요



음수양수 구별하기 (Sgn) ASP


Sgn 내장객체는 숫자가
음수일 경우 -> -1
양수일 경우 ->  1
영(0)일 경우 -> 0
스트링일 경우 -> 오류

음수 양수를 구별하기 손쉬운 방법을 제공한다.

1
2
3
<%
     response.write Sgn(숫자) '// 양수 1 , 음수 -1 , 영(0) 0 을 반환한다.
%>

cs



댓글을 달아 주세요



ASP로 메일 보내기


이메일을 보내기 위해선 서버상에 다양한 설정도 이루어져야 합니다.
소스상에서는 정석적으로 아래에 방법을 사용합니다.
이 소스를 보니 오래된 언라라는 느낌이 강하게 드네요

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<%
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
 
Set Flds = objConfig.Fields
Flds.item("http://schemas.microsoft.com/cdo/configuration/sendusing"= 2
'-> 서버 접근방법을 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserver"= "mail.lbcsoft.com"
'-> 서버 주소를 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"= 25
'-> 접근할 포트번호를 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"= 30
'-> 접속시도할 제한시간을 설정합니다
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"= 1
'-> SMTP 접속 인증방법을 설정합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/sendusername"= "mail@lbcsoft.com"
'-> SMTP 서버에 인증할 ID를 입력합니다
Flds.item("http://schemas.microsoft.com/cdo/configuration/sendpassword"= "lbcsoftmail"
'-> SMTP 서버에 인증할 암호를 입력합니다
Flds.update
 
Set objMessage.Configuration = objConfig
 
Mail_Dir = server.mappath("\")
 
objMessage.To = "받는이 메일 주소"
objMessage.From = "보내는이 메일 주소"
objMessage.Subject = "메일 타이틀"
objMessage.HTMLBody = "<b>메일 내용</b>"
'// objMessage.TextBody 텍스트만 보낼시엔 이것을
objMessage.fields.update
objMessage.Send
 
set objMessage = Nothing
set objConfig = Nothing
%>
cs



댓글을 달아 주세요



Request.ServerVariables 사용하기


내장객체중에 가장 많이 사용하는 
Request.ServerVariables 입니다.

하지만 익숙한건 금방 외워 사용하지만
긴가 민가 하는 경우가 많습니다.

그럴때 제가 항상 하던 방법인데요 
아래 소스로 돌려보고 
필요한거만 가져다 쓰는 방법이 좋아서 공유합니다.

1
2
3
4
5
6
7
8
<%
For Each key in Request.ServerVariables 
  if Request.ServerVariables(key) = "" Then
  else
        Response.Write key & "  -->  " & Request.ServerVariables(key) & "<br><br>"
  end if
Next
%> 

cs



▼ 아래와 같이 표시 됩니다. 그리고 나와 맞는걸 찾아쓰면 되겠네요^^


댓글을 달아 주세요