주저리주저리

출처 : http://blog.naver.com/idhand/70011276469 Response.AddHeader "Content-type", "text/xml"

출처 : http://blog.naver.com/crabz/140028987702 ASP - On Error Resume Next (에러예외처리) Dim sErrMsg Dim nErrNum Dim oRS Dim oCon Dim sSelectSQL ... ... ... nErrNum = 0 Err.Number = 0 ' 다음문장은 문법적으로 오류가 있어도 강제적으로 실행이 되기때문에 모든 에러를 다 잡고 나서 사용해야 나중에 버그를 줄일수 있음 On Error Resume Next Set..

출처 : http://blog.naver.com/withakiss?Redirect=Log&logNo=140009536877 직접적인 출처는 위에 썼지만, 실제 출처는 코리아점컴일 거 같다. ASP에서 텍스트 파일 내용 읽고 쓰기 저자: Ryan S. | 날짜: 2001년 08월 16일 이 강의는 ASP에서 텍스트 파일에 있는 내용을 읽어 들이거나, 텍스트 파일에 어떤 내용을 기록하고자 하..

<% xml=request("xml") 'xml 형식의 태그 문자열을 가져온다. xml 선언 태그는 없어도 된다. Set xmlPars = Server.CreateObject("microsoft.XMLDOM") xmlPars.LoadXML xml '파일이거나 xml 개체를 받을 때는 xmlPars.Load를 쓴다. if xmlPars.ParseError.errorCode <> 0 then Response.write "에러발생" Response.end else Set root = xmlPars.documentElement pcserial = ..

출처 : http://blog.naver.com/loy2507?Redirect=Log&logNo=23862863 // test.xml < ?xml version="1.0" encoding="euc-kr" ?> < value> < table> < Item0>055048048048048053049</Item0> < Item1>050048048054045048051045050052</Item1> < Item2>048054048051050052053049048048050</Item2> < Item3>049048048048</Item3> < Item4>-16132-195..

Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;filename=income_"&sTime&"_"&eTime&"_"&iPer&".xls" 헤더에 이 두 가지를 추가하면 된다. 실제로는 html 파일로 저장되지만, 엑셀에서 엑셀 문서처럼 읽혀진다. 다만, 엑셀 뷰어로는 못 읽어온다.

출처 : http://blog.naver.com/tear230?Redirect=Log&logNo=100001801180 Windows 2003은 기존의 ASP 소스는 문제가 없으나 cdonts를 사용한 메일 발송이 안됩니다. 이유인즉 cdonts는 NT4.0에서 사용되던 것인데 그것이 Windows 2000에서는 하위 호환을 위하여 지원이 되었지만 Windows 2003에서는 없어졌기 때문이랍니다. 그래서 메일..

출처 : http://kin.naver.com/db/detail.php?d1id=1&dir_id=10112&eid=94JTuDRqipQ5mTCFsAn9y21EemgTufpa 런타임 오류일 경우 Error 객체를 사용하여 오류 처리를 하실 수 있습니다. ASP 코드 상단에 On Error Resume Next 를 추가합니다. 코드 하단부에는 오류 여부를 검사하여 메시지를 출력하는 부분을 추가합니다. 대략 아래와 같..

1일 때는 ㄱ을 2일 때는 ㄴ을 4일 때는 ㄷ을 8일 때는 ㄹ을 표시해야 하며, 3, 5, 6, 7일 때는 그 합에 해당하는 모든 숫자(3일 경우 1, 2)에 해당하는 기호를 표시해야 한다. 이럴 때 if 값 and 1 then response.write "ㄱ" if 값 and 2 then response.write "ㄴ" if 값 and 4 then response.write "ㄷ" if 값 and 8 then response.write "ㄹ" 이렇게 ..

<% set xml = server.CreateObject("MSXML2.XMLHTTP") xml.open "POST","" & "http://news.naver.com/" & "",false xml.send "" strStatus = xml.Status str = xml.responseText response.binaryWrite xml.responsebody Response.CharSet = "euc-kr" set xml = nothing %> 내용을 이진 문자열로 받으면 한글이 깨지지 않는다. 그래도 혹시 깨질까봐 문자 형식까지..