send.asp

一个VB做的语音系统控件

                  <option value="#006600">墨绿深沉</option>
                  <option value="#333333">灰色轨迹</option>
                  <option value="#999999">伦敦灰雾</option>
                </select>
                </span> <span title=" 改变您的说话时的表情（Alt+Q）！" > 
                <select accesskey="q"  name=userface style="FONT-SIZE: 9pt;width:65px" size="1">
                  <option value="" selected>表情</option>
                  <option value="微微笑">微笑</option>
                  <option value="温柔地">温柔</option>
                  <option value="红着脸">脸红</option>
                  <option value="摇头晃脑得意地">得意</option>
                  <option value="哈！哈！哈！笑着">大笑</option>
                  <option value="神秘兮兮地">神秘</option>
                  <option value="战战兢兢地">战兢</option>
                  <option value="毛手毛脚地">毛手</option>
                  <option value="嘟着嘴地">嘟嘴</option>
                  <option value="慢条斯理地">慢条</option>
                  <option value="同情地">同情</option>
                  <option value="幸灾乐祸地">乐祸</option>
                  <option value="快要哭地">快哭</option>
                  <option value="哭着">哭</option>
                  <option value="拳打脚踢地">拳打</option>
                  <option value="不怀好意地">坏意</option>
                  <option value="遗憾地">遗憾</option>
                  <option value="瞪大了眼睛，很诧异地">诧异</option>
                  <option value="幸福地">幸福</option>
                  <option value="翻箱倒柜地">翻箱</option>
                  <option value="悲痛地">悲痛</option>
                  <option value="正义凛然地">正义</option>
                  <option value="严肃地">严肃</option>
                  <option value="生气地">生气</option>
                  <option value="大声地">大声</option>
                  <option value="傻乎乎地">傻</option>
                  <option value="很满足地">满足</option>
                  <option value="手足无措地">无措</option>
                  <option value="很无辜地">无辜</option>
                  <option value="喃喃自语地">自语</option>
                  <option value="恶狠狠地瞪着眼">瞪眼</option>
                  <option value="快要吐地">想吐</option>
                  <option value="无精打采地">无采</option>
                  <option value="依依不舍地">不舍</option>
                  <option value="口吐白沫">白沫</option>
                  <option value="有气无力地">无力</option>
                  <option value="无可奈何地">无奈</option>
                  <option value="可怜兮兮地">可怜</option>
                </select>
                </span> 
               <select name='addsign' onChange="document.say.saytemp.value=this.value;this.options[0].selected=true;" style='font-size:12px'>
                 <option value="" selected>动作</option>
                 <option value="//蹑手蹑脚地溜到%%背后，掏出一把大锤子，嘿嘿......">偷偷</option>
                 <option value="//对着%%狠狠的一锤当头敲下,微笑道：“%%，你给我发呆去吧！”">锤子</option>
                 <option value="//从天上召来一道闪电把%%化为一堆灰烬。">灰烬</option>
                 <option value="//结结巴巴地跟%%道歉“实在是对不住，我下次再也不敢了。”">道歉</option>
                 <option value="//和%%正邪恶地笑着,八成同时想到什么坏事头上。">坏事</option>
                 <option value="//对%%小声嘀咕：“君子报仇，十年不晚，五年后再来找你。”">报仇</option>
                 <option value="//看着%%偷偷直乐，幸灾乐祸地说道：活该。">活该</option>
                 <option value="//笑呵呵地对%%抱拳打揖“久仰阁下大名，如雷灌耳，今日相见，三生有幸！”">久仰</option>
                 <option value="//热情地地向%%叫了声：“嗨，你好”">招呼
                 <option value="//依依不舍地对%%说道：“各位，我有事要先走了，咱们后会有期！”">离开
                 <option value="//对着%%[img]dz19.gif[/img]拍手叫好。">叫好
                 <option value="//迎风傲立船首，望滚滚江水东逝，仰天长啸“古往今来多英杰，中游击橹几轮回？”">长啸
                 <option value="//不由得十分佩服地叹道：“普天之下，茫茫苍穹[img]dz12.gif[/img]还有谁能与%%争锋啊？”">佩服
                 <option value="//觉得天下英雄舍我其谁？">英雄
                <option value="//非常同意%%的讲法！">同意
               </select>   
			                <select name="orderid" size="1" onchange="toorder(this.value);this.options[0].selected=true;">
                  <option value="0">常用命令</option>
                  <option value="1">名单刷新</option>
                  <option value="2">保存点数</option>
                  <option value="3">房间列表</option>
                  <option value="4">清除屏幕</option>
                  <option value="5">意见留言</option>
                  <option value="6">本人状态</option>
                  <option value="7">更改头像</option>
				  <option value="8">踢出人员</option>
				  <option value="9">断麦功能</option>
				  
                </select>
                <select name="temp_color1" onchange="toorder(this.value);this.options[0].selected=true;">
                  <option>聊天风格</option>
                  <option value="40"> 默   认</option>
                  <option value="41">黄色大方</option>
                  <option value="42">红色奔放</option>
                  <option value="43">绿色典雅</option>
                  <option value="44">兰色清新</option>
                </select>
                <select name="tempcolor" onchange="toorder(this.value);this.options[0].selected=true;">
                  <option>背景</option>
                  <option value="20" STYLE="background-color:#FBE7DB">淡橙</option>
                  <option value="21" STYLE="background-color:#ffeaea">粉红</option>
                  <option value="22" STYLE="background-color:#FCF8E2">乳黄</option>
                  <option value="23" STYLE="background-color:#eaffea">浅绿</option>
                  <option value="24" STYLE="background-color:#effaff">淡青</option>
                  <option value="25" STYLE="background-color:#f2f2ff">浅紫</option>
                  <option value="26" STYLE="background-color:#eaeaff">蓝紫</option>
                  <option value="27" STYLE="background-color:#f2f2f2">银灰</option>
                  <option value="28" STYLE="background-color:#ffffff">白色</option>
                  <option value="29" STYLE="background-color:#eeeeff">默认</option>
                </select>
                <input type="checkbox" name="ws" id="ws" accesskey="m" value="1" onclick="if(document.say.T.value=='大家'){alert('不可以对大家私聊！');this.checked=false}">
                <label for=ws >私聊</label>
<input accesskey="a" type="checkbox" name="as" checked onClick="parent.pub.scrollit();parent.my.scrollit();document.say.says.focus();">
                <a  onClick=moveself(); title=" “激活/禁止”对话区自动滚屏（Alt+A）！">滚屏</a> 
              </div>
            </td>
          </tr>
        </table>
      </form>
    </td>
    <td align="left" nowrap width="141"><object id="FrmMain"
classid="CLSID:36E57976-1785-4FDA-A607-8EA4E106DC5F"
codebase="RuiXun_Vchat.CAB#version=1,0,0,0">
      </object> 
      <script language="vbscript">
  if not isobject(FrmMain) then
     msgbox "您未成功安装客户端控件！"
  else
    FrmMain.ConnectServer="<%=username&"#"&application("Host")&"#"&application("Port")&"#"&room_id%>"
  end if
</script>
    </td>
  </tr>
</table>                      
<script>                          
write('#eeeeff');
parent.pri.document.location.href='userlist.asp';
parent.top1.document.location.href='reload.asp';                    
</script>
</body>                                  
</html>                            
<%
  set rs=nothing
  call db_close()%>