[Dev]ASP 보관 - AuctionPro

Classic ASP 에서는 기본적으로 상세 오류

2026년 05월 26일 golgol 0

An error occurred on the server when processing the URL. Please contact the system administrator. If you are the system administrator please click here to find out […]

On Error Resume Next

2026년 01월 09일 golgol 0

✅ 올바른 패턴 (에러 범위 제한) ➡️ DB 실행 구간에서만 오류 무시➡️ 이후 로직은 정상적으로 오류 감지 🧠 내부적으로 무슨 일이 일어나나? 명령 내부 상태 […]

asp 바로 post로 Redirect 시키기

2025년 02월 11일 golgol 0

Overview : Get방식이 아닌 Data 를 Post 로 Redirect

asp : 날짜 컨버터 함수 11JAN

2024년 01월 11일 golgol 0

Overview : 11JAN와 같은 날짜 형식을 오늘과 비교해서, 이전 날짜인 경우 False 로 리턴되는 함수

asp 팝업에서 바로 Redirect 시키기

2023년 03월 03일 golgol 0

Overview : ssl 이 적용하지 않은 사이트는 팝업에서 바로 Redirect가 되지 않아 delay 를 35초로 세팅해야 합니다. 수동으로 클릭한다고 delay 로 웹에 인지 시키면 Redirect […]

IIS에서 확장자 php가 asp형식으로 실행 되돌록 매핑하는 방법

2020년 08월 20일 golgol 0

참조 : https://m.blog.naver.com/PostView.nhn?blogId=tjrwjd3535&logNo=220750241376&proxyReferer=https:%2F%2Fwww.google.com%2F /디렉토리 감추기

sitegalaxyupload 서버 세팅 및 기타 오류

2017년 08월 17일 golgol 0

64bit 에서 세팅 하기 ActiveX 구성 요소는 개체를 작성할 수 없습니다. 참조 : https://auctionpro.co.kr/?p=4328

DEXTUpload server2008 64bit 설치시 에러 해결

2017년 03월 04일 golgol 0

Server.CreateObject(“DEXT.FileUpload”) 객체생성을 하면 500번 에러 발생 설치 DEXTUpload_v248 버전이 32버전이라 IIS 응용프로램 풀에서 사이트 설정 후 고급 설정에서 “32비트 응용프로그램 사용” True 로 변경 해결 […]

asp 한글 깨졌을때 코드추가

2017년 02월 28일 golgol 0

**** euc-kr ****


<% @Language="VBScript" CODEPAGE="949" %>
<%
Response.CharSet="euc-kr"
Session.codepage="949"
Response.codepage="949"
Response.ContentType="text/html;charset=euc-kr"
%>

1

2

3

4

5

6

7

8

9

<% @Language="VBScript" CODEPAGE="949" %>

<%

Response.CharSet="euc-kr"

Session.codepage="949"

Response.codepage="949"

Response.ContentType="text/html;charset=euc-kr"

%>

**** utf-8 ****


<%@Language="VBScript" CODEPAGE="65001" %>
<%
Response.CharSet="utf-8"
Session.codepage="65001"
Response.codepage="65001"
Response.ContentType="text/html;charset=utf-8"
%>

1

2

3

4

5

6

7

8

9

<%@Language="VBScript" CODEPAGE="65001" %>

<%

Response.CharSet="utf-8"

Session.codepage="65001"

Response.codepage="65001"

Response.ContentType="text/html;charset=utf-8"

%>

**** utf-8 csv 로 엑셀에 저장 시****


엑셀 시작부분에 아래 문장을 넣으면 글자가 깨지지 않음 
Response.BinaryWrite(ChrB(239) & ChrB(187) & ChrB(191))

'엑셀로 저장
Response.Buffer = True
Response.ContentType = "appllication/vnd.ms-excel" '// 엑셀로 지정
Response.CacheControl = "public"
Response.AddHeader "Content-Disposition","attachment; filename=Mobile_Seg_list.csv"

1

2

3

4

5

6

7

8

9

10

엑셀 시작부분에 아래 문장을 넣으면 글자가 깨지지 않음

Response.BinaryWrite(ChrB(239) & ChrB(187) & ChrB(191))

'엑셀로 저장

Response.Buffer = True

Response.ContentType = "appllication/vnd.ms-excel" '// 엑셀로 지정

Response.CacheControl = "public"

Response.AddHeader "Content-Disposition","attachment; filename=Mobile_Seg_list.csv"

UTF-8 기타 처리 참고 http://unions5.tistory.com/38

[Asp] WebService 로 받아 XML로 리턴하기 예제

2014년 10월 29일 golgol 0


<% 'option explicit %>

<%
' Response.Expires = 0  'ASP 스크립트를 사용하여 캐싱 금지
' Response.Expiresabsolute = Now() - 1 
' Response.AddHeader "pragma","no-cache" 
' Response.AddHeader "cache-control","private" 
' Response.CacheControl = "no-cache"     	

Dim Type
Dim ID
Dim RLOC

Type = request.Form("Type")
ID = request.Form("ID")
RLOC = request.Form("RLOC")

HttpPath="http://MyWebSite/my.asmx/WSTL"

 '-------------------------------------------------------------------
Dim lResolve
Dim lConnect
Dim	lSend
Dim lReceive
Dim sSend 
sSend="Type="& Type & _
	  "&ID="& ID & _
	  "&RLOC="& RLOC
	  
	  'response.write sSend
	  'response.end
 
    Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
	lResolve = 30 * 1000 'Timeout values are in milli-seconds
	lConnect = 30 * 1000
	lSend = 30 * 1000
	lReceive = 30 * 1000
	XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive
	XMLhttp.open "POST",HttpPath, False
 '------------------------------------------------------------------
	XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"   
	XMLhttp.Send sSend


	
 Dim sResponse
 sResponse = XMLhttp.responseText
 
Response.ContentType = "text/xml"
response.write sResponse

response.end
%>

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

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

<% 'option explicit %>

<%

' Response.Expires = 0 'ASP 스크립트를 사용하여 캐싱 금지

' Response.Expiresabsolute = Now() - 1

' Response.AddHeader "pragma","no-cache"

' Response.AddHeader "cache-control","private"

' Response.CacheControl = "no-cache"

Dim Type

Dim ID

Dim RLOC

Type = request.Form("Type")

ID = request.Form("ID")

RLOC = request.Form("RLOC")

HttpPath="http://MyWebSite/my.asmx/WSTL"

'-------------------------------------------------------------------

Dim lResolve

Dim lConnect

Dim lSend

Dim lReceive

Dim sSend

sSend="Type="& Type & _

"&ID="& ID & _

"&RLOC="& RLOC

'response.write sSend

'response.end

Set XMLhttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")

lResolve = 30 * 1000 'Timeout values are in milli-seconds

lConnect = 30 * 1000

lSend = 30 * 1000

lReceive = 30 * 1000

XMLhttp.setTimeouts lResolve, lConnect, lSend, lReceive

XMLhttp.open "POST",HttpPath, False

'------------------------------------------------------------------

XMLhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

XMLhttp.Send sSend

Dim sResponse

sResponse = XMLhttp.responseText

Response.ContentType = "text/xml"

response.write sResponse

response.end

%>

Response.BinaryWrite Office 2007 docs corrupted 참조 : http://www.aspsnippets.com/Articles/Save-Files-to-SQL-Server-Database-using-FileUpload-Control.aspx 다운로드시 10M 이상 다운로드 안될때 // IIS 서비스 재시작 C:\WINDOWS\system32\inetsrv MetaBase.xml 열어 수정 (범퍼/업로드) AspBufferingLimit=”10240000″ => AspBufferingLimit=”20240000″ […]

[asp] sql Injection 방지 함수

2013년 06월 05일 golgol 0

저장프로시저 추척을 권장하나 수정할게 많으면 차후 차근차근 수정 하고 임시로 아래와 같이 한다. 다음 파일을 include


<%

Dim key
Dim strFilter
Dim rgFilter
Dim nFilter
Dim incone
Dim resultbadstring
' 본 스크립트가 삽입된 페이지에 전달되는 모든 GET, POST 데이터에 대한 필터링 검사

' GET 데이터 값
for each key in request.QueryString
resultbadstring = badstring(trim(Request.QueryString(key)))
if resultbadstring = "error" then
response.write " Internet Explorer로 요청한 웹 페이지에 연결할 수 없습니다."
response.end
'response.redirect("about:blank")
end if
next

' POST 데이터 값
for each key in Request.form
resultbadstring = badstring(trim(Request.form(key)) )
if resultbadstring = "error" then
response.write " Internet Explorer로 요청한 웹 페이지에 연결할 수 없습니다."
response.end
end if
next

Function badstring(inboundstring)
inboundstring = LCase(inboundstring)

strFilter = " --,exec,xp_,sp_,1=1,DECLARE,VARCHAR(,@variable,sYsDaTaBaSeS,sElEcT" ' 필터링할 문자열
strFilter = LCase(strFilter) '소문자로 비교

rgFilter = Split(strFilter ,",") ' 문자열을 배열로 변경

If ( IsArray(rgFilter) ) Then
nFilter = UBound(rgFilter) ' 배열에 개수
end if

for incone = 0 to nFilter
if InStr(1,inboundstring,rgFilter(incone)) > 0 Then
badstring ="error"
exit for ' for문 탈출
else
badstring = "ok"
end if
next
End Function

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

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

<%

Dim key

Dim strFilter

Dim rgFilter

Dim nFilter

Dim incone

Dim resultbadstring

' 본 스크립트가 삽입된 페이지에 전달되는 모든 GET, POST 데이터에 대한 필터링 검사

' GET 데이터 값

for each key in request.QueryString

resultbadstring = badstring(trim(Request.QueryString(key)))

if resultbadstring = "error" then

response.write " Internet Explorer로 요청한 웹 페이지에 연결할 수 없습니다."

response.end

'response.redirect("about:blank")

end if

for each key in Request.form

resultbadstring = badstring(trim(Request.form(key)) )

if resultbadstring = "error" then

response.write " Internet Explorer로 요청한 웹 페이지에 연결할 수 없습니다."

response.end

end if

inboundstring = LCase(inboundstring)

strFilter = " --,exec,xp_,sp_,1=1,DECLARE,VARCHAR(,@variable,sYsDaTaBaSeS,sElEcT" ' 필터링할 문자열

strFilter = LCase(strFilter) '소문자로 비교

rgFilter = Split(strFilter ,",") ' 문자열을 배열로 변경

If ( IsArray(rgFilter) ) Then

nFilter = UBound(rgFilter) ' 배열에 개수

end if

for incone = 0 to nFilter

if InStr(1,inboundstring,rgFilter(incone)) > 0 Then

badstring ="error"

exit for ' for문 탈출

else

badstring = "ok"

end if

[Dev]ASP

Classic ASP 에서는 기본적으로 상세 오류

On Error Resume Next

asp 바로 post로 Redirect 시키기

asp : 날짜 컨버터 함수 11JAN

asp 팝업에서 바로 Redirect 시키기

IIS에서 확장자 php가 asp형식으로 실행 되돌록 매핑하는 방법

sitegalaxyupload 서버 세팅 및 기타 오류

DEXTUpload server2008 64bit 설치시 에러 해결

asp 한글 깨졌을때 코드추가

IP를 찾아 변수에 저장

[Asp] WebService 로 받아 XML로 리턴하기 예제

asp download file

[asp] sql Injection 방지 함수

[asp] replace 콤마 comma

ASP 파일 읽기

asp 디폴트 경로에서 파일 다운로드 또는 파일실행

ASP Msxml2.ServerXMLHTTP.3.0 로 특정사이트 계속 체크하기

vb asp 엔터값

ASP StoredProc 사용방법 리턴값

Asp 저장프로시저 사용시 필요한 파일 adovbs.inc