因为要写一个程序，要求标题的颜色可以自定义，所以就做了下面的这个过程， 过程很简单，只有一个参数，当传递参数的时候，默认为选中这个颜色。
不多废话了，直接上源码，希望对新手有点帮助~！
ASP/Visual Basic 代码
- <%
-
-
-
-
-
-
-
- Sub JTee_color(Selected)
- with response
- .write"<select name=""J_color"">"
- .write"<option value="""" selected>标题颜色</option>"
- If Selected<>"" Then
- .write"<option style=""background-color:"& Selected &";color:"& Selected &""" value="""& Selected &""" Selected>"& Selected &"</option>"
- End If
- .write"<option style=""background-color:#FF0000;color: #FF0000"" value=""#FF0000"">红色</option>"
- .write"<option style=""background-color:#FF33CC;color: #FF33CC"" value=""#FF33CC"">粉红</option>"
- .write"<option style=""background-color:#00FF00;color: #00FF00"" value=""#00FF00"">亮绿</option>"
- .write"<option style=""background-color:#00C600;color: #00C600"" value=""#00C600"">绿色</option>"
- .write"<option style=""background-color:#0000CC;color: #0000CC"" value=""#0000CC"">深蓝</option>"
- .write"<option style=""background-color:#FFFF00;color: #FFFF00"" value=""#FFFF00"">黄色</option>"
- .write"<option style=""background-color:#FF8000;color: #FF8000"" value=""#FF8000"">橙色</option>"
- .write"<option style=""background-color:#660099;color: #660099"" value=""#660099"">紫色</option>"
- .write"<option style=""background-color:#C0C0C0;color: #C0C0C0"" value=""#C0C0C0"">灰色</option>"
- .write"<option style=""background-color:#FF0080;color: #FF0080"" value=""#FF0080"">洋红</option>"
- .write"<option style="""" value="""">无色</option>"
- .write"</select>"
- End with
- End Sub
- %>
评论: 0 | 引用: 0 | 查看次数: 414 |
返回顶部
