表单参数的传送：选择网络安全色

编程思路：

网络安全色是指现在每一个用户浏览器中的颜色的三原色是由00，33，66，99，CC，FF组合而成的。

本实例通过表单提交，将用户所选择的网络安全颜色在浏览器中显示出来。

<%@ LANGUAGE = VBScript %>

<% Option Explicit %>

<%

Dim bgcolor, textcolor

'bgcolor 背景颜色

'textcolor 字体颜色

' 从Form表单中取得变量信息

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 len(bgcolor) = 6 Then

bgcolor = " BGCOLOR=#" & bgcolor

Else

bgcolor = ""

End If

If len(textcolor) = 6 Then

textcolor = " COLOR=#" & textcolor

Else

textcolor = ""

End If

%>

<TABLE BORDER="1" CELLSPACING="3" CELLPADDING="5"<%= bgcolor %>>

<TR>

<TD VALIGN="CENTER"><STRONG>

<FONT SIZE="6"<%= textcolor %>>你喜欢哪种颜色</FONT></STRONG></TD>

</TR>

</TABLE>

<FORM ACTION="colors.asp" METHOD="POST">

<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="3">

<TR>

<TD>&nbsp;</TD>

<TD ALIGN="center">红</TD>

<TD ALIGN="center">绿</TD>

<TD ALIGN="center">蓝</TD>

</TR>

<TR>

<TD>背景颜色:</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>字体颜色:</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="显示效果">

</FORM>