Category Archives: [Dev]ASP

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

참조 : https://m.blog.naver.com/PostView.nhn?blogId=tjrwjd3535&logNo=220750241376&proxyReferer=https:%2F%2Fwww.google.com%2F

sitegalaxyupload 서버 세팅 및 기타 오류

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

DEXTUpload server2008 64bit 설치시 에러 해결

Server.CreateObject(“DEXT.FileUpload”) 객체생성을 하면 500번 에러 발생 설치 DEXTUpload_v248 버전이 32버전이라 IIS 응용프로램 풀에서 사이트 설정 후 고급 설정에서 “32비트 응용프로그램 사용” True 로 변경 해결 됩니다. 비고) server2008 64bit 에 DEXTUpload Pro x64 3.2.0 설치시 다음과 같은 에러 발생 DEXTUpload Pro x64 3.3.0 이상 으로 설치해야 한다고 온라인 기술에서 얘기 하고 있습니다. 그냥 옛날 버전… Read More »

asp 한글 깨졌을때 코드추가

**** euc-kr ****


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

<% @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"
%>

<%@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"

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

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

IP를 찾아 변수에 저장

IP확인 소스

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


<% '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
%>

<% '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

asp download file

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″ AspMaxRequestEntityAllowed=”4240000″ => spMaxRequestEntityAllowed=”20240000″

[asp] sql Injection 방지 함수

저장프로시저 추척을 권장하나 수정할게 많으면 차후 차근차근 수정 하고 임시로 아래와 같이 한다. 다음 파일을 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

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

' 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

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

End Function

[asp] replace 콤마 comma

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

ASP 파일 읽기

Const filePath = “D:\List.xml” Dim fso set fso = server.createObject(“Scripting.FileSystemObject”) if fso.FileExists(filePath) then set textStream = fso.OpenTextFile(filePath, 1, false) Dim contents contents = textStream.ReadAll Response.write contents textStream.Close set textStream = nothing else Response.write “Error” end if set fso = nothing