📄 webicq.asp

📁 网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理公文车辆通知档案值班人事审批仓库主界面软件下载个人办公室

💻 ASP

字号:

<!--#include file="../config/config.asp"-->
<%Response.Expires=0
useronlinename=Application("hxf_c_useronlinename")
nickname=Session("hxf_u_nickname")
if nickname=""  then  Response.Redirect "../error.asp?id=440"
who=Trim(Request.QueryString("who"))
if who="" then who=nickname
show=Split(Trim(useronlinename)," ",-1)
x=UBound(show)
%>
<html>
<head>
<title>在线呼叫</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function check(){if(document.forms[0].intro.value==""){alert("消息内容不能为空！");return false;}document.forms[0].Submit.disabled=1;return true;}
</script>
</head>
<body oncontextmenu=self.event.returnValue=false bgcolor=#000000 leftmargin="0" topmargin="0">
<table width="100%" border="0" height="100%">
<tr>
<td>
<table width=350 border=1 align=center cellspacing=0 bordercolorlight=000000 bordercolordark=FFFFFF bgcolor=E0E0E0>
<tr valign="top"> 
<td> 
<table border=0 bgcolor=#3399FF cellspacing=0 cellpadding=2 width=344>
<tr> 
<td width=326><font color=FFFFFF face=Wingdings>*</font><font color=FFFFFF>发送 Web ICQ 消息</font></td>
<td width=18> 
<table border=1 bordercolorlight=666666 bordercolordark=FFFFFF cellpadding=0 bgcolor=E0E0E0 cellspacing=0 width=18>
<tr> 
<td width=16><b><a href="javascript:window.close()" onMouseOver="window.status='';return true" onMouseOut="window.status='';return true" title="退出"><font color="000000">×</font></a></b></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" bordercolorlight="#999999" bordercolordark="#FFFFFF" bgcolor="FFFFFF" cellpadding="0">
<tr valign="middle" align="center"> 
<td class=p9>
<table width="100%" border="0" cellpadding="3">
<tr align="center"> 
<td width="25%" bgcolor="#000000"><font color="FFFFFF">发送消息</font></td>
<td width="25%" bgcolor="E0E0E0"><a href=webicqlist.asp><font color="black">消息列表</font></a></td>
<td width="25%">&nbsp;</td>
<td width="25%">&nbsp;</td>
</tr>
</table>
<table width="100%" border="1" height="200" cellspacing="0" cellpadding="5" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="E0E0E0">
<form method="post" action="webicqsend.asp" onsubmit='return(check());'>
<tr>
<td> 
<div align="center"><font color="#FF0000">消息的长度必须小于1024字符<br>
</font><br>
</div>
<table border="0" align="center">
<tr> 
<td>对象：</td>
<td> 
<select name="towho"><%for i=0 to x%>
<%
if Application("hxf_c_disnewuser")=1 or show(i)<>lyy then
x=x+1
%>
<option value="<%=show(i)%>"<%if CStr(show(i))=CStr(who) then Response.Write " selected"%>><%=show(i)%></option>
<%end if%><%next%></select>　共 <font color=red><%=x%></font> 人 (ALT+S=发送)
</td>
</tr>
<tr> 
<td>消息：</td>
<td> 
<textarea name="intro" cols="40" rows="5"></textarea>
</td>
</tr>
<tr> 
<td colspan="2" align="center"> 
<input type="submit" name="Submit" value="发送" accesskey='s'>
<input type="reset" value="重写">
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -