ASP에서 리턴 값을 가진 코드를 함수라고합니다. 자연 숫자가 소수인지 계산하기 위해 코드를 작성한 다음 호출 프로그램으로 돌아갈 수 있습니다. 오늘날 새로운 기술 채널은 ASP의 일반적으로 사용되는 기능이 무엇입니까? 편집자는 자세히 설명 할 것입니다.
<%
희미한 DB
db = "dbms.mdb"
'*************************************************************************************************************************** 누군가
'값을 반환하지 않고 SQL 문을 실행하십시오. 최고의 SQL 문은 다음과 같습니다.
'업데이트 테이블 이름 세트 필드 이름 = 값, 필드 이름 = 값 어디서 필드 이름 = 값
'필드 이름 = value 인 테이블 이름에서 삭제됩니다
'테이블 이름에 삽입 (필드 이름, 필드 이름) 값 (값, 값)
'*************************************************************************************************************************** 누군가
서브 노레부트 (SQL)
Dim Conn
Dim Connstr
set conn = server.createobject ( "adodb.connection")
connstr = "제공자 = microsoft.jet.oledb.4.0; data source ="& server.mappath ( ""& db & "")
CONN.OCEN CONNSTR
Conn.Execute SQL
conn.close
Conn = 아무것도 설정하지 않습니다
종료 서브
'***************************************************************************
'select 문을 실행하고 레코드 세트 객체를 반환하십시오. 이 객체는 읽기 전용입니다. 즉, 업데이트 할 수 없습니다
'***************************************************************************
기능 결과 (SQL)
Dim Conn
Dim Connstr
Dim RC
set conn = server.createobject ( "adodb.connection")
connstr = "제공자 = microsoft.jet.oledb.4.0; data source ="& server.mappath ( ""& db & "")
CONN.OCEN CONNSTR
set rcs = server.createobject ( "adodb.recordset")
Rcs. -Open SQL, Conn, 1,1
결과 = rcs를 설정합니다
엔드 기능
'***************************************************************************
'대화 상자가 나타납니다
'***************************************************************************
하위 경고 (메시지)
message = replace (message, " '", "/'")
response.write ( "<cript> alert ( '"& message & "') </script>")
종료 서브
'***************************************************************************
'이전 페이지로 돌아 가기, 일반적으로 정보가 완전히 제출되는지 판단 한 후 사용
'***************************************************************************
Sub Goback ()
response.write ( "<cript> history.go (-1) </script>")
종료 서브
'***************************************************************************
'다른 연결을 리디렉션합니다
'***************************************************************************
Sub Go (URL)
response.write ( "<cript> location.href ( '"& url & "') </script>")
종료 서브
'***************************************************************************
'HTML 태그를 교체하십시오
'***************************************************************************
함수 htmlencode2 (str)
희미한 결과
희미한 l
iSnull (str)이면
htmlencode2 = ""
종료 기능
끝 If
l = len (str)
결과 = ""
희미한 i
i = 1 ~ l의 경우
사례를 선택하십시오 (STR, I, 1)
사례 "<"
결과 = 결과+"<"
사례 ">"
결과 = 결과+">"
CASE CHR (13)
결과 = 결과+"<br>"
Case CHR (34)
결과 = 결과+"" "
사례 "&"
결과 = 결과+"&"
CASE CHR (32)
'결과 = 결과+""
i+1 <= l 및 i-1> 0이면
MID (str, i+1,1) = chr (32) 또는 중간 (str, i+1,1) = chr (9) 또는 Mid (str, i-1,1) = chr (32) 또는 Mid (str, i-1,1) = chr (9) 인 경우
결과 = 결과+""
또 다른
결과 = 결과+""
끝 If
또 다른
결과 = 결과+""
끝 If
CASE CHR (9)
결과 = 결과+""
다른 경우
결과 = 결과+중간 (str, i, 1)
종료 선택
다음
htmlencode2 = 결과
엔드 기능
'***************************************************************************
'SQL 문자열에 단일 따옴표가 있는지 확인하고 있으면 변환하십시오.
'***************************************************************************
함수 checkstr (str)
Dim Tstr, L, I, Ch
str = trim (str)
l = len (str)
i = 1 ~ l의 경우
ch = mid (str, i, 1)
ch = " '"인 경우
tstr = tstr+" '"
끝 If
tstr = tstr+ch
다음
checkstr = tstr
엔드 기능
%>
오늘 기사에서 새로운 기술 채널에서 소개 한 ASP에 사용 된 일반적인 기능은 무엇입니까? 위의 소개를 통해 모든 사람이 철저히 배웠다고 생각하지만 여전히이 지식을 통합하기 위해 검토해야합니다.