sitegalaxyupload 서버 세팅 및 기타 오류

64bit 에서 세팅 하기

ActiveX 구성 요소는 개체를 작성할 수 없습니다.

참조 : http://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 이상 으로 설치해야 한다고 온라인 기술에서 얘기 하고 있습니다. 그냥 […]

asp 한글 깨졌을때 코드추가

**** euc-kr ****

**** utf-8 ****

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

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

IP를 찾아 변수에 저장

IP확인

jsp : String REMOTE_ADDR = request.getRemoteAddr(); asp : REMOTE_ADDR = Request.ServerVariables(“REMOTE_ADDR”) php : $REMOTE_ADDR = $_SERVER[“REMOTE_ADDR”];

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

asp download file

Response.BinaryWrite Office 2007 docs corrupted

<% file_name = REQUEST("FILE_NAME") ‘다운받을 파일명 strFilePath ="D:\WebSite\DCS\" & file_name ‘경로 URL = strFilePath Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(URL)) Then strName2= Mid(file_name,InstrRev(file_name, ".")+1) strName1 = UCase(trim(strName2)) if strName1 = "EXE" or strName1 ="exe" then URL = "../DCS/" & file_name Response.Redirect URL else if strName1 = "asp" or strName1 = "ASP" or strName1 = "INC" or strName1 ="inc" then

response.redirect "../Error.asp?ERROR=500&EI=UPLOAD"

else

Select case strName1
case "DOC"
Response.ContentType = "application/vnd.ms-word"
case "DOCX"
Response.ContentType = "application/vnd.ms-word"
case "XLSX"
Response.ContentType = "application/vnd.ms-excel"
case "XLS"
Response.ContentType = "application/vnd.ms-excel"
Case Else
Response.ContentType = "application/unknown"
end Select

Response.AddHeader "Content-Disposition","attachment; filename=" &file_name

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open
objStream.Type = 1

objStream.LoadFromFile URL
download = objStream.Read
Set objstream = nothing

Response.BinaryWrite download

end if
end if
else
response.write "파일이 존재 하지 않습니다."
end if
%>

참조 : 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 virtual=”./SQL_Injection_function.asp”–>

다음 파일을 include <%

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

‘ GET 데이터 값 for each key in request.QueryString resultbadstring […]

[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

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

다운로드 파일명 또는 실행파일은 경로지정 : objStream.LoadFromFile Server.MapPath(“./다운로드 파일명 또는 실행파일”) Dim file

file= “다운로드 파일명 또는 실행파일” ‘파일 이름

Response.ContentType = “application/unknown” ‘ContentType 를 선언합니다.

Response.AddHeader “Content-Disposition”,”attachment; filename=” & file ‘헤더값이 첨부파일을 선언합니다.

Set objStream = Server.CreateObject(“ADODB.Stream”) ‘Stream 을 이용합니다.

objStream.Open ‘무엇이든 Set 으로 정의했으면 열어야 겠지요^^

objStream.Type […]

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

[…]

vb asp 엔터값

chr(13) & chr(10)

=> vbCrLf

StoredProc 사용방법 리턴값

<!–#include file=conn_db.asp–> <!–#include file=adovbs.inc–> <% — 중간 생략 — Set cmd = Server.CreateObject(“ADODB.command”) With cmd .ActiveConnection = conn .commandtext = “StoreName” .commandType = adCmdStoredProc

.Parameters.Append .CreateParameter(“@Param01”, adVarchar, adParamInput, 4000) .Parameters(“@Param01”) = varParam01

.Parameters.Append .CreateParameter(“@Param02”, adVarchar, adParamInput, 2) .Parameters(“@Param02”) = varParam02

.Parameters.Append .CreateParameter(“@retValue”, adInteger, adParamOutput, 1) .Execute ln, , adExecuteNoRecords

retCount = .Parameters(“@retValue”) End with

‘response.write […]

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

<% ‘adovbs.inc ‘——————————————————————– ‘ Microsoft ADO ” Copyright (c) 1996-1998 Microsoft Corporation. ” ADO constants include file for VBScript ”——————————————————————–

‘—- CursorTypeEnum Values —- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3

‘—- CursorOptionEnum Values —- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = […]

Function SendMail 외부 서버를 이용한 메일 발송 방법

Public Function SendMail(strSenderName, strSenderAdd, strReceiverName, strReceiverAdd, strSubject, strMailBody, sFileName)

SendMail = False ‘메일에러체크

sFrom = “”&strSenderName&”” & “<“& strSenderAdd &”>” ‘송신자설정 sTo = “”&strReceiverName&”” & “<“& strReceiverAdd &”>” ‘수신자설정

Set objMail = Server.CreateObject(“CDO.Message”)

Set mailConfig = objMail.Configuration

With mailConfig.Fields .Item(“http://schemas.microsoft.com/cdo/configuration/sendusing“) = 1 ‘1 : 로컬 SMTP / 2 : 외부 SMTP ‘.Item(“http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory“) = “c:\inetpub\mailroot\pickup” .Item(“http://schemas.microsoft.com/cdo/configuration/smtpserver“) […]

SMTP CDO로 메일 보내기

<meta http-equiv=”Content-Type” content=”text/html; charset=utf-8″ /> <%

Dim objMail Dim AgentSubject Dim Contents

subject= ” 메일 테스트 ”

Contents = “내용 입니다 ”

‘——————————————————– Set objMail = Server.CreateObject(“CDO.Message”) ‘ CDO objMail.HTMLBody = “” objMail.BodyPart.Charset = “UTF-8” objMail.HTMLBodyPart.Charset = “UTF-8”

With objMail

.From = “아무개<mail02@yahoo.co.kr>” ‘// 보내는 사람 .ReplyTo = ” mail@yahoo.co.kr” 회신 이메일 .Subject = subject […]

db_connect oledb 디비접속

<% ‘//////////////////// DB접속정보 DBconn.asp ////////////////////////////////// dim db dim db_connect dim db_name dim db_ip dim db_id dim db_pass

db_connect=”oledb” db_ip=”111.111.111.111,1111″ db_name=”DBX” db_id=”IDX” db_pass=”PASSX”

sub dbconn_sub dim strConnection set db = Server.CreateObject(“ADODB.Connection”) strConnection = “Provider=SQLOLEDB;SERVER=”& db_ip &”;Uid=”& db_id &”;Pwd=”& db_pass &”;Database=”& db_name &”;network library=dbmssocn” db.open strConnection end sub %>

<% ‘사용 Option Explicit ‘On Error Resume Next […]

VB ASP에서 웹서비스 이용하기

VB에서 웹서비스 이용하기

ASP에서 웹서비스 이용하기

오류 : 시스템이 지정한 인코딩을 지원하지 않습니다.=> MSXML 4.0 SP2 파서가 설치 되지 않음 msxmlkor.msi 설치 다운로드 : https://www.microsoft.com/ko-kr/download/confirmation.aspx?id=19662