以下はコードフラグメントです。 <％ '===================================================== 'プロセス名：showcorrelative '関数：関連する記事を表示します 'パラメーター：articlenum ----せいぜい数の記事が表示されます 'Titlelen ----タイトルのキャラクターの数、1人の漢字= 2人の英語のキャラクター '===================================================== サブショーコレレーブ（Articlenum、Titlelen） DIM RS、SQL Dim Strkey、Arrkey、i articlenum> 0およびarticlenum <= 100の場合 SQL = TOP＆ARTICLENUMを選択します それ以外 SQL =トップ5を選択します ifを終了します '使用|。キーワードを分割します strkey = mid（rs（key）、2、len（rs（key））-2） If strue（strkey、|）> 1 then arrkey = split（strkey、|） strkey =（（ '％|＆arrkey（0）＆|％'のようなキー） i = 1からubound（arrkey）の場合 strkey = strkey＆or（ '％|＆arrkey（i）＆|％'のようなキー） 次 strkey = strkey＆） それ以外 strkey =（ '％|＆strkey＆|％'のようなキー） ifを終了します sql =＆id、title、著者、日付、ヒット、l.layoutfilename from inerter join layout l on l.layoutid = layoutid deleted = false = true a nd＆strkey＆and id <>＆id＆order ID desc rs = const.execute（sql）を設定します Titlelen <0またはTitlelen> 255の場合、Tintlelen = 50 rs.bofとrs.eofの場合 Response.Writeには関連記事がありません それ以外 rs.eofではありません Response.write <a href = '＆rs（layoutfilename）＆rs（id）＆' title = 'article title：＆rs（title）＆vbcrlf＆artur時間：＆rs（date）＆vbcrlf＆clicks：＆rs（hits）＆ '>＆gottopic（rs（title）、titlelen）＆</a> rs.movenext ループ ifを終了します rs.close rs = Nothingを設定します End Sub ％> |
このプロセスを定義した後、静的ページのファイルにテンプレートマークを置き換えます
（など：htmlmake.asp）
| 以下はコードフラグメントです。 pencat = cheplage（pencat、[xianghuanlist]、showcorrelative（5,20）） |
これにより、関連記事のリストが記載された静的ページが生成されます！
赤い部分は、移植のみを移植できるコアステートメントです。
以下はコードフラグメントです。 <％ '===================================================== 'プロセス名：showcorrelative '関数：関連する記事を表示します 'パラメーター：articlenum ----せいぜい数の記事が表示されます 'Titlelen ----タイトルのキャラクターの数、1人の漢字= 2人の英語のキャラクター '===================================================== サブショーコレレーブ（Articlenum、Titlelen） DIM RS、SQL Dim Strkey、Arrkey、i articlenum> 0およびarticlenum <= 100の場合 SQL = TOP＆ARTICLENUMを選択します それ以外 SQL =トップ5を選択します ifを終了します '使用|。キーワードを分割します strkey = mid（rs（key）、2、len（rs（key））-2） If strue（strkey、|）> 1 then arrkey = split（strkey、|） strkey =（（ '％|＆arrkey（0）＆|％'のようなキー） i = 1からubound（arrkey）の場合 strkey = strkey＆or（ '％|＆arrkey（i）＆|％'のようなキー） 次 strkey = strkey＆） それ以外 strkey =（ '％|＆strkey＆|％'のようなキー） ifを終了します sql =＆id、title、著者、日付、ヒット、l.layoutfilename from inerter join layout l on l.layoutid = layoutid deleted = false = true a nd＆strkey＆and id <>＆id＆order ID desc rs = const.execute（sql）を設定します Titlelen <0またはTitlelen> 255の場合、Tintlelen = 50 rs.bofとrs.eofの場合 Response.Writeには関連記事がありません それ以外 rs.eofではありません Response.write <a href = '＆rs（layoutfilename）＆rs（id）＆' title = 'article title：＆rs（title）＆vbcrlf＆artur時間：＆rs（date）＆vbcrlf＆clicks：＆rs（hits）＆ '>＆gottopic（rs（title）、titlelen）＆</a> rs.movenext ループ ifを終了します rs.close rs = Nothingを設定します End Sub ％> |
このプロセスを定義した後、静的ページのファイルにテンプレートマークを置き換えます
（など：htmlmake.asp）
| 以下はコードフラグメントです。 pencat = cheplage（pencat、[xianghuanlist]、showcorrelative（5,20）） |
これにより、関連記事のリストが記載された静的ページが生成されます！
赤い部分は、移植のみを移植できるコアステートメントです。