Programalama > ASP

<%
rfdate=date
rfday=day (rfdate)
rfmonth= month (rfdate)
rfyear= year (rfdate)
response.write rfdate
%>
  <table border="0" cellspacing="0">
    <tr>
 <td><b><font size="1" face="Verdana">GÜN</font></b></td>
 <td><b><font size="1" face="Verdana"> AY</font></b></td>
 <td><b><font size="1" face="Verdana"> YIL</font></b></td>
    </tr>
    <tr>
      <td><select size="1" name="GUN">
<%
rfgun=1
Do While not rfgun=32
 IF rfday = rfgun THEN%>
          <option value="<%=rfgun%>" selected><%=rfgun%></option>
 <%ELSE%>
   <option value="<%=rfgun%>"><%=rfgun%></option>
 <%END IF
rfgun=rfgun+1
loop
%>
          </select></td>
      <td><select size="1" name="AY">
<%
rfay=1
Do While not rfay=13
 IF rfmonth = rfay THEN%>
          <option value="<%=rfay%>" selected><%=rfay%></option>
 <%ELSE%>
   <option value="<%=rfay%>"><%=rfay%></option>
 <%END IF
rfay=rfay+1
loop
%>
          </select></td>
      <td><select size="1" name="YIL">

<%
rfyil=rfyear-3      'üç yıl önceden başla
Do While not rfyil=rfyear+1      'bu yılda kal
 IF rfyear = rfyil THEN%>
          <option value="<%=rfyil%>" selected><%=rfyil%></option>
 <%ELSE%>
   <option value="<%=rfyil%>"><%=rfyil%></option>
 <%END IF
rfyil=rfyil+1
loop
%>
         </select></td>
  </tr>
</table>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.