计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

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>
   &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
上一篇:ASP客户关系管理系统(一)毕业论文 下一篇:没有了