📄 glright.asp

📁 国内最早的在线客服系统源码.可以把访客变成自己的客户.是目前比较流行的在线客服系统
💻 ASP
字号:
<%response.expires=0%>
<script language="javascript" runat="server">
function dm(inputstr)
{
return unescape(inputstr);
}
</script>
<%
if session("0382")="" then
	response.end
end if
%>
<head>
<title>快狗管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body>
<%
'on error resume next
application.lock
onlineuser=application("onlineuser"&request("id"))
onlineinfo=split(application("info"),"|")
sitesums=ubound(onlineuser)
if sitesums<0 then
	response.write("<center><font color=#ff0000>现在还没有用户！</font>")
else
%>
<p align="center"><font color=#ff0000 size=+2>在线用户</font></p>
<table border="1" cellpadding="0" cellspacing="0" width="615" bordercolorlight="#000000" bordercolordark="#fdf0f0">
<tr>    
<td height="25" width="71" align="center" valign="center" bgcolor="#eeeeee">编号</td>   
<td height="25" width="83" align="center" valign="center" bgcolor="#eeeeee">昵称</td>   
<td height="25" width="67" align="center" valign="center" bgcolor="#eeeeee">是否站长</td> 
<td height="25" width="162" align="center" valign="center" bgcolor="#eeeeee">上站日期</td> 
<td height="25" width="162" align="center" valign="center" bgcolor="#eeeeee">前次发信息日期</td> 
<td height="25" width="25" align="center" valign="center" bgcolor="#eeeeee">工具</td></tr>
<%
	for i=0 to sitesums
		if onlineuser(i)<>"" then
		msg=split(onlineuser(i),"$")
		if i mod 2=0 then
			color="#eeeeee"
		else
			color="#ffffff"
		end if
%>
<tr>    
<td height="25" width="71" align="center" valign="center" bgcolor="<%=color%>"><%=msg(0)%></td>   
<td height="25" width="83" align="center" valign="center" bgcolor="<%=color%>"><%=msg(1)%></td>   
<td height="25" width="67" align="center" valign="center" bgcolor="<%=color%>"><%=msg(2)%></td> 
<td height="25" width="162" align="center" valign="center" bgcolor="<%=color%>"><%=msg(3)%></td> 
<td height="25" width="162" align="center" valign="center" bgcolor="<%=color%>"><%=msg(4)%></td> 
<td height="25" width="25" align="center" valign="center" bgcolor="<%=color%>">
<p align="center"><a href="javascript:if (confirm('真的要删除该用户吗？')){location.href='deleonlineuser.asp?id=<%=msg(0)%>&flag=<%=request("id")%>'}"><img border="0" src="../qqpic/menu.gif" width="16" height="16" alt="删除该用户"></a>
</td></tr>
<%
		end if
	next
end if
response.write("</table><br><center><a href=deleonlineuser.asp?id=all&flag="&request("id")&"><font color=#0000ff>清空所有在线用户</font></a></center>")
response.write("<hr>")
sitesums=ubound(onlineinfo)
response.write(sitesums)
for i=0 to sitesums
	response.write(dm(onlineinfo(i))&"<br>")
next
response.write("<br><center><a href=deleonlineuser.asp?id=info&flag="&request("id")&"><font color=#0000ff>清空在线信息队列</font></a></center>")
response.write("<br><center><a href=deleonlineuser.asp?id=old&flag="&request("id")&"><font color=#0000ff>清除过期用户</font></a></center>")
response.write(application("reftime"))
application.unlock
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -