Onlytiancai [原作]
<!--ASP プログラムのパフォーマンスを向上させるために、頻繁に使用されるデータをアプリケーションにキャッシュすることがよくありますが、
しかし、データベースを変更した後にアプリケーションを更新するにはどうすればよいでしょうか? この記事では、適切な解決策を提供します。
誰かがより良いアルゴリズムを持っている場合は、スレッドで議論してください、ありがとう
-->
<%
クラスwawa_app_getrows
パブリック関数 wawa_Get_List(stapp,strconn,strsql)
「************************************
'機能: アプリケーションから配列を抽出します。アプリケーション内のデータが空の場合は、wawa_Get_Rows() 関数を呼び出してアプリケーションに値を割り当てます。
' を使用すると、データベースを変更するときに対応するアプリケーションの値をクリアして空にすることができるため、参照時にアプリケーションが自動的に更新されます。
' データベースを更新する場合 (データの追加、変更、削除など)、データベースの変更後に対応するアプリケーション変数を削除します。
'次のステートメントを使用して、指定されたアプリケーション値をクリアします。ここで、strapp パラメータは、削除するアプリケーション変数の名前です。
' application.Contents.Remove(ストラップ)
' www.downcodes.com
「************************************
ディムワワ
wawa = アプリケーション(ストラップ)
空っぽなら(わわ)
wawa = wawa_Get_Rows(strconn,strsql)
用途（ストラップ）＝wawa
終了の場合
wawa_Get_List = ワワ
終了関数
public Function wawa_Get_Rows(strconn,strsql)
「************************************
'機能: データベースからレコードを読み取り、getrows メソッドを使用します。
'レコードを配列に保存します
'
「************************************
薄暗いrs_wawa
Set rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Open strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.閉じる
rs_wawa = 何も設定しない
終了機能
終了クラス
%>
<!-- 上記のクラスの使用方法を説明する例を示します -->
<%
ディムストラップ、strsql、strconn
Strapp="xinwendongtai"
strsql="上位 5 の ID、タイトルを we where lei=161 から ID の説明で並べ替えて選択します"
strconn="ドライバー={SQL サーバー};サーバー=192.168.0.110;データベース=新規;uid=sa;pwd=sa;"
set wawa_temp=new wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(ストラップ、strconn、strsql)
%>
<テーブル幅="100%" ボーダー="0" セルスペース="1">
<% If ubound(arr_xinwendongtai)<>0 then %>
<% for i=0 から ubound(arr_xinwendongtai,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% 次の %>
<%その他%>
<tr>
<td>まだニュースはありません</td>
</tr>
<% % の場合は終了>
</テーブル>