<% On Error Resume Next %>

위와 같이 설정이 되어 있을 경우 asp 에서 에러가 발생한다고 하여도 에러가 출력되지 않고
다음 코드를 계속 실행하게 됩니다.

asp에서 에러가 출력되지 않는다면 소스상에서 위와 같은 설정이 없는지 확인해 보아야 합니다.
2013/01/25 11:36 2013/01/25 11:36
기본이 30초인것 같으며, 더 늘리기 위해서는 아래와 같이 db.CommandTimeout  = 100 으로 설정해 주면된다.
<%
Set db = Server.CreateObject("Adodb.Connection")

db.CommandTimeout = 100 ' 데이터베이스 연결 접속 시간 설정

db.Open
%>
2012/10/24 17:54 2012/10/24 17:54

64bit 엑셀파일 읽기

ASP 2012/10/04 15:16
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("/Upload/test.xlsx")
2012/10/04 15:16 2012/10/04 15:16

asp mysql 연동소스

ASP 2012/09/07 15:34
mysql.com 에서 ODBC 드라이버 다운받아 설치 후 아래 소스로 테스트해 보면 된다.
mysql ODBC 드라이버 버전마다 mysql 버전 지원이 다르니 확인해 보고 설치할 것.

mysql 4.0 버전은 mysql 3.51 ODBC 드라이버를 설치하면 됨.

<%
 dbmysqlcon="Driver={MYSQL ODBC 3.51 driver}; Server=서버IP; Database=데이터베이스명; Uid=아이디; Pwd=패스워드"
  Set Rs = Server.CreateObject("ADODB.Recordset")
 
  SQL = "select version();"
  Rs.Open SQL, dbmysqlcon
 
  Response.Write rs.fields(0)
%>
2012/09/07 15:34 2012/09/07 15:34

아래와 같이 Codepage=65001로 설정해주셔야 하며, 파일명을 받을 시 (1)을 추가하여야 한글이 깨지지 않습니다.

set abc = server.createobject("ABCUPLOAD4.XFORM")
abc.Codepage = 65001


Set uploadFile1 = abc("content")(1)

response.write uploadFile1.SafeFilename
2012/07/10 15:55 2012/07/10 15:55

<%
Dim Dbcon, StrConnect
set Dbcon = server.CreateObject("ADODB.connection")
StrConnect="Provider=MSDAORA.1;User ID=아이디;Password=패스워드;Data Source=TNS설정명;Persist Security Info=True"
Dbcon.CursorLocation=3
Dbcon.Open StrConnect
response.write "OK"
%>
2012/02/18 13:59 2012/02/18 13:59

asp 폼메일 발송 소스

ASP 2012/01/16 15:21
<%'Windows 2008 Server 보안강화

Set iMsg  = Server.CreateObject("CDO.Message")
    Set iConf = iMsg.Configuration
        strschema = "http://schemas.microsoft.com/cdo/configuration/"
        
        With iConf.Fields
            .Item(strschema & "sendusing")  = 2
            .Item(strschema & "smtpserver") = "localhost"
            .Update
        End With

        With iMsg
            .To        = "[email protected](받는이)"        '/수신자
            .From        = "관리자<[email protected]>"    '/발신자
            '.CC        = "[email protected]ddd.com"    '     /참조
            '.BCC        = "[email protected]"    '/숨은참조
            .Subject    = "관리자 테스트메일입니다."    '/메일제목
            .CreateMHTMLBody sActUrl, 31            '/ url을 직접 긁어와서 메일을 생성함
            '.HTMLBody = getHtmlData(sActURL)        '/인코딩타입이 틀려 한글이 깨질때
            .Send
        End With

    Set iConf = Nothing
Set iMsg=Nothing


Function getHtmlData(url)
    Set xh = server.CreateObject("MSXML2.ServerXMLHTTP")
        xh.open "GET", url, False
        xh.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
        xh.setRequestHeader "encoding","euc-kr"
        xh.send

        getHtmlData = BinaryToText(xh.ResponseBody, "euc-kr")
    Set xh = Nothing
End Function


Function  BinaryToText(BinaryData, CharSet)
    Const adTypeText = 2
    Const adTypeBinary = 1
    Dim BinaryStream
    Set BinaryStream = CreateObject("ADODB.Stream")
        BinaryStream.Type = adTypeBinary    '원본 데이터 타입
        BinaryStream.Open
        BinaryStream.Write BinaryData        ' binary -> text
        BinaryStream.Position = 0
        BinaryStream.Type = adTypeText        ' 변환할 데이터 캐릭터셋
        BinaryStream.CharSet = CharSet        '변환한 데이터 반환
        BinaryToText = BinaryStream.ReadText
    Set BinaryStream = Nothing
End Function


'/========================================================================================================
'Server 2000~2003

Set iMsg = Server.CreateObject("CDO.Message")
    iMsg.To   = "[email protected](받는이)"  'TO =  받는메일주소(받는이)
    iMsg.From  = "회사명<[email protected]>" 'From = 보내는사람<메일주소>
    iMsg.CC   = "[email protected]"     'CC = 참조
    iMsg.BCC  = "[email protected]"     'BCC = 숨은참조
    iMsg.Subject = "메일제목입니다"        'Subject = 메일제목

    a = server.mappath("/") ' 현재서버의 루트폴더 경로
    b = server.mappath(".")  '현재파일의 전체경로
    iMsg.AddAttachment(a & "\aaa.text")  '첨부파일 지정

    iMsg.HTMLBody = "본문내용 : 텍스트입니다"    '텍스트 본문
    'iMsg.CreateMHTMLBody "http://www.naver.com"   'URL 본문

    iMsg.Send '메일보내기
 Set iMsg=Nothing

%>

CDO.Message : 이 Object 는 Windows 2000, 2003 ... 사용가능
CDO.Newmail :  이 Object 는 Windows 2000  에서만 사용가능

서버에 SMTP service가 올라가있어야 메일발송가능

<%
url = "abcdbdbwwbbwdb"
Set objFs = server.CreateObject("scripting.filesystemobject")
Set objFile = objFs.createTextfile(server.mappath(".") & "/test.txt")
    objFile.writeline(url) 'response.write 가 어려울때 TEXT파일로 출력해줌
Set objFile = Nothing
Set objFs = Nothing
%>


출처 : http://nowsnsd.tistory.com/118
2012/01/16 15:21 2012/01/16 15:21