ASPプログラムのパフォーマンスを改善するために、人々は多くの場合、アプリケーションでキャッシュデータを頻繁に使用します。この記事は、False New Technologyチャネルの編集者によるASPプログラムのパフォーマンスをキャッシュして改善することをお勧めします。この知識を学ぶことが役立つことを願っています!
ASPプログラムのパフォーマンスをキャッシュして改善する方法を教えてください
<%
クラスWAWA_APP_GETROWS
パブリック関数wawa_get_list(strapp、strconn、strsql)
'******************************
'関数:アプリケーションから配列を抽出します。アプリケーションのデータが空の値の場合は、WAWA_GET_ROWS()関数を呼び出して、アプリケーションに値を割り当てます。
'、データベースを変更するときに対応するアプリケーション値を空にクリアでき、ブラウジング時にアプリケーションが自動的に更新されます。
「データベースを更新する場合(データの追加、変更、削除など)、データベースを変更した後、対応するアプリケーション変数を削除します。
'次のステートメントを使用して、STRAPPパラメーターが削除されるアプリケーション変数の名前である指定されたアプリケーション値をクリアします
'Application.Contents.Remove(Strapp)
'www.knowsky.com
'******************************
ディムワワ
wawa = application(strapp)
isempty(wawa)の場合
wawa = wawa_get_rows(strconn、strsql)
アプリケーション(strapp)= wawa
ifを終了します
wawa_get_list = wawa
エンド関数
パブリック関数wawa_get_rows(strconn、strsql)
'******************************
'関数:データベースからレコードを読んで、getRowsメソッドを使用します
'レコードを配列に保存します
'
'******************************
dim rs_wawa
rs_wawa = createObject( "adodb.recordset")をset
rs_wawa.open strsql、strconn、1,1
wawa_get_rows = rs_wawa.getRows()
rs_wawa.close
rs_wawa =何も設定しません
エンド関数
エンドクラス
%>
<%
Dim Strapp、strsql、strconn
strapp = "xinwendongtai"
strsql = "トップ5 IDを選択し、wen where where lei = 161 ID descによるタイトルを選択します」
strconn = "driver = {sql server}; server = 192.168.0.110; database = new; uid = sa; pwd = sa;"
wawa_temp = new wawa_app_getRowsをセットします
arr_xinwendongtai = wawa_temp.wawa_get_list(strapp、strconn、strsql)
%>
<%ubund(arr_xinwendongtai)<> 0 then%>の場合
<%i = 0からubund(arr_xinwendongtai、2)-1%>
<%next%>
<%else%>
<%end if>
上記の記事では、ASPプログラムのパフォーマンスをキャッシュして改善する方法を教えています。誰もが特定の理解を持っていると思います。より多くの技術情報を知りたい場合は、間違った新しいテクノロジーチャネルに注意を払い続けてください!