テキストエディターの使用はJavaにまでさかのぼることができますが、多くの人はその時点でテキスト編集者に興味がありませんでした。今日の記事は、editplus編集ファイルに関するものです。間違った新しいテクノロジーチャネルの編集者と一緒にそれについて学びましょう！
＃title =一般的な構文とASPの関数
＃情報
ASPで一般的に使用される構文とカスタム関数
＃sort = n
＃t = === asp ===の一般的な構文
#t =====================================================
＃t =データベース関連
＃t =アクセスデータベースに接続します
<％
dim dbname、conn
dbname "^！" 'データベースパスと名前を定義します
conn = server.createObject（ "adodb.connection"）を設定します
conn.open "provider = microsoft.jet.oledb.4.0; data source ="＆server.mappath（dbname）
％>
＃t = MS SQLデータベースに接続します
<％
dim conn
conn = server.createObject（ "adodb.connection"）を設定します
conn.open "provider = sqloledb; data source = sql server nameまたはip address; uid = database login account; pwd = database password; database = database name"
％>
＃t =レコードセットを作成します
set ^！= server.createObject（ "adodb.recordset"）
＃t = SQLコマンドを実行します
rs.open sql、conn、1,1
＃t = SQLコマンドを実行します
conn.execute（ "^！"）
＃t = rsはSQLコマンドを直接実行します
rs = conn.execute（ "^！"）を設定します
＃t =レコードセットを閉じます
rs.close
rs = Nothingを設定します
＃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.servervariables（ "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 =サーバーコンポーネントの検出
<％
function isobjinstalled（strclassstring）
エラーの再開時に次に再開します
isobjinstalled = false
err = 0
dim xtestobj
xtestobj = server.createobject（strclassstring）をset
if（0 = err）then isobjinstalled = true
set xtestobj = Nothing
err = 0
エンド関数
'if（isobjinstalled（ "persits.upload"）= true）then
「Response.Write」「サポートASPUPLOADコンポーネント」
'それ以外
'Response.Write "Aspuploadコンポーネントはサポートされていません」
'end 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 ... .servervariables（" url "）
if（request.servervariables（ "query_string"）<> ""）then geturl = geturl＆ "＆request.servervariables（" query_string "））
エンド関数
#t =====================================================
＃t =カスタム関数
＃t =フィルターHTML文字
<％
'フィルターHTML文字関数
関数htmlencode（str）
if（str <> ""）then
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）＆chr（10）、 "
「）
str =置換（str、chr（10）、 "
「）
str =置換（str、chr（255）、 ""）
ifを終了します
htmlencode = str
エンド関数
％>
＃t =前のページがこのサイトから送信されているかどうかを確認してください
<％
'前のページがこのサイトから提出されたかどうかを確認してください
'return：true、false
'====================================================================================================================
function selfrefer（）
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）then
iselfrefer = true
それ以外
iselfrefer = false
ifを終了します
エンド関数
％>
＃t =すべてのHTMLタグをクリアします
<％
'クリアHTMLタグ
function striphtml（htmlstr）
薄暗いregex
regex = new regexpを設定します
regex.ignorecase = true
regex.global = true
regex.pattern = "<。+？>"
htmlstr = regex.replace（htmlstr ""）
htmlstr =置換（htmlstr、 "<"、 "<"）
htmlstr = cheplage（htmlstr、 ">"、 ">"）
htmlstr =置換（htmlstr、chr（10）、 ""）
htmlstr =置換（htmlstr、chr（13）、 ""）
striphtml = htmlstr
regex = Nothingを設定します
エンド関数
％>
＃t =文字列の長さを取得します
<％
'文字列長関数を見つけます
関数getLength（str）
薄暗い長さ
i = 1 to len（str）
if（asc（mid（str、i、1））<0またはasc（mid（str、i、1））> 256）> 256）
長さ=長さ+2
それ以外
長さ=長さ+1
ifを終了します
次
getLength = length
エンド関数
％>
＃t =指定された長さの文字列を傍受します
<％
'指定された長さの文字列をインターセプトし、...の代わりに余分な長さを使用します...
function strleft（str、strlen）
if（str = ""）then
strleft = ""
出口機能
ifを終了します
Dim L、T、C、i
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）then
strleft = left（str、i）＆ "..."
の出口
それ以外
strleft = str
ifを終了します
次
strleft = cheplace（cheplace（leplage（strleft、 ""、 ""）、chr（34）、 ""）、 ">"、 ">"）、 "<"、 "<"、 "<"）
エンド関数
％>
＃t =安全な提出パラメーターを取得します
<％
'====================================================================================================================
'SQLインジェクションチェック
'関数関数：文字パラメーターで単一の引用をフィルター、数値パラメーターを判断します。数値タイプではない場合は、0を割り当てます。
'パラメーターの意味：フィルター処理されるstr ----パラメーター
'strtype ---パラメータータイプ、文字タイプと数値タイプに分割され、文字タイプは「s」、数値タイプは「i」です
'====================================================================================================================
function checkstr（str、strtype）
dim strtmp
strtmp = ""
if（strtype = "s"）then
strtmp = cheplage（trim（str）、 "'"、 "' '"）
elseif（strtype = "i"）then
if（isnumeric（str）= false）からstr = false
strtmp = str
それ以外
strtmp = str
ifを終了します
checkstr = strtmp
エンド関数
％>
＃t =フィルターバッドキャラクター（バッドワード）
<％
'フィルターバッドキャラクター（バッドワード）
関数chkbadwords（fstring）
薄暗いbadwords、bwords、i
badwords = "私はあなたを性交|性交|ファック|性交|犬| bastard | cunt | dick | turtle | rape | sex | virgen | zemin | falun | falun | hongzhi | fashion"
if（not（isnull（badwords）またはisnull（fstring））））
bwords = split（badwords、 "|"）
i = 0からubound（bwords）の場合
fstring = falling（fstring、bwords（i）、string（len（bwords（i））、 "*"））
次
chkbadwords = fstring
ifを終了します
エンド関数
％>
＃t =ランダムなカスタム長さのパスワードを生成します
<％
'ランダムなカスタム長さのパスワードを生成します
関数makepassword（maxlen）
dim strnewpass
dim whatsnext、上、下、intcounter
ランダム化
intcounter = 1からmaxlenへ
whatsnext = int（（1-0 + 1） * rnd + 0）
if（whatsnext = 0）then
'キャラクター
上部= 90
低= 65
それ以外
上部= 57
低= 48
ifを終了します
strnewpass = strnewpass＆chr（int（（upper -lower + 1） * rnd + lower）））
次
makepassword = strnewpass
エンド関数
'Response.write makepassword（8）
％>
＃t = Textareaに記入するときは、フォーマットINHTMLを保持します
<％
'====================================================================================================================
'データベースから値を削除し、入力ボックスに入力するために使用されるHTML形式を削除します
'注：value = "？"これはここで二重引用符である必要があります
'====================================================================================================================
関数inhtml（str）
薄暗いステンプ
stemp = str
inhtml = ""
isnull（stemp）= trueの場合
出口機能
ifを終了します
stemp = cheplage（stemp、 "＆"、 "＆"）
stemp =置換（stemp、 "
"、chr（13））
stemp =置換（stemp、 "<"、 "<"）
stemp =置換（stemp、 ">"、 ">"）
stemp = cheplage（stemp、 "" "、chr（34））
inhtml = stemp
エンド関数
％>
＃t =通常の表式検証関数
<％
'定期的な表現検証関数patrn-正規表現strng-stringを検証する
'====================================================================================================================
function regexptest（patrn、strng）
Dim Regex、retval 'CREATE変数。
regex = new regexp '正規表現を作成します。
regex.pattern = patrn 'セットモード。
regex.ignorecase = false '症例に敏感かどうかを設定します。
retval = regex.test（strng） '検索テストを実行します。
regexptest = retval 'return値、一致しない場合、それが一致する場合、それはfalseを返します。
regex = Nothingを設定します
エンド関数
％>
＃t =ランダム文字列を生成します
<％
'ランダムな文字列を生成します
function rndcode（）
Dim Codeset、lumentset
codeset = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ"
額面= 62 'テキスト数
ランダム化
dim vcode（10）、vcodes、i
i = 0から9の場合
vcode（i）= int（rnd * lumentset）
vcodes = vcodes＆mid（codeset、vcode（i） + 1、1）
次
rndcode = vcodes
エンド関数
％>
#t =====================================================
＃T = FSO関連操作
＃t =ディレクトリが存在するかどうかを判断します
<％
関数isfloderexist（strfoldername）
fso = server.createObject（ "scripting.filesystemObject"）を設定します
if（fso.folderexists（strfoldername））then
isfloderexist = true
それ以外
isfloderexist = false
ifを終了します
FSO =何も設定しません
エンド関数
％>
＃t =ディレクトリを作成します
<％
関数createfolder（strfoldername）
fso = server.createObject（ "scripting.filesystemObject"）を設定します
if（fso.folderexists（strfoldername）= false）then
fso.createfolder（strfoldername）
ifを終了します
FSO =何も設定しません
エンド関数
％>
＃t =ディレクトリを削除します
<％
function deletefolder（strfoldername）
fso = server.createObject（ "scripting.filesystemObject"）を設定します
if（fso.folderexists（strfoldername））then
fso.deletefolder（strfoldername）
ifを終了します
FSO =何も設定しません
エンド関数
％>
＃t =ファイルが存在するかどうかを判断します
<％
function isfileexist（strfilename）
fso = server.createObject（ "scripting.filesystemObject"）を設定します
if（fso.fileexists（strfilename））then
isfileexist = true
それ以外
isfileexist = false
ifを終了します
FSO =何も設定しません
エンド関数
％>
＃t =ファイルを削除します
<％
関数deletefile（strfilename）
fso = server.createObject（ "scripting.filesystemObject"）を設定します
if（fso.fileexists（strfilename））then
fso.deletefile（strfilename）
ifを終了します
FSO =何も設定しません
エンド関数
％>
#t =====================================================
＃t = ASP Thievesが一般的に使用するいくつかの機能
<％
関数bytetostr（vin）
dim streturn、i、thischarcode、innercode、hight8、low8、next charcode
strreturn = ""
i = 1にレンブ（vin）へ
thischarcode = ascb（midb（vin、i、1））
if（thischarcode <＆h80）then
strreturn = strreturn＆chr（thischarcode）
それ以外
NextCharcode = ascb（midb（vin、i+1,1））
strreturn = strreturn＆chr（clng（thischarcode） *＆h100 + cint（nextcharcode）））
i = i + 1
ifを終了します
次
bytetoStr = streturn
エンド関数
関数gethttppagecontent（url、method、sendstr）
薄暗い検索
set retireval = server.createObject（ "microsoft.xmlhttp"）
検索付き
。オープンメソッド、url、false、 ""、 "
.setRequestheader "Content-Type"、 "Application/x-www-form-urlencoded"
.send（sendstr）
gethttppagecontent = .responsebody
で終わります
set retireval = Nothing
gethttppagecontent = bytetostr（gethttppagecontent）
エンド関数
function 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 = Nothingを設定します
エンド関数
関数StreambyTestobstr（strbody、codebase）
DIM OBJSTREAM
objstream = server.createObject（ "adodb.stream"）を設定します
objstreamで
.type = 1
.mode = 3
。開ける
.STRBODYを書き込みます
.position = 0
.type = 2
.charset = codebase
StreambyTestobstr = .readText
。近い
で終わります
objstream = Nothingを設定します
エンド関数
％>
editplusに関する編集ファイルを介して、未分New Technologyチャンネルの編集者によって紹介された場合、誰もが特定の理解を持っていると思います。より多くの技術的なコンテンツを知りたい場合は、引き続き新しいテクノロジーチャネルに注意を払います！