ASP同学录设计asp+sql(五)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

ASP同学录设计asp+sql(五)   <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>无
    <option value="开心">开心
    <option value="忧伤">忧伤
    <option value="哭">哭
    <option value="微笑">微笑
    <option value="怀疑">怀疑
   </select>
   &nbsp&nbsp&nbsp&nbsp&nbsp
   <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

首页上一页 2 3 4 5 6 7 8 下一页尾页 5/14/14

ASP同学录设计asp+sql(五)由毕业论文网（www.huoyuandh.com）会员上传。