ASP를 사용하여 웹사이트를 개발하는 친구들은 그의 ASP 기능을 통해 학습을 촉진하고 개발 효율성을 높일 수 있습니다 . 다음과 같이 코드를 복사하세요.
<%
'--------------------------------------------------------------------
'Tianfeng ASP 클래스 v1.0, 일반적인 ASP 기능을 하나로 통합
'Tianfeng 판권 소유
'QQ:76994859 이메일:[email protected]
'모든 함수 이름은 다음과 같습니다.
' StrLength(str)는 문자열 길이를 가져옵니다.
' CutStr(str,strlen) 문자열 길이 자르기
' CheckIsEmpty(tstr)는 비어 있는지 확인합니다.
' isInteger(para) 정수 테스트
' CheckName(str) 이름 문자 확인
' CheckPassword(str) 비밀번호 확인
' CheckEmail(이메일) 이메일 형식 확인
'Alert(msg,goUrl)는 대화 상자 프롬프트를 표시합니다.
' GoBack(Str1,Str2,isback) 오류 메시지
' Suc(str1,str2,url) 작업 성공 메시지 프롬프트
' ChkPost()는 양식이 사이트 외부에 제출되었는지 여부를 감지합니다.
' PSql()은 SQL 삽입을 방지합니다.
' FiltrateHtmlCode(Str)는 HTML이 생성되는 것을 방지합니다.
' HtmlCode(str) HTML 필터
'Replacehtml(tstr) HTML 정리
'GetIP() 클라이언트 IP를 가져옵니다.
'GetBrowser 클라이언트 브라우저 정보를 가져옵니다.
' GetSystem은 클라이언트 운영 체제를 가져옵니다.
'GetUrl() 매개변수를 포함한 현재 페이지 URL을 가져옵니다.
'CUrl() 현재 페이지 URL을 가져옵니다.
' GetExtend는 파일 확장자를 가져옵니다.
' CheckExist(table,fieldname,fieldcontent,isblur)는 테이블의 필드 내용이 존재하는지 확인합니다.
' GetNum(table,fieldname,resulttype,args)은 테이블에 있는 필드 수, 최대값, 최소값 등을 감지합니다.
' GetFolderSize(Folderpath)는 폴더 크기를 계산합니다.
' GetFileSize(파일 이름)은 파일 크기를 계산합니다.
' IsObjInstalled(strClassString)는 구성 요소가 설치되었는지 여부를 감지합니다.
'SendMail JMAIL메일 보내기
'ResponseCookies는 쿠키를 작성합니다.
' CleanCookies 쿠키 지우기
' GetTimeover는 프로그램 페이지 실행 시간을 가져옵니다.
'FormatSize 크기 서식 지정
'FormatTime 시간 형식 지정
' 조디악은 조디악 표지판을 얻습니다
' 별자리는 별자리를 얻는다
'--------------------------------------------------------------------
클래스 Cls_fun
'---------문자 처리----------------------------------------------------
'************************************************ * **
'함수 이름: StrLength
'기능: 문자열의 길이를 구합니다(한자는 2자).
'매개변수: str ---- 문자열 내용
'반환 값: 문자열 길이
'************************************************ * **
공용 함수 StrLength(str)
Dim Rep, 렌즈, i
담당자 = 새 정규 표현식 설정
담당자.글로벌=true
대표.IgnoreCase=true
대표 패턴=[/u4E00-/u9FA5/uF900-/uFA2D]
rep.Execute(str)의 각 i에 대해
렌즈=렌즈+1
다음
담당자 설정=없음
렌즈=렌즈 + len(str)
str길이=렌즈
기능 종료
'************************************************ * **
'함수 이름: CutStr
'기능: 문자열 길이를 자르고, 길이를 초과하면 타원을 표시합니다.
'매개변수: str ---- 문자열 내용
' strlen ------표시할 길이
'반환 값: 절단 후 문자열 내용
'************************************************ * **
공용 함수 CutStr(str,strlen)
희미한 l,t,i,c
str=이면
컷스트=
종료 기능
종료 조건
str=Replace(Replace(Replace(Replace(Replace(str, , ),,Chr(34)),>,>),<,<),|,|)
l=렌(str)
티=0
i=1에 대해 l
c=Abs(Asc(Mid(str,i,1)))
c>255이면
티=티+2
또 다른
티=티+1
종료 조건
t>=strlen이면 그러면
cutstr=Left(str,i) & ...
종료 대상
또 다른
컷스트=str
종료 조건
다음
cutstr=Replace(Replace(Replace(Replace(replace(cutstr, , ),Chr(34),),>,>),<,<),|,|)
기능 종료
'--------------시리즈 확인-------------------------------------------------------
'************************************************ * **
'함수 이름: CheckIsEmpty
'기능: 비어 있는지 확인
'매개변수: tstr ---- 문자열
'반환 값: true는 비어 있지 않으며 false는 비어 있습니다.
'************************************************ * **
공용 함수 CheckIsEmpty(tstr)
CheckIsEmpty=false
IsNull(tstr) 또는 Tstr=이면 함수 종료
희미한 강도, 재
Str=Tstr
re=new RegExp 설정
re.IgnoreCase =True
re.Global=True
str= 바꾸기(str, vbNewLine, )
str = 바꾸기(str, Chr(9), )
str = 바꾸기(str, , )
str = 바꾸기(str, , )
re.Pattern=<img(.[^>]*)>
str =re.Replace(Str,94kk)
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
다시=없음으로 설정
Str<>이면 CheckIsEmpty=true인 경우
기능 종료
'************************************************ * **
'함수 이름: isInteger
'기능: 정수 테스트
'매개변수: tstr ---- 문자
'반환 값: true는 정수이고, false는 정수가 아닙니다.
'************************************************ * **
공개 함수 isInteger(para)
오류 발생 시 다음 재개
희미한 str
희미해, 난
isNUll(para)이면
isInteger=거짓
종료 기능
다음과 같은 경우 종료
str=cstr(파라)
Trim(str)=이면
isInteger=거짓
종료 기능
다음과 같은 경우 종료
l=길이(str)
i=1 ~ l의 경우
mid(str,i,1)>9 또는 mid(str,i,1)<0인 경우
isInteger=거짓
종료 기능
다음과 같은 경우 종료
다음
isInteger=true
err.number<>0이면 err.clear
기능 종료
'************************************************ * **
'함수 이름: CheckName
'기능: 이름 문자 확인
'매개변수: str ---- 문자열
'반환 값: true는 맞고 false는 틀립니다.
'************************************************ * **
공용 함수 CheckName(Str)
확인 이름=true
희미한 담당자, 합격
담당자 설정=새 RegExp
Rep.Global=참
Rep.IgnoreCase=True
'문자, 숫자, 밑줄, 한자가 일치하며 문자, 밑줄 또는 한자로 시작해야 합니다.
반복 패턴=^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
패스 설정=Rep.Execute(Str)
pass.count=0인 경우 CheckName=false
담당자 설정=없음
기능 종료
'************************************************ * **
'기능 이름: CheckPassword
'기능: 비밀번호 확인
'매개변수: str ---- 문자열
'반환 값: true는 맞고 false는 틀립니다.
'************************************************ * **
공용 함수 CheckPassword(Str)
희미한 패스
비밀번호 확인=true
Str <>이면
희미한 담당자
담당자 설정 = 새 RegExp
Rep.Global = 참
Rep.IgnoreCase = 참
'문자, 숫자, 밑줄, 마침표 일치
반복 패턴=[a-zA-Z0-9_/.]+$
통과=rep.Test(Str)
담당자 설정 = 없음
통과하지 못한 경우 CheckPassword=false
종료 조건
기능 종료
'************************************************ * **
'기능 이름: CheckEmail
'기능: 이메일 형식 감지
'매개변수: str ----이메일 주소
'반환 값: true는 맞고 false는 틀립니다.
'************************************************ * **
공개 기능 CheckEmail(이메일)
이메일 확인=true
희미한 담당자
담당자 설정 = 새 RegExp
rep.pattern=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
pass=rep.Test(이메일)
담당자 설정=없음
통과하지 못한 경우 CheckEmail=false
기능 종료
'---------------정보 프롬프트------------------------------
'************************************************ * **
'함수명 : Alert
'기능: 대화 상자 프롬프트 팝업
'매개변수: msg ---- 대화상자 정보
' gourl ---- 프롬프트 후 방향을 바꿀 곳
'반환 값: 없음
'************************************************ * **
공개 기능 경고(msg,goUrl)
msg = 대체(msg,',/')
goUrl= 그렇다면
goUrl=history.go(-1);
또 다른
goUrl=window.location.href='&goUrl&'
IF 종료
Response.Write (<script 언어=JavaScript type=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
응답.종료
기능 종료
'************************************************ * **
'함수명 : GoBack
'기능: 오류 메시지 프롬프트
'매개변수: str1 ---- 정보 프롬프트 제목
' str2 ---- 정보 프롬프트 내용
'isback----리턴을 표시할지 여부
'반환 값: 없음
'************************************************ * **
공용 함수 GoBack(Str1,Str2,isback)
Str1=이면 Str1=오류 메시지
If Str2= Then Str2=필수 항목을 모두 입력하세요.
isback= 그렇다면
Str2=Str2& <a href=javascript:history.go(-1)>리필로 돌아가기</a></li>
또 다른
Str2=Str2
종료하면
응답.쓰기<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color: 흰색;글꼴 크기:14px;배경:#799AE1;배경:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div 스타일=라인 높이:50px;배경:#F7F7F7;세로 정렬:중간;글꼴 크기:14px;너비:100%><div 스타일=색상:빨간색;글꼴:50px/50px 宋体;float:왼쪽;너비 :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
응답.끝
기능 종료
'************************************************ * **
'함수 이름: Suc
'기능: 성공 프롬프트 메시지
'매개변수: str1 ---- 정보 프롬프트 제목
' str2 ---- 정보 프롬프트 내용
' url ---- 반환 주소
'반환 값: 없음
'************************************************ * **
공개 함수 Suc(str1,str2,url)
str1=이면 Str1=작업 성공
If str2= 그러면 Str2=이 작업이 성공적으로 완료되었습니다!
url=이면 url=javascript:history.go(-1)
str2=str2& <a href=&url& >계속 관리로 돌아가기</a>
응답.쓰기<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color: 흰색;글꼴 크기:14px;배경:#799AE1;배경:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div 스타일=라인 높이:50px;배경:#F7F7F7;세로 정렬:중간;글꼴 크기:14px;너비:100%><div 스타일=색상:빨간색;글꼴:50px/50px 宋体;float:왼쪽;너비 :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
기능 종료
'--------------안전취급-----------------------------------------------------------------------
'************************************************ * **
'기능 이름: ChkPost
'기능: 사이트 외부의 양식 제출 금지
'반환 값: 현장 제출의 경우 true, 오프사이트 제출의 경우 false
'************************************************ * **
공용 함수 ChkPost()
희미한 URL1,url2
chkpost=true
url1=Cstr(Request.ServerVariables(HTTP_REFERER))
url2=Cstr(Request.ServerVariables(SERVER_NAME))
If Mid(url1,8,Len(url2))<>url2 그러면
chkpost=false
종료 기능
종료 조건
기능 종료
'************************************************ * **
'함수 이름: PSql
'기능: SQL 주입 방지
'반환 값: 비어 있으면 주입이 발생하지 않습니다. 비어 있지 않으면 주입되어 주입된 문자가 반환됩니다.
'************************************************ * **
공개 함수 PSql()
Psql=
badwords= 'anti' 안티; 안티 및 안티 실행 안티 삽입 안티 선택 안티 업데이트 안티 삭제 안티 카운트 안티 * 안티 % 안티 chr 안티 미드 안티 마스터 안티 잘림 안티 문자 안티 선언 안티 |
나쁜 단어=분할(나쁜 단어,방어)
Request.Form<> 그렇다면
Request.Form의 각 TF_Post에 대해
For i=0 To Ubound(badword)
Instr(LCase(Request.Form(TF_Post)),badword(i))>0이면
Psql=배드워드(i)
종료 기능
종료 조건
다음
다음
종료 조건
Request.QueryString<> 경우
각 TF_Get In Request.QueryString에 대해
For i=0 To Ubound(badword)
Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0이면
Psql=배드워드(i)
종료 기능
종료 조건
다음
다음
종료 조건
기능 종료
'************************************************ * **
'함수 이름: FiltrateHtmlCode
'기능: HTML 코드가 생성되는 것을 방지합니다.
'매개변수: str ---- 문자열
'************************************************ * **
공용 함수 FiltrateHtmlCode(Str)
isnull(str)이 아니고 str<>인 경우
Str=대체(Str,Chr(9),)
Str=대체(Str,|,|)
Str=대체(Str,chr(39),')
Str=대체(Str,<,<)
Str=대체(Str,>,>)
Str = 바꾸기(str, CHR(13),)
Str = 바꾸기(str, CHR(10),)
FiltrateHtmlCode=Str
종료 조건
기능 종료
'************************************************ * **
'함수 이름: HtmlCode
'기능: HTML 태그 필터링
'매개변수: str ---- 문자열
'************************************************ * **
공개 함수 HtmlCode(str)
isnull(str)이 아니고 str<>인 경우
str = 대체(str, >, >)
str = 대체(str, <, <)
str = 바꾸기(str, CHR(32), )
str = 바꾸기(str, CHR(9), )
str = 바꾸기(str, CHR(34), )
str = 바꾸기(str, CHR(39), ')
str = 바꾸기(str, CHR(13), )
str = 바꾸기(str, CHR(10), )
str = 바꾸기(str, 스크립트, 스크립트)
HtmlCode = 문자열
종료 조건
기능 종료
'************************************************ * **
'함수 이름: 바꾸기html
'기능: 깨끗한 HTML
'매개변수: tstr ---- 문자열
'************************************************ * **
공개 함수 바꾸기html(tstr)
희미한 강도, 재
Str=Tstr
re=new RegExp 설정
re.IgnoreCase =True
re.Global=True
re.Pattern=<(p|//p|br)>
Str=re.Replace(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pattern=<(.[^>]*)>
Str=re.Replace(Str,)
다시=없음으로 설정
HTML=Str 바꾸기
기능 종료
'------------클라이언트와 서버에 대한 정보 얻기------
'************************************************ * **
'함수 이름: GetIP
'기능: 클라이언트 IP 주소 가져오기
'반환 값: 클라이언트 IP 주소
'************************************************ * **
공개 함수 GetIP()
희미한 온도
임시 = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Temp = 또는 isnull(Temp) 또는 isEmpty(Temp)인 경우 Temp = Request.ServerVariables(REMOTE_ADDR)
Instr(Temp,')>0이면 Temp=0.0.0.0입니다.
GetIP=임시
기능 종료
'************************************************ * **
'함수 이름: GetBrowser
'기능: 클라이언트 브라우저 정보 가져오기
'반환값 : 클라이언트 브라우저 정보
'************************************************ * **
공용 함수 GetBrowser()
info=Request.ServerVariables(HTTP_USER_AGENT)
Instr(info,NetCaptor 6.5.0)>0이면
브라우저=NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 then
브라우저=MyIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 then
브라우저=NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 then
브라우저=NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 then
브라우저=인터넷 익스플로러 5.5
elseif Instr(info,MSIE 6.0)>0 then
브라우저=인터넷 익스플로러 6.0
elseif Instr(info,MSIE 6.0b)>0 then
브라우저=인터넷 익스플로러 6.0b
elseif Instr(info,MSIE 5.01)>0 then
브라우저=인터넷 익스플로러 5.01
elseif Instr(info,MSIE 5.0)>0 then
브라우저=인터넷 익스플로러 5.00
elseif Instr(info,MSIE 4.0)>0 then
브라우저=인터넷 익스플로러 4.01
또 다른
브라우저=기타
종료하면
기능 종료
'************************************************ * **
'함수 이름: GetSystem
'기능: 클라이언트 운영 체제 가져오기
'반환 값: 클라이언트 운영 체제
'************************************************ * **
함수 GetSystem()
info=Request.ServerVariables(HTTP_USER_AGENT)
Instr(info,NT 5.1)>0이면
시스템=윈도우XP
elseif Instr(info,Tel)>0 then
시스템=텔포트
elseif Instr(info,webzip)>0 then
시스템=webzip
elseif Instr(info,flashget)>0 그러면
시스템=플래시겟
elseif Instr(info,offline)>0 then
시스템=오프라인
elseif Instr(info,NT 5)>0 then
시스템=윈도우 2000
elseif Instr(info,NT 4)>0 then
시스템=윈도우 NT4
elseif Instr(info,98)>0 then
시스템=윈도우 98
elseif Instr(info,95)>0 then
시스템=윈도우 95
elseif instr(info,unix) 또는 instr(info,linux) 또는 instr(info,SunOS) 또는 instr(info,BSD) then
시스템=유닉스 계열
elseif instr(thesoft,Mac) 그런 다음
시스템=맥
또 다른
시스템=기타
종료하면
기능 종료
'************************************************ * **
'함수 이름: GetUrl
'기능: 매개변수가 포함된 URL 가져오기
'반환값: 매개변수가 포함된 URL을 가져옵니다.
'************************************************ * **
공개 함수 GetUrl()
희미한 strTemp
strTemp=Request.ServerVariables(스크립트_이름)
If Trim(Request.QueryString)<> 그렇다면
strTemp=strTemp&?
Request.QueryString의 각 M_item에 대해
strTemp=strTemp&M_item&=&Server.UrlEncode(Trim(Request.QueryString(&M_item&)))
다음
종료하면
GetUrl=strTemp
기능 종료
'************************************************ * **
'함수 이름: CUrl
'함수: 현재 페이지의 URL을 얻는 함수
'반환값 : 현재 페이지 URL의 함수
'************************************************ * **
함수CUrl()
Domain_Name = LCase(Request.ServerVariables(서버_이름))
페이지_이름 = LCase(Request.ServerVariables(스크립트_이름))
쿼리_이름 = LCase(Request.ServerVariables(Quary_String))
Quary_Name = 그렇다면
CUrl = http://&도메인_이름&페이지_이름
또 다른
CUrl = http://&도메인_이름&페이지_이름&?&쿼리_이름
종료 조건
기능 종료
'************************************************ * **
'함수 이름: GetExtend
'기능: 파일 확장자를 가져옵니다.
'매개변수: 파일 이름 ---- 파일 이름
'************************************************ * **
공용 함수 GetExtend(파일 이름)
희미한 시간
파일 이름<>이면
tmp=mid(파일 이름,instrrev(파일 이름,.)+1,len(파일 이름)-instrrev(파일 이름,.))
tmp=LCase(tmp)
instr(1,tmp,asp)>0 또는 instr(1,tmp,php)>0 또는 instr(1,tmp,php3)>0 또는 instr(1,tmp,aspx)>0이면
getextend=txt
또 다른
getextend=tmp
종료하면
또 다른
getextend=
종료하면
기능 종료
'---------------------데이터베이스 운영------------------------
'************************************************ * **
'함수 이름: CheckExist
'기능: 특정 테이블의 특정 필드에 특정 내용이 존재하는지 감지
'매개변수: 테이블 ---- 테이블 이름
'필드 이름 ----필드 이름
'필드 콘텐츠 ----필드 콘텐츠
' isblur ---- 퍼지 일치 여부
'반환 값: false가 존재하지 않음, true가 존재함
'************************************************ * **
함수 CheckExist(테이블,필드 이름,필드 내용,isblur)
CheckExist=false
isblur=1이면
rsCheckExist=conn.execute('%&fieldcontent&%'와 같은 &fieldname&이 있는 &table&에서 * 선택)를 설정합니다.
또 다른
rsCheckExist=conn.execute(&table&에서 * 선택, 여기서 &fieldname&= '&fieldcontent&')를 설정합니다.
다음과 같은 경우 종료
그렇지 않은 경우(rsCheckExist.eof 및 rsCheckExist.bof) CheckExist=true
rsCheckExist.close
rsCheckExist=nothing 설정
기능 종료
'************************************************ * **
'함수 이름: GetNum
'기능: 테이블에 있는 필드의 수, 최대값 또는 최소값을 감지합니다.
'매개변수: 테이블 ---- 테이블 이름
'필드 이름 ----필드 이름
'resulttype ----결과 반환(개수/최대/최소)
' args ---- 추가 참여(순서: ...)
'반환 값: 숫자 값
'************************************************ * **
함수 GetNum(테이블,필드 이름,결과 유형,인수)
GetFieldContentNum=0
필드 이름=이면 필드 이름=*
sqlGetFieldContentNum=&table& 인수에서 &resulttype&(&fieldname&) 선택
rsGetFieldContentNum=conn.execute(sqlGetFieldContentNum) 설정
그렇지 않은 경우(rsGetFieldContentNum.eof 및 rsGetFieldContentNum.bof) GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.close
rsGetFieldContentNum=nothing 설정
기능 종료
'************************************************ * **
'함수 이름: UpdateValue
'기능: 테이블의 특정 필드 값을 업데이트합니다.
'매개변수: 테이블 ---- 테이블 이름
'필드 이름 ----필드 이름
'필드값----업데이트된 값
'id ----id
' url -------업데이트 후 리디렉션된 주소
'반환 값: 없음
'************************************************ * **
공용 함수 UpdateValue(테이블,필드 이름,필드 값,id,url)
conn.Execute(update &table& set &fieldname&=&fieldvalue& where id=&CLng(trim(id)))
url<>이면 response.redirect url
기능 종료
'--------------서버 정보 및 운영-----------------------
'************************************************ * **
'함수 이름: GetFolderSize
'기능: 폴더 크기 계산
'매개변수: FileName ----폴더 경로 및 폴더 이름
'반환 값: 숫자 값
'************************************************ * **
공용 함수 GetFolderSize(폴더 경로)
희미한 fso,d,크기,showsize
fso=server.createobject(scripting.filesystemobject) 설정
drvpath=server.mappath(폴더 경로)
if fso.FolderExists(drvpath) 그런 다음
d=fso.getfolder(drvpath) 설정
size=d.size
GetFolderSize=형식 크기(크기)
또 다른
GetFolderSize=폴더 경로(&Folder)가 존재하지 않습니다.
종료 조건
기능 종료
'************************************************ * **
'함수 이름: GetFileSize
'기능: 파일 크기 계산
'매개변수: FileName ----파일 경로 및 파일 이름
'반환 값: 숫자 값
'************************************************ * **
공용 함수 GetFileSize(파일 이름)
희미한 fso,drvpath,d,size,showsize
fso=server.createobject(scripting.filesystemobject) 설정
파일 경로=server.mappath(파일 이름)
fso.FileExists(filepath)인 경우
d=fso.getfile(파일 경로) 설정
size=d.size
GetFileSize=형식 크기(크기)
또 다른
GetFileSize=파일 이름(&F)이 존재하지 않습니다
종료 조건
fso=아무것도 설정하지 않음
기능 종료
'************************************************ * **
'함수 이름: IsObjInstalled
'기능: 구성 요소가 설치되어 있는지 확인
'매개변수: strClassString ---- 구성 요소 이름
'반환 값: false가 존재하지 않음, true가 존재함
'************************************************ * **
공용 함수 IsObjInstalled(strClassString)
오류 발생 시 다음 재개
IsObj설치=거짓
오류=0
DimxTestObj
xTestObj=Server.CreateObject(strClassString) 설정
0=Err이면 IsObjInstalled=True
xTestObj=아무것도 설정하지 않음
오류=0
기능 종료
'************************************************ * **
'기능 이름: SendMail
'기능: Jmail 구성 요소를 사용하여 이메일 보내기
'매개변수: ServerAddress ---- 서버 주소
'AddRecipient----수신자 주소
' 제목 ---- 제목
'본문---문자 내용
'보내는 사람 ---- 보내는 사람의 주소
'************************************************ * **
공용 함수 SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
오류 발생 시 다음 재개
희미한 JMail
JMail=Server.CreateObject(JMail.SMTPMail)로 설정합니다.
만약 그렇다면
SendMail= JMail 구성 요소가 설치되지 않았습니다.
오류가 발생했습니다.지우기
종료 기능
종료하면
JMail.Logging=참
JMail.Charset=gb2312
JMail.ContentType = 텍스트/html
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=수신자 추가
JMail.Subject=제목
JMail.Body=MailBody
JMail.Sender=발신자
JMail.From = 메일발신
JMail.우선순위=1
JMail.실행
JMail=아무것도 설정하지 않음
만약 그렇다면
SendMail=err.description
오류가 발생했습니다.지우기
또 다른
SendMail=확인
종료하면
함수 종료
'************************************************ * **
'함수 이름: ResponseCookies
'기능: COOKIES 쓰기
'매개변수: 키 ---- 쿠키 이름
' 값 ----쿠키 값
' 만료 ---- 쿠키 만료 시간
'************************************************ * **
공개 함수 응답 쿠키(키, 값, 만료)
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Response.Cookies(키)=&값&
Expires<>0인 경우 Response.Cookies(Key).Expires=date+Expires
Response.Cookies(Key).Path=도메인 경로
기능 종료
'************************************************ * **
'함수 이름: CleanCookies
'기능: 쿠키 지우기
'************************************************ * **
공용 함수 CleanCookies()
DomainPath=Left(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Request.Cookies의 각 objCookie에 대해
응답.쿠키(objCookie)=
Response.Cookies(objCookie).Path=도메인 경로
다음
기능 종료
'************************************************ * **
'함수 이름: GetTimeOver
'기능: 쿠키 지우기
'매개변수: 플래그 ---표시 시간 단위 1=초, 그렇지 않으면 밀리초
'************************************************ * **
공용 함수 GetTimeOver(플래그)
DimEndTime
플래그 = 1이면
EndTime=FormatNumber(Timer() - StartTime, 6, true)
getTimeOver = 이 페이지의 실행 시간: & EndTime & 초
또 다른
EndTime=FormatNumber((Timer() - StartTime) * 1000, 3, true)
getTimeOver = 이 페이지의 실행 시간: & EndTime & 밀리초
종료 조건
기능 종료
'-------------------시리즈 형식-----------------------------------------------
'************************************************ * **
'함수 이름: FormatSize
'기능: 크기 형식 지정
'매개변수: size ----포맷할 크기
'************************************************ * **
공용 함수 FormatSize(dsize)
dsize>=1073741824이면
FormatSize=형식번호(dsize/1073741824,2) & GB
elseif dsize>=1048576 그런 다음
FormatSize=형식번호(dsize/1048576,2) & MB
elseif dsize>=1024 그러면
FormatSize=형식 번호(dsize/1024,2) 및 KB
또 다른
FormatSize=dsize 및 바이트
종료하면
기능 종료
'************************************************ * **
'함수 이름: FormatTime
'기능: 시간 형식 지정
'매개변수: DateTime ---- 포맷할 시간
'형식 ----형식 형식
'************************************************ * **
공용 함수 FormatTime(DateTime,Format)
케이스 형식 선택
사례 1
FormatTime=&연도(DateTime)&연도&월(DateTime)&월&일(DateTime)&일
사례 2
FormatTime=&월(날짜시간)&월&일(날짜시간)&일
사례 3
FormatTime=&연도(날짜시간)&/&월(날짜시간)&/&일(날짜시간)&
사례 4
FormatTime=&월(날짜시간)&/&일(날짜시간)&
사례 5
FormatTime=&월(날짜시간)&월&일(날짜시간)&일&FormatDateTime(날짜시간,4)&
사례 6
temp=일요일, 월요일, 화요일, 수요일, 목요일, 금요일, 토요일
온도=분할(온도,,)
FormatTime=temp(평일(날짜시간)-1)
그렇지 않은 경우
FormatTime=날짜/시간
선택 종료
기능 종료
'--------------------여러 가지 잡다한--------------------
'************************************************ * **
'기능 이름: 조디악
'기능: 삶과 죽음을 얻는다
'매개변수: 생일 ---- 생일
'************************************************ * **
공개 기능 조디악(생일)
IsDate(생일)이면
출생연도=연도(생년월일)
ZodiacList=배열(원숭이, 닭, 개, 돼지, 쥐, 소, 호랑이, 토끼, 용, 뱀, 말, 양)
Zodiac=ZodiacList(생년월일 모드 12)
종료하면
기능 종료
'************************************************ * **
'함수명 : 별자리
'기능: 별자리 가져오기
'매개변수: 생일 ---- 생일
'************************************************ * **
공개 기능 별자리(생일)
IsDate(생일)이면
ConstellationMon=월(생일)
ConstellationDay=일(생일)
if Len(ConstellationMon)<2 then ConstellationMon=0&ConstellationMon
if Len(ConstellationDay)<2 then ConstellationDay=0&ConstellationDay
MyConstellation=ConstellationMon&ConstellationDay
MyConstellation < 0120이면
Constellation=<img src=images/Constellation/g.gif />elseif MyConstellation < 0219 그런 다음
Constellation=<img src=images/Constellation/h.gif />elseif MyConstellation < 0321 그런 다음
Constellation=<img src=images/Constellation/i.gif />elseif MyConstellation < 0420 그런 다음
Constellation=<img src=images/Constellation/^.gif />elseif MyConstellation < 0521 그런 다음
Constellation=<img src=images/Constellation/_.gif />elseif MyConstellation < 0622 그런 다음
Constellation=<img src=images/Constellation/`.gif />elseif MyConstellation < 0723 그런 다음
Constellation=<img src=images/Constellation/a.gif />elseif MyConstellation < 0823 그런 다음
Constellation=<img src=images/Constellation/b.gif />elseif MyConstellation < 0923 then
Constellation=<img src=images/Constellation/c.gif />elseif MyConstellation < 1024 then
Constellation=<img src=images/Constellation/d.gif />elseif MyConstellation < 1122 그런 다음
Constellation=<img src=images/Constellation/e.gif />elseif MyConstellation < 1222 그런 다음
Constellation=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221 그런 다음
Constellation=<img src=images/Constellation/g.gif />끝나는 경우
종료하면
기능 종료
'================================================ =
'기능 이름: 자동 페이지
'기능: 긴 글의 자동 페이지 매김
'매개변수: id, content, uract
'================================================ =
기능 AutoPage(content,paramater,pagevar)
contentStr=split(content,pagevar)
페이지 크기=ubound(contentStr)
페이지 크기>0이면
Int(요청(페이지))= 또는 Int(요청(페이지))=0이면
페이지번호=1
또 다른
pageNum=요청(페이지)
다음과 같은 경우 종료
pageNum-1<=pagesize이면
AutoPage=AutoPage&contentStr(pageNum-1)
AutoPage=자동페이지&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>페이지 번호:</font><font color=red>
i=0에서 페이지 크기로
i=pageNum-1이면
AutoPage=자동페이지&[<font color=red>&i+1&</font>]
또 다른
instr(paramater,?)>0이면
AutoPage=자동페이지&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
또 다른
AutoPage=자동페이지&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
종료하면
종료하면
다음
AutoPage=자동페이지&</font></div>
또 다른
AutoPage=자동페이지(&Illegal Operation)입니다! 페이지 수를 초과했습니다! <a href=javascript:history.back(-1)><u>뒤로</u></a>
종료하면
또 다른
자동페이지=콘텐츠
종료하면
기능 종료
수업 종료
%>