텍스트 편집기의 사용은 Java로 거슬러 올라갈 수 있지만 그 당시 많은 사람들이 텍스트 편집기에 관심이 없었습니다. 오늘의 기사는 EditPlus 편집 파일에 관한 것입니다. 잘못된 새로운 기술 채널의 편집자와 함께 배우자!
#제목 = ASP의 공통 구문 및 함수
#info
ASP에서 일반적으로 사용되는 일부 구문 및 사용자 정의 기능
#정렬 = n
#t = === ASP ===의 공통 구문
#T =======================================
#t = 데이터베이스 관련
#t = 액세스 데이터베이스에 연결합니다
<%
Dim dbname, Conn
dbname "^!" '데이터베이스 경로와 이름을 정의하십시오
set conn = server.createobject ( "adodb.connection")
conn.open "제공자 = microsoft.jet.oledb.4.0; data source ="& server.mappath (dbname)
%>
#t = MS SQL 데이터베이스에 연결합니다
<%
Dim Conn
set conn = server.createobject ( "adodb.connection")
conn.open "제공자 = sqloledb; data source = sql server 이름 또는 ip 주소; uid = 데이터베이스 로그인 계정; pwd = 데이터베이스 암호; 데이터베이스 = 데이터베이스 이름"
%>
#t = 레코드 세트를 만듭니다
set ^! = server.createObject ( "adodb.recordset")
#t = SQL 명령을 실행합니다
Rs. Open SQL, Conn, 1,1
#t = SQL 명령을 실행합니다
conn.Execute ( "^!")
#t = rs는 SQL 명령을 직접 실행합니다
set rs = conn.execute ( "^!")
#t = 레코드 세트를 닫습니다
Rs.Close
RS = 아무것도 설정하지 않습니다
#t = 데이터베이스를 닫습니다
conn.close
Conn = 아무것도 설정하지 않습니다
#T =======================================
#t = ServerVariables 관련
#t = 이전 페이지의 주소를 가져옵니다
request.servervariables ( "http_referer")
#t = 서버 이름 1을 가져옵니다
request.servervariables ( "server_name")
#t = 서버 이름 2를 가져옵니다
request.servervariables ( "http_host")
#t = 서버 IP를 얻습니다
request.servervariables ( "local_addr")
#t = 사용자 IP를받습니다
request.servervariables ( "remote_host")
#t = 사용자의 실제 IP1을 얻으십시오
request.servervariables ( "remote_addr")
#t = 사용자의 실제 IP 기능을 얻으십시오
함수 getRealip ()
getRealip = request.servariables ( "http_x_forwarded_for")
if (getRealip = "") 그런 다음 getRealip = request.servervariables ( "remote_addr")
엔드 기능
#t = 서버 포트를 가져옵니다
request.servervariables ( "server_port")
#t = 서버 운영 체제를 얻으십시오
request.servervariables ( "OS")
#t = 서버의 절대 경로를 얻습니다
request.servervariables ( "appl_physical_path")
#t =이 파일의 절대 경로 1을 취하십시오
Requet.servervariables ( "path_translated")
#t =이 파일의 절대 경로 2를 취하십시오
server.mappath (request.servervariables ( "script_name"))
#t =이 파일의 상대 경로 1을 취하십시오
request.servervariables ( "url")
#t =이 파일의 상대 경로 2를 취하십시오
request.servervariables ( "script_name")
#t =이 파일의 상대 경로 3을 취하십시오
request.servervariables ( "path_info")
#t = 주소 표시 줄 다음 매개 변수입니다
request.servervariables ( "query_string")
#t = 서버 시스템 정보를 얻습니다
request.servervariables ( "http_user_agent")
#t = 서버 구성 요소 감지
<%
기능 isobjinstalled (strclassstring)
다음에 오류가 재개됩니다
isobjinstalled = false
err = 0
dim xtestobj
set xtestobj = server.createobject (strclassstring)
if (0 = err) if isobjinstalled = true입니다
set xtestobj = nothing
err = 0
엔드 기능
'if (isobjinstalled ( "persits.upload") = true)
'Response.Write "지원 ASPUPLOAD 구성 요소"
'또 다른
'response.write "Aspupload 구성 요소가 지원되지 않습니다"
'끝 If
%>
#t = 클라이언트 로케일을 얻으십시오
^! request.servervariables ( "http_accept_language")
#t = 클라이언트 정보 가져 오기 : http_user_agent
^! request.servervariables ( "http_user_agent")
#t = 양식 값 요소 값을 얻습니다
request.form ( "^!")
#t = URL이 전달한 값을 가져옵니다
request.querystring ( "^!")
#t = 전체 URL 주소를 가져옵니다
함수 geturl ()
geturl = "http : //"& request.servervariables ( "server_n ... .servervaribles ("url ")
if (request.servervariables ( "query_string") <> "") 그런 다음 geturl = geturl & "?"& request.servervariables ( "query_string")
엔드 기능
#T =======================================
#t = 사용자 정의 함수
#t = 필터 html 문자
<%
'필터 HTML 문자 함수
함수 htmlencode (str)
if (str <> "") 그러면
str = replace (str, "&", "&")
str = replace (str, ">", ">")
str = replace (str, "<", "<")
str = replace (str, chr (32), "")
str = replace (str, chr (9), "")
str = replace (str, chr (34), "" ")
str = replace (str, chr (39), " '")
str = replace (str, chr (13), "")
str = replace (str, chr (10) & chr (10), "
")
str = replace (str, chr (10), "
")
str = replace (str, chr (255), "")
끝 If
htmlencode = str
엔드 기능
%>
#t = 이전 페이지 가이 사이트에서 제출되었는지 확인
<%
'이전 페이지 가이 사이트에서 제출되었는지 확인
'반환 : 참, 거짓
'=========================================================================================================================================
함수 isselfrefer ()
dim shttp_referer, sserver_name
shttp_referer = cstr (request.servervariables ( "http_referer"))
sserver_name = cstr (request.servervariables ( "server_name"))
if (mid (shttp_referer, 8, len (sserver_name)) = sserver_name)
isselfrefer = true
또 다른
isselfrefer = false
끝 If
엔드 기능
%>
#t = 모든 HTML 태그를 지우십시오
<%
'명확한 HTML 태그
함수 striphtml (htmlstr)
희미한 정규식
REGEX = New Regexp를 설정합니다
regex.ignorecase = true
regex.global = true
regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = replace (htmlstr, "<", "<")
htmlstr = replace (htmlstr, ">", ">")
htmlstr = replace (htmlstr, chr (10), "")
htmlstr = replace (htmlstr, chr (13), "")
striphtml = htmlstr
REGEX = 아무것도 설정하지 않습니다
엔드 기능
%>
#t = 문자열 길이를 가져옵니다
<%
'문자열 길이 함수를 찾으십시오
함수 getLength (str)
희미한 길이
i = 1 to len (str)의 경우
if (asc (mid (str, i, 1)) <0 또는 asc (mid (str, i, 1))> 256)
길이 = 길이+2
또 다른
길이 = 길이+1
끝 If
다음
getLength = 길이
엔드 기능
%>
#t = 지정된 길이의 문자열을 가로 채십시오
<%
'지정된 길이의 문자열을 가로 채서 ... 대신 여분의 것을 사용하십시오.
함수 strleft (str, strlen)
if (str = "") 그런 다음
strleft = ""
종료 기능
끝 If
Dim L, T, C, i
str = replace (replace (replace (교체 (str (str, "", "", ""), "", "", chr (34)), ">", ">"), "<", "<", "<")
l = len (str)
t = 0
i = 1 ~ l의 경우
C = ABS (ASC (MID (STR, I, 1))))
if (c> 255) 그러면
t = t+2
또 다른
t = t+1
끝 If
if (t> strlen) 그러면
strleft = 왼쪽 (str, i) & "..."
종료
또 다른
strleft = str
끝 If
다음
strleft = replace (replace (replace (strleft, "", ""), chr (34), ""), ">", ">"), "<", "<", "<")
엔드 기능
%>
#t = 안전한 제출 매개 변수를 얻으십시오
<%
'=========================================================================================================================================
'SQL 주입 점검
'기능 기능 : 문자 매개 변수의 단일 따옴표, 판사 숫자 매개 변수, 숫자 유형이 아닌 경우 0을 할당하십시오.
'매개 변수 의미 : STR ---- 필터링 할 매개 변수
'strtype --- 매개 변수 유형, 문자 유형 및 숫자 유형으로 나뉘어 진 문자 유형은 "S"이고 숫자 유형은 "i"입니다.
'=========================================================================================================================================
함수 checkstr (str, strtype)
희미한 strtmp
strtmp = ""
if (strtype = "s") 그러면
strtmp = replace (trim (str), " '", "' ''")
elseif (strtype = "i")
if (isnumeric (str) = false)이면 str = false입니다
strtmp = str
또 다른
strtmp = str
끝 If
checkstr = strtmp
엔드 기능
%>
#t = 잘못된 문자 필터 (badword)
<%
'나쁜 문자 필터 (badwords)
기능 chkbadwords (fstring)
Dim Badwords, bwords, i
badwords = "나는 섹스 | 섹스 | fuck | fuck | fuck | fuck | dog | bastard | cunt | dick | 거북이 | 강간 | 섹스 | Zemin | Falun | Falun | Hongzhi | Fashion"
if (isnull (badwords) 또는 isnull (fstring)))
bwords = split (badwords, "|")
i = 0에서 ubound (bwords)의 경우
fstring = replace (fstring, bwords (i), string (len (bwords (i)), "*"))
다음
chkbadwords = fstring
끝 If
엔드 기능
%>
#t = 임의의 사용자 정의 길이 암호를 생성합니다
<%
'임의의 사용자 정의 길이 암호를 생성합니다
함수 makepassword (maxlen)
희미한 strnewpass
whatsnext, 상단, 하단, intcounter를 어둡게합니다
무작위 화
intcounter = 1에서 Maxlen
whatsnext = int ((1-0 + 1) * rnd + 0)
if (whatsnext = 0) 그러면
'성격
상단 = 90
낮은 = 65
또 다른
상단 = 57
낮은 = 48
끝 If
strnewpass = strnewpass & chr (int ((상단 - 하단 + 1) * rnd + lower))
다음
makepassword = strnewpass
엔드 기능
'Response.Write MakePassword (8)
%>
#t = TextRea를 채울 때 형식 inngml을 유지하십시오
<%
'=========================================================================================================================================
'데이터베이스에서 값을 제거하고 입력 상자를 채우는 데 사용되는 HTML 형식을 제거하십시오.
'참고 : value = "?" 이것은 여기에서 이중 인용문이어야합니다
'=========================================================================================================================================
함수 inhtml (str)
희미한 stemp
stemp = str
inhtml = ""
iSnull (stemp) = true 인 경우
종료 기능
끝 If
stemp = replace (stemp, "&", "&")
stemp = 교체 (stemp, "
", chr (13))
stemp = replace (stemp, "<", "<")
stemp = replace (stemp, ">", ">")
stemp = replace (stemp, "", chr (34))
inhtml = stemp
엔드 기능
%>
#t = 일반 테이블 표현식 검증 기능
<%
'정기 테이블 표현 검증 기능 PATRN- Regular Expression Strng-string을 확인합니다.
'=========================================================================================================================================
함수 regexptest (patrn, strng)
Dim Regex, retval '변수 생성.
regex = new Regexp '정규 표현식 생성을 설정하십시오.
regex.pattern = patrn '세트 모드.
regex.ignorecase = false '사례에 민감한 지 여부를 설정하십시오.
retval = regex.test (strng) '검색 테스트를 수행하십시오.
regexptest = retval 'return value, 일치하지 않으면 거짓이 반환됩니다.
REGEX = 아무것도 설정하지 않습니다
엔드 기능
%>
#t = 임의의 문자열을 생성합니다
<%
'임의의 문자열을 생성합니다
함수 rndcode ()
DIM CODESET, AMUTTERSET
Codeset = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ" "
AMUTTER = 62 '텍스트 수
무작위 화
Dim vcode (10), vcodes, i
i = 0 ~ 9의 경우
vcode (i) = int (rnd * Amountset)
vcodes = vcodes & mid (codeset, vcode (i) + 1, 1)
다음
rndcode = vcodes
엔드 기능
%>
#T =======================================
#t = FSO 관련 작업
#t = 디렉토리가 존재하는지 확인하십시오
<%
기능 isfloderexist (strfoldername)
set fso = server.createobject ( "scripting.filesystemobject")
if (fso.dolerexists (strfoldername))
isfloderexist = true
또 다른
isfloderexist = false
끝 If
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
#t = 디렉토리를 만듭니다
<%
기능 CreateFolder (strfoldername)
set fso = server.createobject ( "scripting.filesystemobject")
if (fso.dolerexists (strfolderName) = false)
fso.createfolder (strfoldername)
끝 If
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
#t = 디렉토리 삭제
<%
함수 deletefolder (strfoldername)
set fso = server.createobject ( "scripting.filesystemobject")
if (fso.dolerexists (strfoldername))
fso.deletefolder (strfoldername)
끝 If
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
#t = 파일이 존재하는지 확인하십시오
<%
함수 isfileExist (strfilename)
set fso = server.createobject ( "scripting.filesystemobject")
if (fso.fileExists (strfilename))
ISFILEEXIST = true입니다
또 다른
ISFILEEXIST = FALSE
끝 If
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
#t = 파일 삭제
<%
함수 deletefile (strfilename)
set fso = server.createobject ( "scripting.filesystemobject")
if (fso.fileExists (strfilename))
fso.deletefile (strfilename)
끝 If
FSO = 아무것도 설정하지 않습니다
엔드 기능
%>
#T =======================================
#t = ASP Thieves에서 일반적으로 사용하는 여러 기능
<%
함수 바이 테스토 스트 (VIN)
Dim Strreturn, I, Thischarcode, InnerCode, Hight8, Low8, NextCharCode
strreturn = ""
i = 1 대 Lenb (Vin)의 경우
thischarCode = ASCB (MIDB (Vin, I, 1))
if (thischarcode <& h80)
strreturn = strreturn & chr (thischarcode)
또 다른
NextCharCode = ASCB (MIDB (VIN, I+1,1))
strreturn = strreturn & chr (clng (thischarcode) * & h100 + cint (nextcharcode))
i = i + 1
끝 If
다음
BYTETOSTR = strreturn
엔드 기능
기능 gethttppagecontent (url, method, sendstr)
희미한 검색
set retrieval = server.createobject ( "microsoft.xmlhttp")
검색과 함께
. 오픈 방법, URL, False, "", "" "
.SetRequestHeader "Content-Type", "Application/X-WWW-Form-urlencoded"
.send (sendstr)
gethttppagecontent = .responsebody
끝납니다
검색 = 아무것도 설정하지 않습니다
gethttppagecontent = bytetostr (gethttppagecontent)
엔드 기능
함수 regexptext (strng, regstr)
Dim Regex, Match, Matches, Retstr
REGEX = New Regexp를 설정하십시오
regex.pattern = regstr
regex.ignorecase = true
regex.global = true
매치 세트 = regex.execute (strng)
경기에서 각 경기마다
retstr = retstr & regex.replace (match.value, "$ 1") & ","
다음
regexptext = retstr
REGEX = 아무것도 설정하지 않습니다
엔드 기능
함수 streambyTestObstr (strody, codebase)
희미한 objstream
set objstream = server.createobject ( "adodb.stream")
objstream과 함께
.type = 1
. 모드 = 3
.열려 있는
. Strbody를 작성하십시오
.Position = 0
.type = 2
.charset = 코드베이스
streamByTestObstr = .ReadText
.닫다
끝납니다
objstream = 아무것도 설정하지 않습니다
엔드 기능
%>
The New Technology Channel의 편집자가 소개 한 EditPlus에 대한 편집 파일을 통해 모든 사람이 특정 이해를 가지고 있다고 생각합니다. 더 많은 기술 컨텐츠를 알고 싶다면 未分 새로운 기술 채널에 계속주의를 기울이십시오!