[Dev]ASP

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

[asp] replace 콤마 comma

2013년 06월 04일 golgol 0

Replace(str, “,”, ” “, 1)

asp 팝업에서 바로 Redirect 시키기

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

sitegalaxyupload 서버 세팅 및 기타 오류

DEXTUpload server2008 64bit 설치시 에러 해결

asp 한글 깨졌을때 코드추가

IP를 찾아 변수에 저장

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

asp download file

[asp] sql Injection 방지 함수

[asp] replace 콤마 comma