📄 hxnetchat.asp
字号:
<!--#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='#115F8F'><form method='post' action='hxnetchat.asp'><tr bgcolor='#A1BBE0'><td width='98'><font color='#FFFFFF'>会议名称：</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='#115F8F'><tr bgcolor='#A1BBE0' 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='#FFFFFF'><td colspan='5' bgcolor='#FFFFFF' align=center>暂无记录！</td></tr>"
else
do until rs.eof
response.Write "<tr bgcolor='#FFFFFF'><td bgcolor='#FFFFFF'><div align='center'>"&rs("WS_NCID")&"</div></td><td>"&rs("WS_NetChatRecordTitle")&"</td><td>"&rs("WS_NetChatRecordContent")&"</td><td bgcolor='#FFFFFF'><div align='center'>"&rs("WS_NetChatRecordDate")&"</div></td><td bgcolor='#FFFFFF'><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='#115F8F'><form method='post' action='hxnetchat.asp'><tr bgcolor='#FFFFFF'><td width='122' bgcolor='#A1BBE0'><font color='#FFFFFF'>会议名称：</font></td><td width='355'>"&(Application("title"))&"</td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#A1BBE0'><font color='#FFFFFF'>会议发起人：</font></td><td>"
Call WS_S.HX_OutUserInfo((Application("build"))):response.Write OutName
response.Write "</td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#A1BBE0'><font color='#FFFFFF'>会场人数：</font></td><td>"&(Application("num"))&"</td></tr><tr bgcolor='#FFFFFF'><td bgcolor='#A1BBE0'><font color='#FFFFFF' >你的姓名：</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='#A1BBE0'><td> </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='#115F8F' width='100%' height='100%' align='center'><tr><td align='left' height='20' width='556' bgcolor='#A1BBE0'><b>会议主题</b>：<font color='#0000FF'>"&Application("title")&"</font></td><td align='left' width='227' height='20' bgcolor='#A1BBE0'><b>会场人数</b>：<font color='#0000FF'>"&(Application("num"))&"</font></td><td align='left' width='180' height='20' bgcolor='#A1BBE0'><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='#FFFFFF'><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='#A1BBE0'><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 %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -