推奨：ASP開発における機能の有用なコレクション（3） ASP開発における有用な機能のコレクションは非常に便利です。それを維持してください！ '*************************************'スライスコンテンツスプリットバイライン '****************************関数スプリットライン（バイバルコンテンツ、バイバルコンテンツナム）ディムTS、I、Lコンテンツナム= int（
ASP開発における有用な機能のコレクションは非常に便利です。それを維持してください！
'**********************************
'フィルターハイパーリンク
'**********************************
function checkurl（byval chkstr）
dim str：str = chkstr
str =トリム（str）
isnull（str）の場合
Checkurl =
出口機能
ifを終了します
dim re
re = new regexpを設定します
re.ignorecase = true
re.global = true
re.pattern =（d）（ocument/.cookie）
str = re.replace（str、1 cument cookie）
re.pattern =（d）（ocument/.write）
str = re.replace（str、1 cument write）
re.pattern =（s）（スクリプト:)
str = re.replace（str、1script）
re.pattern =（s）（スクリプト）
str = re.replace（str、1script）
re.pattern =（o）（buject）
str = re.replace（str、1bject）
re.pattern =（a）（pplet）
str = re.replace（str、1pplet）
re.pattern =（e）（mbed）
str = re.replace（str、1mbed）
re =何も設定しません
str =置換（str、>、>）
str =置換（str、<、<）
Checkurl = str
エンド関数
'**********************************
'フィルターファイル名
'**********************************
function fixname（upfileext）
isempty（upfileext）の場合、機能を終了します
fixname = ucase（upfileext）
fixname = cheplage（fixname、chr（0）、）
fixname = cheplage（fixname、。、）
fixname = cheplage（fixname、asp、）
fixname = cheplage（fixname、asa、）
fixname = cheplage（fixname、aspx、）
fixname = cheplage（fixname、cer、）
fixname = cheplage（fixname、cdx、）
fixname = cheplage（fixname、htr、）
エンド関数
'**********************************
'特殊文字をフィルターします
'**********************************
function checkstr（byval chkstr）
dim str：str = chkstr
isnull（str）の場合
checkstr =
出口機能
ifを終了します
str =置換（str、＆、＆＆）
str =置換（str、 '、'）
str =置換（str ,,）
dim re
re = new regexpを設定します
re.ignorecase = true
re.global = true
re.pattern =（w）（ここ）
str = re.replace（str、1here）
re.pattern =（s）（elect）
str = re.replace（str、1Elect）
re.pattern =（i）（nsert）
str = re.replace（str、1nsert）
re.pattern =（c）（Reate）
str = re.replace（str、1reate）
re.pattern =（d）（rop）
str = re.replace（str、1rop）
re.pattern =（a）（lter）
str = re.replace（str、1lter）
re.pattern =（d）（elete）
str = re.replace（str、1elete）
re.pattern =（u）（pdate）
str = re.replace（str、1pdate）
re.pattern =（/s）（or）
str = re.replace（str、1or）
re =何も設定しません
checkstr = str
エンド関数
'**********************************
'特殊文字を復元します
'**********************************
function uncheckstr（byval str）
isnull（str）の場合
uncheckstr =
出口機能
ifを終了します
str =置換（str、 '、'）
str =置換（str ,,）
dim re
re = new regexpを設定します
re.ignorecase = true
re.global = true
re.pattern =（w）（ここ）
str = re.replace（str、1here）
re.pattern =（s）（elect）
str = re.replace（str、1Elect）
re.pattern =（i）（nsert）
str = re.replace（str、1nsert）
re.pattern =（c）（Reate）
str = re.replace（str、1reate）
re.pattern =（d）（rop）
str = re.replace（str、1rop）
re.pattern =（a）（lter）
str = re.replace（str、1lter）
re.pattern =（d）（elete）
str = re.replace（str、1elete）
re.pattern =（u）（pdate）
str = re.replace（str、1pdate）
re.pattern =（/s）（or）
str = re.replace（str、1or）
re =何も設定しません
str =置換（str、＆、＆＆）
uncheckstr = str
エンド関数
'**********************************
'HTMLコードを変換します
'**********************************
関数htmlencode（adval拘束）
DIM STR：STR =レミング
そうでない場合は（str）
str =置換（str、>、>）
str =置換（str、<、<）
str =置換（str、chr（9）、）
str =置換（str、chr（32）、）
str =置換（str、chr（39）、 '）
str =置換（str、chr（34）、）
str =置換（str、chr（13）、）
str =置換（str、chr（10）、<br/>）
htmlencode = str
ifを終了します
エンド関数
'**********************************
'逆変換HTMLコード
'**********************************
関数htmldecode（adval拘束）
DIM STR：STR =レミング
そうでない場合は（str）
str =置換（str、>、>）
str =置換（str、<、<）
str =置換（str、、chr（9））
str =置換（str、、chr（32））
str =置換（str、 '、chr（39））
str =置換（str、、chr（34））
str =置換（str、、chr（13））
str =置換（str、<br/>、chr（10））
htmldecode = str
ifを終了します
エンド関数
'**********************************
'回復とキャラクター
'**********************************
関数clearhtml（adval拘束）
DIM STR：STR =レミング
そうでない場合は（str）
str =置換（str、＆、＆＆）
ClearHtml = str
ifを終了します
エンド関数
'**********************************
'Textareaをフィルター
'**********************************
機能ubbfilter（adval拘束）
DIM STR：STR =レミング
そうでない場合は（str）
str =置換（str、</textarea>、</textarea>）
ubbfilter = str
ifを終了します
エンド関数
'**********************************
'フィルターHTMLコード
'**********************************
関数editdehtml（byvalコンテンツ）
editdehtml = content
そうでない場合（editdehtml）
editdehtml = uncheckstr（editdehtml）
editdehtml = cheplage（editdehtml、＆＆＆）
editdehtml = cheplage（editdehtml、<、<）
editdehtml = cheplage（editdehtml、>、>）
editdehtml = cheplage（editdehtml、chr（34）、）
editdehtml = cheplage（editdehtml、chr（39）、 '）
ifを終了します
エンド関数
'**********************************
'日付変換関数
'**********************************
関数DateToStr（DateTime、ShowType）
Dim Datemonth、dateday、datehour、dateminute、dateweek、datesecond
Dim FullWeekday、短い日、FullMonth、Sortnth、TimeZone1、TimeZone2
timezone1 =+0800
timezone2 =+08：00
FullWeekday = array（日曜日、月曜日、火曜日、水曜日、金曜日、土曜日）
短い日=アレイ（太陽、月、火、水、木、金、土）
fullmonth = array（1月、2月、3月、4月、5月、6月、8月、9月、10月、12月、12月））
shortmonth = array（1月、2月、3月、4月、5月、6月、8月、9月、10月、11月、12月）
datemonth =月（dateTime）
dateday = day（datetime）
datehour = hour（datetime）
dateminute = minute（datetime）
dateweek = feekday（datetime）
datesecond = second（datetime）
len（datemonth）<2の場合、Datemonth = 0＆datemonth
Len（dateday）<2の場合、dateday = 0＆dateday
len（dateminute）<2の場合、dateminute = 0＆dateminute
Case ShowTypeを選択します
ケースYMD
DateToStr = year（dateTime） - ＆Datemonth-＆dateday
ケースYMD H：IA
DIM DATEAMPM
DateShour> 12の場合
datehour = datehour-12
dateAmpm = PM
それ以外
datehour = datehour
dateAmpm = am
ifを終了します
len（datehour）<2の場合、datehour = 0＆datehour
DateToStr = year（dateTime） - ＆datemonth-＆dateday＆datehour：＆dateminute＆dateampm
ケースYMD H：i：s
len（datehour）<2の場合、datehour = 0＆datehour
len（datesecond）<2の場合、Datesecond = 0＆Datesecond
DateToStr = year（dateTime） - ＆datemonth-＆dateday＆datehour：＆dateminute：＆datesecond
ケースYmdhis
datesecond = second（datetime）
len（datehour）<2の場合、datehour = 0＆datehour
len（datesecond）<2の場合、Datesecond = 0＆Datesecond
DateToStr = year（datetime）＆datemonth＆dateday＆datehour＆dateminute＆datesecond
ケースYM
DateToStr = right（year（datetime）、2）＆datemonth
ケースd
DateToStr = dateday
ケースYMD
DateToStr = right（year（datetime）、4）＆datemonth＆dateday
ケースMDY
薄暗いデイエンド
datedayを選択します
ケース1
dayend = st
ケース2
dayend = nd
ケース3
dayend = rd
ケース他のケース
dayend = th
[選択]を終了します
DateToStr = FullMonth（Datemonth-1）＆Dateday＆Dayend＆Right（year（datetime）、4）
ケースW、dmy H：i：s
datesecond = second（datetime）
len（datehour）<2の場合、datehour = 0＆datehour
len（datesecond）<2の場合、Datesecond = 0＆Datesecond
DateToStr = shortweekday（dateweek-1）、＆dateday＆left（fullmonth（datemonth-1）、3）＆right（year（datetime）、4）＆datehour：＆dateminute：＆datesecond＆timezone1
ケースYm-dth：i：s
len（datehour）<2の場合、datehour = 0＆datehour
len（datesecond）<2の場合、Datesecond = 0＆Datesecond
DateToStr = year（dateTime） - ＆datemonth-＆datedayt＆datehour：＆dateminute：＆datesecond＆timezone2
ケース他のケース
len（datehour）<2の場合、datehour = 0＆datehour
DateToStr = year（dateTime） - ＆datemonth-＆dateday＆datehour：＆dateminute
[選択]を終了します
エンド関数
'**********************************
'ページネーション関数
'**********************************
Dim FirstShortCut、ショートカット
firstshortcut = false
関数マルチページ（数字、perage、curpage、url_add、aname、style）
curpage = int（curpage）
numbers = int（numbers）
dim url
url = request.servervariables（script_name）＆url_add
Multipage =
薄暗いページ、オフセット、pagei
'int（numbers）> int（perage）thenの場合
ページ= 9
オフセット= 4
薄暗いページ、frompage、tapage
数字mod cint（perage）= 0の場合
pages = int（numbers/perage）
それ以外
pages = int（numbers/perage）+1
ifを終了します
frompage = curpage-offset
トパート= curpage+ページオフセット1
ページ>ページの場合
frompage = 1
page =ページ
それ以外
frompage <1の場合
Tapeage = curpage+1-frompage
frompage = 1
if（page）<page and（page-frapage）<pages then topage = page
Elseif Tapage>ページ
frompage = curpage-pages +tapage
page =ページ
if（page）<page and（page-frapage）<pages then page = pages-page+1
ifを終了します
ifを終了します
Multipage = <div class = page style =＆style> <ul>
'curpage <> 1の場合、マルチページ=マルチページ＆<li class = pagel> <a href =＆page = 1 class = pagelbutton title =ファーストページ> </a> </li>
Multipage = Multipage <li class = pagenumber>
curpage <> 1の場合、Multipage = Multipage <a href =＆urlpage = 1 title = first page style = text-decoration：none> <</a> |
firstshortcutでない場合は、shortcut = accesskey =、else shortcut =
curpage <> 1の場合、Multipage = Multipage <a href =＆urlpage =＆curpage-1 title =前のpageStyle =テキストゼロ：なし;＆shortcut> </a>
pagei = frompage to pageの場合
pagei <> curpageの場合
Multipage = Multipage <a href =＆urlpage =＆pagei＆aname>＆pagei </a> |
それ以外
Multipage = Multipage <strong>＆Pagei </strong>
pagei <>ページの場合、Multipage = Multipage |
ifを終了します
次
firstshortcutでない場合は、shortcut = accesskey =。その他のショートカット=
curpage <> pagesの場合、倍数= multipage <a href =＆urlpage =＆curpage+1 title = next pagestele = text-decoration：none＆shortcut> </a>
curpage <> pagesの場合、倍数= multipage <a href =＆urlpage =＆pages＆aname title = last page style = text-decoration：none >> </a>
Multipage = Multipage </li>
'int（pages）> int（page）thenの場合
'Multipage = Multipage＆<li> ... </li> <li> <a href =＆url＆page =＆pages＆aname＆>＆</a> </li>
'end if
'curpage <> pagesの場合、倍数= multipage＆<li class = pager> <a href =＆url＆page =＆pages＆aname＆class = pagerbutton title = last page> </a> </li>
Multipage = Multipage </ul> </div>
'end if
firstshortcut = true
エンド関数
共有：データベース値が空であるかどうかを判断するASPの一般的な機能さまざまなフィールドの特性が異なるため、フィールドが空であるかどうかを判断する方法も異なります。以下は一般的な機能であり、フィールドタイプの痛みを回避します。 「変数をチェックしてください空の関数isblank（byref tempvar）」デフォルトでは、それが空白ではないと仮定しますisblank = fals