Script Adı : Colors
Dili : İngilizce
Boyut: 1,1 Kb
Yapımcı: ASP 101
1-) Uygulamanın çalışabilmesi için herhangi bir veritabanı dosyası gerekmiyor.Uygulamayı çok kolay bir şekilde sunucunuza yükleyerek çalıştırabilirsiniz.Kodlarda bir takım isteğinize bağlı olarak yapabileceğiniz değişiklikleri size anlatacağız.
<!-- All the cool stuff is already done...Now we're just building the form -->
<FORM ACTION="colors.asp" METHOD="POST">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">
<TR>
<TD> </TD>
<TD ALIGN="center">Red</TD>
<TD ALIGN="center">Green</TD>
<TD ALIGN="center">Blue</TD>
</TR>
<TR>
<TD>Background Color:</TD>
<TD>
<select NAME="bg_red">
<OPTION><%= Request.Form("bg_red") %></OPTION><OPTION>00</OPTION><OPTION>33</OPTION><OPTION>66</OPTION><OPTION>99</OPTION><OPTION>CC</OPTION><OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="bg_green">
<OPTION><%= Request.Form("bg_green") %></OPTION><OPTION>00</OPTION><OPTION>33</OPTION><OPTION>66</OPTION><OPTION>99</OPTION><OPTION>CC</OPTION><OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="bg_blue">
<OPTION><%= Request.Form("bg_blue") %></OPTION><OPTION>00</OPTION><OPTION>33</OPTION><OPTION>66</OPTION><OPTION>99</OPTION><OPTION>CC</OPTION><OPTION>FF</OPTION>
</select>
</TD>
</TR>
<TR>
<TD>Text Color:</TD>
<TD>
<select NAME="text_red">
<OPTION><%= Request.Form("text_red") %></OPTION><OPTION>00</OPTION><OPTION>33</OPTION><OPTION>66</OPTION><OPTION>99</OPTION><OPTION>CC</OPTION><OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="text_green">
<OPTION><%= Request.Form("text_green") %></OPTION><OPTION>00</OPTION><OPTION>33</OPTION><OPTION>66</OPTION><OPTION>99</OPTION><OPTION>CC</OPTION><OPTION>FF</OPTION>
</select>
</TD>
<TD>
<select NAME="text_blue">
<OPTION><%= Request.Form("text_blue") %></OPTION><OPTION>00</OPTION><OPTION>33</OPTION><OPTION>66</OPTION><OPTION>99</OPTION><OPTION>CC</OPTION><OPTION>FF</OPTION>
</select>
</TD>
</TR>
</TABLE>
<INPUT TYPE="submit" VALUE="Colorize Me!">
</FORM>
Bu kodları kendi yaptığınız site içerisinde bir yere koyduktan sonra ve
<%
Dim bgcolor, textcolor
' Get values from form and paste together into 2 - 6 character strings
bgcolor = Request.Form("bg_red") & Request.Form("bg_green") & Request.Form("bg_blue")
textcolor = Request.Form("text_red") & Request.Form("text_green") & Request.Form("text_blue")
' If the strings aren't 6 characters long then ignore them
' This means that not all the pull downs in the group had values entered
If len(bgcolor) = 6 Then
bgcolor = " BGCOLOR=#" & bgcolor
Else
bgcolor = ""
End If
If len(textcolor) = 6 Then
textcolor = " COLOR=#" & textcolor
Else
textcolor = ""
End If
' Now all that's left is to show our colorful message which is mostly just HTML
%>
<TABLE BORDER="1" CELLSPACING="3" CELLPADDING="5"<%= bgcolor %>>
Bu kodları da siteye yerleştirdikten sonra uygulama sitenizin renklerinin değişmesini sağlayacaktır.
Unutmamanız gereken nokta tablo ve yazı kodlarınızda aşağıda göründüğü gibi değişikler yapmanız gerekmektedir:
<TABLE BORDER="1" CELLSPACING="3" CELLPADDING="5"<%= bgcolor %>>
<TR>
<TD VALIGN="CENTER"><STRONG><FONT SIZE="6"<%= textcolor %>>What color would you like today?</FONT></STRONG></TD>
</TR>
</TABLE>
1-) Uygulamanın çalışabilmesi için sunucunuzun ASP Tear destekli olması
gerekmektedir.Eğer sunucunuz ASP Tear desteklemiyorsa uygulama
çalışmayacaktır.
Uygulamanın çalışabilmesi için ASP Tear gerekmektedir.Ücretsiz sunucularda bu özellik bulunmadığı için ücretli sunucunuzda uygulamayı sorunsuz bir şekilde çalıştırabilirsiniz.
Dip Not: ASP Tear’ın yapımcısı olan http://www.alphasierrapapa.com/ComponentCenter/AspTear/ adresinden ASP Tear ile ilgili daha çok bilgi alabilirsiniz.
Bu yazı ASPindir.com tarafından Pcnet Dergisi için hazırlanmıştır...
Bu dökümanla ilgili yaşadığınız her türlü sorunu bize Pcnet forumlarında bulunan ASP bölümünden iletebilirsiniz.