<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%response.Write "<html><head><title>网络会议中心</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head>"
if request("action")="del" then
  NCID=request("NCID"):if WS_S.HX_ISNUM(NCID) then  conn.execute("delete from HX_NetChatRecord where WS_NCID="&NCID)
  WS_S.HX_Redirect "hxnetchat.asp"
end if
Call WS_S.HX_OutUserInfo(loginuid)
select case Request.Form("op")
case 1:Application("MeetingBegin")=1:Application("title")="" & request("MeetingName"):Application("msg")="":Application("num")=0:Application("build")=loginuid
case 2
   if (Application("MeetingBegin")) then
    mmessage="加入会议中心。": Session("isin")=1:Application("num")=Application("num")+1
	Application.lock	    
		Application("msg")="<font color=blue>"&OutName&"："&"</font>"&mmessage&"<br>"&Application("msg")
		if len(Application("msg"))>2000 then Application("msg")= Application("msg").substr(0,1000)
	Application.UnLock
	Session("sendd")=1
	else
	 Session("isin")=0
	end if
case 4
	if (Application("MeetingBegin")) then
	mmessage="" & Request.Form("message")
	if (mmessage="") then mmessage="——我保持沉默——"
	Application.lock
		Application("msg")="<font color=blue>"&OutName&"："&"</font>"&mmessage&"<br>"&Application("msg")
		if len(Application("msg"))>2000	then	Application("msg")= Application("msg").substr(0,1000)
	Application.UnLock
	Session("sendd")=1
	else
	 Session("isin")=0
	end if
case 5:Application("msg")="":Session("sendd")=1
case 6:Session("isin")=0:Application("num")=Application("num")-1:Session("sendd")=0
case 7:Application("MeetingBegin")=0:Session("isin")=0:Application("num")=0:Session("sendd")=0
case 8:sql="insert into HX_NetChatRecord(WS_NetChatRecordTitle,WS_NetChatRecordContent,WS_NetChatRecordUid,WS_NetChatRecordDate) values('" &Application("title")&"','"&Application("msg")&"','"&loginuid&"',#"&now&"#)"
	Response.Write("<FONT COLOR='red'>会议记录保存完毕!</FONT>")
	if Application("title")<>"" then conn.Execute(sql)
	Application("msg")="":Application("title")=""
end select
if (Application("MeetingBegin")<>1)  then
response.Write "<body topmargin='100' leftmargin='50' bottommargin='0' "
if (Session("sendd")=1) then response.Write "OnLoad='javascript:document.all.form1.message.focus'"
response.Write ">"
  if WS_S.MemberPriv("WS_InfoChangeNetChatFlag")=1 then
    if (Application("build")=loginuid) then response.Write "<form method='post' action='hxnetchat.asp'><input type='submit' name='Submit3' value='保存会议记录' class=css0 ><input type='hidden' name='op' value=8 ></form>":Application("build")="":Response.End
	response.Write "<table width='500' border='0' cellspacing='1' cellpadding='5' align='center' bgcolor='#613c25'><form method='post' action='hxnetchat.asp'><tr bgcolor='#BF9B73'><td width='98'><font color='#FFFBE8'>会议名称：</font></td><td width='260'><input type='text' name='MeetingName'  maxlength='40' size='40' class='css0'></td><td width='120'><input type='submit' name='Submit22' value='开始会议'  class='css0'><input type='hidden' name='op' value=1 ></td></tr></form></table><br><table width='500' border='0' cellspacing='1' cellpadding='5' align='center' bgcolor='#613c25'><tr bgcolor='#BF9B73' class='td4'><td width='39'><div align='center'>序号</div></td><td width='94'><div align='center'>会议名称</div></td><td width='181'><div align='center'>内容</div></td><td width='71'><div align='center'>保存时间</div></td><td width='59'><div align='center'>操作</div></td></tr>"
  Tablename="HX_NetChatRecord"
  Orderby=" where WS_NetChatRecordUid="&loginuid
  set rs=WS_S.HX_SetRSD("",Tablename,Orderby) 
  if rs.recordcount<=0 then
   response.write "<tr bgcolor='#FFFBE8'><td colspan='5' bgcolor='#FFFBE8' align=center>暂无记录！</td></tr>"
  else
     do until rs.eof
     response.Write "<tr bgcolor='#FFFBE8'><td bgcolor='#FFFBE8'><div align='center'>"&rs("WS_NCID")&"</div></td><td>"&rs("WS_NetChatRecordTitle")&"</td><td>"&rs("WS_NetChatRecordContent")&"</td><td bgcolor='#FFFBE8'><div align='center'>"&rs("WS_NetChatRecordDate")&"</div></td><td bgcolor='#FFFBE8'><div align='center'><a href='?action=del&NCID="&rs("WS_NCID")&"'>删除</a></div></td></tr>"
     rs.movenext
	 loop
  end if
  response.write "</table>" 
  Response.End()
 else
   HX_Gback "现在没有任何会议在召开！您没有发起会议的权限！",""
 end if
end if
if (Session("isin")<>1) then 
  response.Write "<body topmargin='100' leftmargin='0' bottommargin='0' "
  if (Session("sendd")=1) then response.Write "OnLoad='javascript:document.all.form1.message.focus'"
  response.Write "><table width='500' border='0' align='center' cellpadding='5' cellspacing='1' bgcolor='#613c25'><form method='post' action='hxnetchat.asp'><tr bgcolor='#FFFBE8'><td width='122' bgcolor='#BF9B73'><font color='#FFFBE8'>会议名称：</font></td><td width='355'>"&(Application("title"))&"</td></tr><tr bgcolor='#FFFBE8'><td bgcolor='#BF9B73'><font color='#FFFBE8'>会议发起人：</font></td><td>"
  Call WS_S.HX_OutUserInfo((Application("build"))):response.Write OutName
  response.Write "</td></tr><tr bgcolor='#FFFBE8'><td bgcolor='#BF9B73'><font color='#FFFBE8'>会场人数：</font></td><td>"&(Application("num"))&"</td></tr><tr bgcolor='#FFFBE8'><td bgcolor='#BF9B73'><font color='#FFFBE8' >你的姓名：</font></td><td><input type='text' name='UserName' value='"
  Call WS_S.HX_OutUserInfo(loginuid):response.Write OutName
  response.Write "' maxlength='40' size='40' class='css0' ></td></tr><tr bgcolor='#BF9B73'><td>&nbsp;</td><td><input type='submit' name='Submit2' value='进入会场'  class='css0'><input type='hidden' name='op' value=2 ></td></tr></form></table>"
end if 
if Session("isin")=1 then
  response.Write "<body topmargin='0' leftmargin='0' bottommargin='0' "
  if Session("sendd")=1 then response.Write "OnLoad='javascript:document.all.form1.message.focus'"
  response.Write "><table border='0' cellspacing='1' cellpadding='1' bgcolor='#613c25' width='100%' height='100%' align='center'><tr><td  align='left' height='20' width='556' bgcolor='#BF9B73'><b>会议主题</b>：<font color='#0000FF'>"&Application("title")&"</font></td><td align='left' width='227' height='20' bgcolor='#BF9B73'><b>会场人数</b>：<font color='#0000FF'>"&(Application("num"))&"</font></td><td  align='left' width='180' height='20' bgcolor='#BF9B73'><b>发言人</b>：<font color='#0000FF'>"
  Call WS_S.HX_OutUserInfo(loginuid):response.Write OutName
  response.Write "</font></td></tr><tr><td  align='right' valign='top' colspan=3 bgcolor='#FFFBE8'><iframe name=chat frameborder='no' width=100% height=100% src='chattext.asp'></iframe></td></tr><form method='post' name= 'form1' action='hxnetchat.asp'><tr valign='top' bgcolor='#BF9B73'><td   height='24' align='left' valign='middle' colspan=3><b>我要发言</b>：<input type='text' name='message' maxlength='400' size='44' onFocus=this.select() onMouseOver=this.focus()> <input type='submit' name='Submit' value='发言' class=css0 OnClick='vbscript:Document.all.form1.op.value=4'>"
  if (Application("build")=loginuid) then response.Write " <input type='submit' name='Submit3' value='清除' class=css0  OnClick='vbscript:Document.all.form1.op.value=5'>"
  response.Write " <input type='submit' name='Submit3' value='退出' class=css0 OnClick='vbscript:Document.all.form1.op.value=6'>"
  if (Application("build")=loginuid) then response.Write " <input type='submit' name='Submit3' value='结束会议' class=css0 OnClick='vbscript:Document.all.form1.op.value=7'>"
  response.write " <input type='hidden' name='op' value=4></td></tr></form></table>"
end if %>