|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的程序|缓存|功能|缓存|功能为了进步Asp程序的功能,人们经常将常常利用的数据缓存在Application,可是你修正了数据库后怎样让application更新呢,本文给你供应了一个公道的办理举措。
<%
Classwawa_app_getrows
publicFunctionwawa_Get_List(strapp,strconn,strsql)
********************************
功效:从Application中提取数组,假如application中的数据为empty值的时分再挪用wawa_Get_Rows()函数来给application赋值.
,你能够在修正数据库的时分把响应的application值清空成empty,这就扫瞄的时分就会主动更新application了
假如你更新了数据库(好比说增加,修正大概删除数据)那末在修正数据库后把响应的application变量往失落,
用上面的一条语句来完成清空指定的application值,个中strapp参数是要往失落的application变量名
application.Contents.Remove(strapp)
********************************
Dimwawa
wawa=Application(strapp)
Ifisempty(wawa)Then
wawa=wawa_Get_Rows(strconn,strsql)
Application(strapp)=wawa
EndIf
wawa_Get_List=wawa
EndFunction
publicFunctionwawa_Get_Rows(strconn,strsql)
********************************
功效:从数据库里读取纪录并用getrows办法
把纪录保留成一个数组
********************************
Dimrs_wawa
Setrs_wawa=CreateObject("ADODB.Recordset")
rs_wawa.Openstrsql,strconn,,1,1
wawa_Get_Rows=rs_wawa.GetRows()
rs_wawa.Close
Setrs_wawa=Nothing
EndFunction
EndClass
%>
<!--上面举个例子来讲明下面的谁人类怎样利用-->
<%
dimstrapp,strsql,strconn
strapp="employee"
strsql="SELECTEmployeeID,TitleOfCourtesy,FirstName,LastName,Title,CityFROMEmployees"
strconn="Driver={sqlserver};server=192.168.0.110;database=northwind;uid=sa;pwd=sa;"
setwawa_temp=newwawa_app_getrows
arr_wawa=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<%
Response.Write("<tablewidth=100%border=0cellspacing=1>")
Dimi,j,Rows,Flds
Rows=Ubound(arr_wawa,2)
Flds=Ubound(arr_wawa,1)
IfRows>=0Then
Fori=0ToRows
Response.Write("<tr>")
Forj=0toFlds
Response.Write"<td>"&arr_wawa(j,i)&"</td>"
Next
Response.Write("</tr>")
Next
Else
Response.Write("<tr><td>"&Rows&"</td></tr>")
EndIf
Response.Write("</table>")
%>
</p>强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|