|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。利用ASP便利的创建本人网站的逐日更新
逐日更新是甚么东东我想人人也都应当晓得把,
实在有点象如今良多旧事网站的更新,上面先容怎样让你的
网站的内容天天主动更新
上面的代码合用于:
1.利用任何ODBC兼容的数据库
2。很便利的拔出到你现有的ASP程序中
怎样保留更新内容呢?
数据库布局:(一共三个字段)
QuoteID(Long),Quote(String),Author(String)
上面一个技能是怎样让更新显现在恣意一个页面上呢?
我们只需把更新内容和作者当前往值送给挪用的页面便可。
代码以下,个中logic是一个随机数,暗示随机从数据库中显现哪一个纪录:
<%
SubGetQuote(byValstrQuote,byvalstrAuthor)
DimintMaxID
DimintRecordID
dimstrSQL
DimoConn
DimoRS
setoConn=Server.CreateObject("ADODB.Connection")
oConn.Open"Database=mydb;DSN=Quotes;UID=sa;Password=;"
strSQL="SELECTMaxID=max(QuoteId)fromQuotes"
SetoRS=oConn.Execute(strSQL)
IfoRS.EOFThen
strQuote="站长太懒了,明天没有更新内容."
strAuthor="呵呵"
ExitSub
Else
intMaxID=oRS("MaxID")
EndIf
Randomize
intRecordID=Int(Rnd*intMaxID)+1
strSQL="Select*fromquoteswhereQuoteID="&intRecordID&";"
SetoRS=oConn.Execute(strSQL)
IfoRS.EOFThen
strQuote="站长太懒了,明天没有更新内容."
strAuthor="呵呵"
ExitSub
Else
oRS.MoveFirst
strQuote=oRS("Quote")
strAuthor=oRS("Author")
EndIf
oRS.Close
oConn.Close
SetoRS=Nothing
setoConn=Nothing
EndSub
%>
实在在程序中假如利用一个嵌套的SQL可以进步功能,比方如许
Select*fromQuoteswhereQuoteID=(Selectint(RND*Max(QuoteID))fromQuotes);
但是成绩是有些数据库的随机数函数是RAND而不是RND,
假如如果你本人用的话,那固然可使用这句话取代我下面先容的办法,
可别忘了,如果他人的数据库不撑持RAND怎样办,呵呵。
再说了,如今是在讲ASP手艺,而不是在讲SQL手艺,呵呵。
如今我们将下面的代码保留到一个名叫quotes.inc的文件中来,
上面就举一个怎样挪用它的例子把:
<HTML>
<HEAD>
<TITLE>例子</TITLE>
<!--#includevirtual="quotes.inc"-->
</HEAD>
<BODY>
<BR><BR>
<%
DimstrQuote
DimstrAuthor
GetQuote(strQuote,strAuthor)
%>
<TABLEBORDER=0CELLPADDING=6CELLSPACING=5BGCOLOR="#000000"WIDTH=500>
<TRBGCOLOR="#CCCCCC">
<TDALIGN=CENTER>
<B>"<%=strQuote%>"<BR>--<I><%=strAuthor%></I></B>
</TD>
</TR>
</TABLE>
<BR><BR>
</BODY>
</HTML>
实在你能够再增强点它的功效:
1.能够在子过程当中给前往的字符串带上格局,如许显现会加倍大度
2。将这个代码做成一个组件来挪用
3。利用一个文本文件来取代数据库
4。将SQL放到存储过程当中往
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 |
|