onlytiancai [원작]
<!--Asp 프로그램의 성능을 향상시키기 위해 사람들은 자주 사용하는 데이터를 응용 프로그램에 캐시하는 경우가 많습니다.
하지만 데이터베이스를 수정한 후 애플리케이션을 어떻게 업데이트합니까? 이 문서에서는 합리적인 솔루션을 제공합니다.
더 나은 알고리즘이 있는 사람이 있으면 스레드에서 토론해 주세요. 감사합니다.
-->
<%
클래스 wawa_app_getrows
공개 함수 wawa_Get_List(strapp,strconn,strsql)
'************************************
'함수: 애플리케이션에서 배열을 추출합니다. 애플리케이션의 데이터가 비어 있으면 wawa_Get_Rows() 함수를 호출하여 애플리케이션에 값을 할당합니다.
' 를 사용하면 데이터베이스를 수정할 때 해당 애플리케이션 값을 비워서 탐색할 때 애플리케이션이 자동으로 업데이트되도록 할 수 있습니다.
' 데이터베이스를 업데이트하는 경우(예: 데이터 추가, 수정 또는 삭제) 데이터베이스 수정 후 해당 응용 프로그램 변수를 제거하고,
'지정된 응용 프로그램 값을 지우려면 다음 문을 사용하십시오. 여기서 Strapp 매개 변수는 제거할 응용 프로그램 변수의 이름입니다.
' application.Contents.Remove(스트랩)
' www.downcodes.com
'************************************
딤 와와
wawa = 애플리케이션(스트랩)
비어 있는 경우(wawa) 그러면
wawa = wawa_Get_Rows(strconn,strsql)
신청(스트랩) = 와와
종료 조건
wawa_Get_List = 와와
종료 함수
공개 함수 wawa_Get_Rows(strconn,strsql)
'************************************
'기능: 데이터베이스에서 레코드를 읽고 getrows 메소드를 사용합니다.
'기록을 배열에 저장
'
'************************************
희미한 rs_wawa
rs_wawa = CreateObject("ADODB.Recordset") 설정
rs_wawa.strsql,strconn,,1,1 열기
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.닫기
rs_wawa = 아무것도 설정하지 않음
기능 종료
수업 종료
%>
<!-- 다음은 위 클래스를 사용하는 방법을 보여주는 예입니다 -->
<%
희미한 스트랩,strsql,strconn
Strapp="xinwendongtai"
strsql="상위 5개 ID 선택, wen에서 제목, lei=161 ID desc별 주문"
strconn="드라이버={sql 서버};서버=192.168.0.110;데이터베이스=new;uid=sa;pwd=sa;"
wawa_temp=new wawa_app_getrows 설정
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(스트랩,strconn,strsql)
%>
<테이블 너비="100%" border="0" 셀 간격="1">
<% 유바운드인 경우(arr_xinwendongtai)<>0 그렇다면 %>
<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>
<% 종료 조건 %>
</table>