Function ReplaceFunc(srcString, patrn, replStr) Dim regEx ' 변수를 만듭니다. Set regEx = New RegExp ' 정규식을 만듭니다. regEx.Pattern = patrn ' 패턴을 설정합니다. regEx.IgnoreCase = True ' 대/소문자를 구분하지 않도록 합니다. regEx.Global = True ReplaceFunc = regEx.Replace(srcString, replStr) ' 문자열을 대체합니다. End Function Dim a a="010-1234-1234sdfdsf-dsfs" a=ReplaceFunc(a,"[^0-9]","") Response.write a
Function now_date() Dim today, nowtime Dim syy, smm, sdd, shh, smn, sec today = date() : nowtime = time() syy = year(today) : smm = month(today) : sdd = day(today) shh = hour(nowtime) : smn = minute(nowtime) : sec = second(nowtime) if len(smm)=1 then smm="0"&smm end if : if len(shh)=1 then shh="0"&shh end if if len(sdd)=1 then sdd="0"&sdd end if : if len(smn)=1 then smn="0"&smn end if if len(sec)=1 then sec="0"&sec end if now_date = (syy&smm&sdd) & (shh&smn) End Function
ajax 이용해서 responseText 로 결과값을 받았는뎅
이결과값이 한글이라서 깨질때
실행되는 페이지 상단에 넣어라
Session.CodePage = 65001 '한글 Response.CharSet = "UTF-8" '한글 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-control", "no-staff" Response.Expires = -1
항상 인클루드 되는 페이지
Session.CodePage = 949 '한글 Response.CharSet = "euc-kr" '한글 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-control", "no-staff" Response.Expires = -1
아작스로 데이터 받으면 한글이 안되
그래서 UTF8로 받아야 되거덩
그랴서.. 호출되는 페이지는 코드페이지를 한글로 해서 데이터를 넘기고
값을 받는 페이지는 기본 페이지코드는 설정해 줘야 된당..
안그럼 호출뒤에는
기본셋이 UTF8로 되서 께져 .. 딴페이지가..
항상 사용되는 변수나 혹은 환경설정 페이지는
페이지 코드라던가 혹은
설정값들.. 예를들어.. dbstr 정보라던지..
혹은.. 관리자 메일주소라던지...
이런것들은
global.asp 라고 하나 만들고
프로그램 모든 페이지에다가 다 인클루드 시켜 버려 ㅎ
그람 나중에 편 다.. ㅎ
[출처] ajax 한글 깨짐 현상|작성자 범이
예를 들어 웹 에서 링크된 xls 파일이나 txt 파일 클릭을 하면
웹브라우져에서 바로 실행이 될것이다. 이 소스는 바로 실행이 되지않고
다운로드 창을 띄우고자 할때 사용한다.
예제로 파일 두개를 생성하겠다.
file.asp
<a href="download.asp"> DownLoad!! </a>
Dim file
file = "sampleFile.xls"
Response.ContentType = "application/unknown"
Response.AddHeader "Content-Disposition","attachment; filename=" & file
Dim objStream, download
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("./")&"\"& "sampleF.xls"
' 위소스는 실제 서버에 존재하는 파일경로와 파일 이름을 지정해준다.
download = objStream.Read
Response.BinaryWrite download
Set objstream = nothing
위와 같이 두 파일을 만든후 file.asp 를 실행하면
ASP 바이트 리턴
Public Function LenUTFB(ByVal as_Str)
Dim ii_Pos, is_Chr
Dim ii_AscB: ii_AscB = 1
Dim ii_UTFB: ii_UTFB = 2
LenUTFB = 0
If Not IsNull(as_Str) Then
For ii_Pos = 1 To Len(CStr(as_Str)) Step 1
is_Chr = Mid(as_Str, ii_Pos, 1)
If (0 > Asc(is_Chr)) Or (127 < Asc(is_Chr)) Then
LenUTFB = LenUTFB + ii_UTFB
Else
LenUTFB = LenUTFB + ii_AscB
End If
Next
End If
End Function
Dim str, strbyte str = "테스트중이지렁" strbyte = LenUTFB(str) ' 위에서 만든 펑션 이름 과 전달할 인자값 Response.Write strbyte