|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧onlytiancai[原作]
<!--为了进步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)
www.ckuyun.com
********************************
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>
转自:静态网制造指南www.ckuyun.comASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|