ASP 일반적으로 사용되는 기능 수집

저자：Eve Cole 업데이트 시간：2025-03-01 01:16:01

OLEDB 방법 SQL 데이터 연결을 엽니 다

Sub OpenSQLBYOLEDB

다음에 오류가 재개됩니다

set conn = server.createobject (adodb.connection)

Conn.open 제공자 = SQLOLEDB.1;

err.number <> 0 인 경우

err.clear

response.write (<div align = 'center'> 데이터베이스가 오류에 연결되어 있습니다. 관리자에게 문의하십시오! </div>)

응답 ()

끝 If

종료 서브

'데이터베이스 운영 관련 기능

'******************************************* ***************************************************************************************** 누군가 ***************************************************************************************** 누군가 ***************************************************************************************** 누군가 ***************************************************************************************** 누군가 **************, ***************

'[Sub] OpenReadrs RS, SQL, Otype

'기능 : 해당 데이터 세트 유형을 열고 작업 만 읽으십시오.

'매개 변수 :

'Rs Open Rs 컬렉션

'SQL 명세서 실행

하위 OpenReadrs (RS, SQL)

그렇다면 isobject (rs)가 아니라면

set rs = server.createobject (adodb.oldset)

Rs.OOPEN SQL, CONN, 1,1

끝 If

종료 서브

'[Sub] OpenWriters RS, SQL

'기능 : 해당 데이터 세트 유형을 열면 작업을 작성할 수 있습니다.

'매개 변수 :

'Rs Open Rs 컬렉션

'SQL 명세서 실행

서브 오픈 라이터 (RS, SQL)

그렇다면 isobject (rs)가 아니라면

set rs = server.createobject (adodb.oldset)

Rs.OOPEN SQL, CONN, 1,3

끝 If

종료 서브

'[sub] endrs rs

'기능 : 해당 데이터 세트 유형을 닫습니다

'매개 변수 :

'Rs Open Rs 컬렉션

서브 엔드 (RS)

isobject (rs) 인 경우

rs.close : set rs = nothing

끝 If

종료 서브

'[Sub] EndConn

'기능 : 데이터베이스 연결을 닫습니다

'매개 변수 : 없음

서브 endnn

isobject (conn)라면

conn.close : set conn = nothing

끝 If

종료 서브

'[sub] execsql sql

'기능 : SQL 문을 실행하십시오

'매개 변수 :

'SQL 명세서 실행

sub execsql (sql)

Conn.Execute (SQL)

종료 서브

'[] SelectalOne SQL

'기능 : 단일 필드 쿼리

'매개 변수 :

'SQL 명세서 실행

'반환 : 쿼리 필드 값

Selectalone (SQL)

dim selectaloners

selectaloners = const.execute (SQL)

selectalone = selectaloners (0)

endrs selectaloners

끝

'문자열 작동 관련 기능

'[] Issafest Str

'기능 : 안전한 현악지 여부, 등록 및 로그인과 같은 특수 필드에서 사용

'매개 변수 :

'str string을 감지합니다

'반환 : true = 보안, false = 안전하지 않습니다

issafest (str)

dim s_badstr, n, i

s_badstr = '& <>%,; : () ~!@#$^*{} [] |+-= & chr (9) & chr (32)

n = len (s_badstr)

issafest = true

i = 1 ~ n의 경우

If instr (str, mid (s_badstr, i, 1))> 0

IsSafest = false

출구

끝 If

끝

'[] htmltoencode str

'기능 : 코드 html

'매개 변수 :

'STR은 문자열을 인코딩해야합니다

'반환 : 코드 문자열

htmltoencode (str) '

isnull (str)과 str <>가 아니라면

str = replace (str, &, & amp;)

str = replace (str,>, & gt;)

str = replace (str, <, & lt;)

str = replace (str, chr (32),)

str = replace (str, chr (9), & nbsp;)

str = replace (str, chr (34), & quot;)

str = replace (str, chr (39), ')

str = replace (str, chr (13),)

str = replace (str, s cript)

str = replace (str, s, s)

htmltoencode = str

끝 If

끝

'[] encodetohtml str

'기능 : 코드 HTML 코드

'매개 변수 :

'str는 문자열로 코딩되어야합니다

'반환 : 리버스 코딩 된 문자열

encodetohtml (str)

isnull (str)과 str <>가 아니라면

str = replace (str, & amp; ,, &)

str = replace (str, & gt;,>)

str = replace (str, & lt;, <)

str = replace (str, chr (32))

str = replace (str, & nbsp;, chr (9))

str = replace (str, & quot;, chr (34))

str = replace (str, ', chr (39))

str = replace (str, chr (13))

str = replace (str, s cript,)

str = replace (str, s, s)

encodetohtml = str

끝 If

끝

'[] gottopic str, strlen

'기능 : 문자열의 길이를 테스트하고 한자가 계산됩니다. 2 길이

'매개 변수 :

'STR은 가로 채워야합니다

'Strlen 인터셉트 길이

'반환 : 스트링 길이의 길이 이후의 문자열

gettopic (str, strlen)

str =이면

gottopic =

출구

끝 If

Dim L, T, C, i

l = len (str)

t = 0

i = 1 ~ l의 경우

C = ABS (ASC (MID (STR, I, 1))))))

그렇다면 C> 255라면

t = t+2

또 다른

t = t+1

끝 If

T> = strlen이면

gottopic = 왼쪽 (str, i) & ...

종료

또 다른

gottopic = str

끝 If

끝

'[] Dateformattime tvar, 스타일

'기능 : 시간 형식

'매개 변수 :

'TVAR에는 시간 문자열이 필요합니다

'Stype Formatting Type

'반환 : 시간 문자열 서식

DateFormattime (TVAR, 스타일)

Dim TT, Syear, Smnon, Sday, Shour, Sminute, Ssecond

ISDATE (TVAR)가 아닌 경우 DateFormattime = : Exit

TT = TVAR

syear = 년 (TT)

smonth = Right (0 & Month (TT), 2)

sday = right (0 & day (tt), 2)

Shour = Right (0 & Hour (TT), 2)

sminute = right (0 & minute (tt), 2)

ssecond = Right (0 & 섹스 (TT), 2)

케이스 스타일을 선택하십시오

사례 1'2006-3-13

dateformattime = syear & -& smonth & -& sday

사례 2 '2006 년 3 월 13 일

dateformattime = syear & year & smnth & monthly & sday & day

사례 3 '2006031313120123

Dateformattime = Syear & Smonth & Shour & Shour & Sminute & Ssecond

다른 경우

DateFormattime = tt

종료 선택

끝

'[] isnum str

'기능 : 숫자인지 여부

'매개 변수 :

'str은 문자열을 판단해야합니다

'반환 : true = 숫자, false = 비 -오수

isnum (str) '

str <>이고 isnumeric (str)이면

isnum = true

또 다른

isnum = false

끝 If

끝

'출력 디버깅 관련 기능

'[Sub] Mesgoback Str

'기능 : 팝업 정보 및 반환

'매개 변수 :

'str은 문자열을 판단해야합니다

하위 메스고 팩 (str)

response.write (<language = 'java'> alert ( '& str &'); history.back (); </>)

응답 ()

종료 서브

'[sub] mesgourl str, url

'기능 : 팝업 정보 및 반환

'매개 변수 :

'str은 문자열을 판단해야합니다

'URL 점프 주소

Submesgourl (str, url)

response.write (<language = 'java'> alert ( '& str &'); local.href = '& url &'; </>)

응답 ()

종료 서브

'[서브] 디버그 잘못

'기능 : 디버그 출력

'매개 변수 :

'잘못된 출력 정보를 원합니다

'반환 : 반환 값 없음

서브 디버그 (Ingrong) '디버그 출력

Response.Write (ing)

응답 ()

종료 서브

'기능 관련 함수

'[] getip

'기능 : 사용자 IP를 얻으십시오

'매개 변수 :

' 없음

'반환 : 사용자 현재 IP

getip ()

희미한 userip

userip = request.servervariables (http_x_forwarded_for)

if userip = then userip = request.servervariables (remote_addr)

getip = userip

끝

'[] geturl

'기능 : 현재 도메인 이름을 얻으십시오

'매개 변수 :

' 없음

'반환 : 현재 도메인 이름

geturl ()

geturl = request.servervariables (server_name)

끝