09-26 13:22 |
ASP로 GUID 생성하기ASP/TIP 2009. 11. 27. 17:04<%
Dim strGUID
'// GUID 생성하기
strGUID = fnGetGuid()
'// 생성된 GUID를 화면에 출력
Response.Write strGUID
'// GUID 생성해서 값을 리턴하는 함수
Function fnGetGUID()
Dim myTypeLib
Set myTypeLib = Server.CreateObject("Scriptlet.Typelib")
fnGetGUID = myTypeLib.guid
Set myTypeLib = Nothing
End Function
%>지정한 문자열 길이만큼 문자열을 반환하는 함수ASP/TIP 2009. 11. 27. 16:59
<%
Function fnGetCutString(strString, intCutLen, strDiv)
Dim intLen '// 문자열 길이
Dim intByte '// byte 수
Dim strCutString
Dim strRes
Dim strChar
Dim intX
intLen = 0
intByte = 0
strRes = ""
intLen = Len(strString)
For intX = 1 to intLen
strChar = ""
strCutString = Mid(strString, intX, 1) '// 일단 1만큼 잘라서 strCutString에 저장한다.
strChar = Asc(strCutString) '// 아스키 코드값 읽어오기
strChar = Left(strChar, 1)
If strChar = "-" Then '// "-"이면 2바이트 문자임
intByte = intByte + 2
Else
intByte = intByte + 1
End If
If intCutLen < intByte Then
'// 현재 문자열 byte 수가 지정한 byte 수보다 크면 For 문을 빠져나간다.
strRes = strRes & strDiv
Exit For
Else
'// 현재 문자열 byte 수가 지정한 byte 수보다 작으면 strRes 에 잘라낸 문자열을 추가한다.
strRes = strRes & strCutString
End If
Next
fnGetCutString = strRes
End Function
'// 함수 사용 예제
Dim strSubject
strSubject = "소비자를 중심으로 소비자의 심리를 이해하고 마케팅을 하는 고객지향적 마케팅 기법"
'// strSubject 변수에 지정된 문자열의 첫 40 byte 만 가져오고 문자열이 40byte 보다 크면 ".." 로 대체한다.
Response.Write(fnGetCutString(strSubject, 40, ".."))
'// "소비자를 중심으로 소비자의 심리를 이해하.." 가 화면에 출력된다.
%>
윈도우2003서버에서 asp 버퍼 제한 에러 해결 방법ASP/TIP 2009. 11. 27. 16:561. IIS6.0 콘솔에서 컴퓨터이름에서 속성 - 메타베이스 직접 편집 허용 체크합니다. 2. %SystemRoot%\System32\Inetsrv\Metabase.xml 을 메모장으로 엽니다. 3. AspBufferingLimit = "4194304" 값을 크게 변경합니다. => -1 로 지정하면 가장 큰 값으로 할당됩니다. 4. IIS를 Reset 한 후 확인합니다. |
