|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。程序|缓存|功能<!--蛙蛙保举:巧用缓存进步asp程序的功能-->
<!--为了进步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="xinwendongtai"
strsql="selecttop5id,titlefromwenwherelei=161orderbyiddesc"
strconn="Driver={sqlserver};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
setwawa_temp=newwawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<tablewidth="100%"border="0"cellspacing="1">
<%Ifubound(arr_xinwendongtai)0Then%>
<%fori=0toubound(arr_xinwendongtai,2)-1%>
<tr>
<td><ahref="view.asp?id=<%=arr_xinwendongtai(0,i)%>"><%=arr_xinwendongtai(1,i)%></a></td>
</tr>
<%next%>
<%Else%>
<tr>
<td>还没有旧事呢</td>
</tr>
<%EndIf%>
</table>
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|