http://nfex.ru/index.php?action=history&feed=atom&title=ASP.Net%2FComponents%2FTip_of_the_Day
ASP.Net/Components/Tip of the Day - История изменений
2026-04-29T17:30:14Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://nfex.ru/index.php?title=ASP.Net/Components/Tip_of_the_Day&diff=1936&oldid=prev
в 15:30, 26 мая 2010
2010-05-26T15:30:47Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 15:30, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://nfex.ru/index.php?title=ASP.Net/Components/Tip_of_the_Day&diff=1937&oldid=prev
Admin: 1 версия
2010-05-26T11:51:54Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Tip of the Day Demo (VB.net)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="csharp"><br />
<br />
<%--<br />
Code revised from <br />
ASP.NET Tips & Techniques (Paperback)<br />
by Greg Buczek <br />
<br />
# Publisher: McGraw-Hill/Osborne Media; 1st edition (May 21, 2002)<br />
# Language: English<br />
# ISBN: 0072225149<br />
--%> <br />
<br />
<br />
<%@ Page Language=VB Debug=true %><br />
<%@ Import Namespace="System.Data" %><br />
<%@ Import Namespace="System.Data.OLEDB" %><br />
<script runat=server><br />
Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)<br />
Dim DBConn as OleDbConnection<br />
Dim DBCommand As OleDbDataAdapter<br />
Dim DSPageData as New DataSet<br />
If Application("TipDate") <> Today() Then<br />
Application("TipDate") = Today()<br />
If Not Isnumeric(Application("TipNumber")) Then<br />
Application("TipNumber") = 1<br />
Else<br />
Application("TipNumber") = _<br />
Application("TipNumber") + 1<br />
End If<br />
End If<br />
DBConn = New OleDbConnection( _<br />
"PROVIDER=Microsoft.Jet.OLEDB.4.0;" _<br />
& "DATA SOURCE=" _<br />
& Server.MapPath _<br />
("TipDB.mdb;"))<br />
DBCommand = New OleDbDataAdapter _<br />
("Select TipTitle, TipText From Tips " _<br />
& "Where SequenceNumber = " _<br />
& Application("TipNumber"), DBConn)<br />
DBCommand.Fill(DSPageData, _<br />
"TheTip")<br />
If DSPageData.Tables("TheTip").Rows.Count = 0 Then<br />
Application("TipNumber") = 1<br />
DBCommand = New OleDbDataAdapter _<br />
("Select TipTitle, TipText From Tips " _<br />
& "Where SequenceNumber = " _<br />
& Application("TipNumber"), DBConn)<br />
DBCommand.Fill(DSPageData, _<br />
"TheTip")<br />
End If<br />
lblTipTitle.Text = _<br />
DSPageData.Tables("TheTip").Rows(0). _<br />
Item("TipTitle")<br />
lblTipText.Text = _<br />
DSPageData.Tables("TheTip").Rows(0). _<br />
Item("TipText")<br />
End Sub<br />
</SCRIPT><br />
<HTML><br />
<HEAD><br />
<TITLE>Tip of the Day</TITLE><br />
</HEAD><br />
<Body LEFTMARGIN="40"><br />
<form runat="server"><br />
<BR><BR><br />
<asp:label <br />
id="lblTitle" <br />
font-size="12pt"<br />
font-bold="True"<br />
font-name="Lucida Console"<br />
runat="server"<br />
text="Current Tip of the Day"<br />
/><br />
<BR><BR><br />
<asp:label <br />
id="lblTipTitle" <br />
font-size="10pt"<br />
font-name="Lucida Console"<br />
runat="server"<br />
/><br />
<BR><br />
<asp:label <br />
id="lblTipText" <br />
font-size="10pt"<br />
font-name="Lucida Console"<br />
runat="server"<br />
/><br />
</form><br />
</BODY><br />
</HTML><br />
<br />
</source><br />
<br />
<br />
<A href="http://www.nfex.ru/Code/ASPDownload/TipDB.zip">TipDB.zip( 8 k)</a></div>
Admin