ASP同学录设计asp+sql(一)毕业论文(5)
2013-05-29 01:14
导读：select name="mycolor" style="font-size:12px" % If Request("mycolor")="#000000" Then % option value="#000000" style="color:#000000" selected黑色/option % Else % option value="#000000" style="color:#0
<select name="mycolor" style="font-size:12px">
<% If Request("mycolor")="#000000" Then %>
<option value="#000000" style="color:#000000" selected>黑色</option>
<% Else %>
<option value="#000000" style="color:#000000" >黑色</option>
<% End If %>
<% If Request("mycolor")="#FF0000" Then %>
<option value="#FF0000" style="color:#FF0000" selected>红色</option>
<% Else %>
<option value="#FF0000" style="color:#FF0000" >红色</option>
<% End If %>
<% If Request("mycolor")="#FFFF00" Then %>
<option value="#FFFF00" style="color:#FFFF00" selected>黄色</option>
<% Else %>
<option value="#FFFF00" style="color:#FFFF00" >黄色</option>
<% End If %>
<% If Request("mycolor")="#3333FF" Then %>
<option value="#3333FF" style="color:#3333FF" selected>蓝色</option>
<% Else %>
<option value="#3333FF" style="color:#3333FF" >蓝色</option>
<% End If %>
</select>
表情:
<select name="myemote" style="font-size:12px">
<option value="无" selected>无
（转载自科教范文网http://fw.nseac.com）
<option value="
开心">开心
<option value="忧伤">忧伤
<option value="哭">哭
<option value="微笑">微笑
<option value="怀疑">怀疑
</select>
     
<a href="exit.asp" target="_top">离开聊天室</a>
</form>
<%
IF Request("say")<>"" Then
Dim say,mycolor,myemote,user_name
user_name=Session("user_name")
say=Server.HtmlEncode(Request("say"))
mycolor=Request("mycolor")
myemote=Request("myemote")
If myemote="无" Th
