⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 kuaig.asp

📁 一个不错的OA 全部源码 可以二次开发 绝对不错 都下吧
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@ LANGUAGE = VBScript %>
<%response.expires=0%>
<!--#include file="conn.asp"-->
<%
'session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn
'if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'if dbsort="accessdsn" then conn.Open "DSN=" & DBPath
'if dbsort="access" then conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath 
'if dbsort="sqlserver" then conn.Open "DSN=" & DBPath & ";uid=wsw;pwd=wsw"
DBPath1=server.ma<%@ LANGUAGE = VBScript %>
<%Response.Expires=0%>
<!--#include file="error.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")

if oabusyusername="" then
	session.abandon
	response.write("<script language=""javascript"">")
	response.write("window.close();")
	response.write("</script>")
	Response.End
end if
%>
<!--#include file="function.asp"-->
<html>
<head>
<title>OA系统即时通信工具</title>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="expires" content="web,26 Feb 1960 08:21:57 GMT">
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#ffffff"  scroll=no leftmargin="0" topmargin="0">
<script language="javascript">
<!--hide
var y;//页面位置
var randtime;
var ok=null;
var listtimeid=null;
var winhandle=null;
randtime=0;
y=0;

function sx()
{
	if (opener.closed)
		{
			window.open('lostuser.asp','lostwin','location=no,height=10, width=10, top=600, left=10,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no');
			window.close();
		}
	if (refflag.value=="1" && dispinfoflag.value=="0")
		{
			if (pageflag.value=="1")
			{
				listflag.value="0";
				parent("dispuserwin").location.href="disp_online_user.asp";
			}
			else if (pageflag.value=="0")
			{	
				listflag.value="0";
				parent("dispuserwin").location.href="disp_online_manager.asp?sitenumber="+sitenumber.value;	
			}
			else
			{
				listflag.value="0";
				parent("hiddenwin").location.href="disp_online_user.asp?sitenumber="+sitenumber.value;
			}
			listtime();
		}
	ok=setTimeout("sx()",15000+randtime*1000);
	randtime=parseInt(Math.random() * 10);
}

function window_onload()
{
	sx();
}

function listtime()
{
if (listflag.value=="1")
	{
		if (pageflag.value=="1" && dispinfoflag.value=="0")
			listonlineuser();
		else if (dispinfoflag.value=="0")
			disp_get_info();
		clearTimeout(listtimeid);
	}
else
	listtimeid=setTimeout("listtime()",1);
}

function listonlinehead(title)
{
if (dispinfoflag.value=="0")
	disp_get_info();
window("dispuserwin").document.write("<html>");
window("dispuserwin").document.write("<head>");
window("dispuserwin").document.write("<title>"+title+"</title>");
window("dispuserwin").document.write("<meta http-equiv=\"pragma\" content=\"no-cache\">");
window("dispuserwin").document.write("<meta http-equiv=\"expires\" content=\"web,26 Feb 1960 08:21:57 GMT\">");
window("dispuserwin").document.write("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=gb2312\">");
window("dispuserwin").document.write("<style type=\"text/css\">");
window("dispuserwin").document.write("<!--");
window("dispuserwin").document.write("body {  font-family: \"宋体\"; font-size: 9pt;}");
window("dispuserwin").document.write("td {font-family:\"宋体\";font-size:9pt;}");
window("dispuserwin").document.write("-->");
window("dispuserwin").document.write("</style>");
window("dispuserwin").document.write("</head>");
window("dispuserwin").document.write("<body bgcolor=\"#0099FF\" text=\"#000000\" leftmargin=\"0\" topmargin=\"2\">");
}

function listonlineuser()
{
window("dispuserwin").document.open();
listonlinehead("本站在线用户");
var userinfostr,userinfodim,i,dimsums,infstr,onlineflag,onlinedate,onlineflag,okcode;
onlineflag=0;
userinfostr=onlineuser.value;
if (userinfostr.length==0)

{
	refflag.value=0;
}
else
{
	window("dispuserwin").document.write("<table border='0' bgcolor='#0099FF' width='100%'>");
	userinfodim=userinfostr.split("|");
	for (i in userinfodim)
	{	
		if(userinfodim[i]!="")
		{
		infstr=userinfodim[i].split("$");
		window("dispuserwin").document.write("<tr>");
		if (infstr[0]==usersessionid.value && infstr[2]=="0")
		{
			window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#0066FF';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#0099FF';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\""+infstr[3]+"上线\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16>&nbsp;"+infstr[1]+"</td>");
			onlineflag=1;
		}
		else if (infstr[0]==usersessionid.value && infstr[2]=="2")
		{
			window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#0066FF';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#0099FF';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\""+infstr[3]+"上线(注册用户)\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16>&nbsp;<font color=#e8e8e8>"+infstr[1]+"</font></td>");
			onlineflag=1;
		}
		else if (infstr[2]=="2")
		{
			window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#0066FF' this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#0099FF';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\""+infstr[3]+"上线(注册用户)\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16>&nbsp;<font color=#e8e8e8>"+infstr[1]+"</td>");
		}
		else if (infstr[2]=="0")
			window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#0066FF';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#0099FF';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\""+infstr[3]+"上线\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16>&nbsp;"+infstr[1]+"</td>");
		else
		{
			window("dispuserwin").document.write("<td width='100%' height='20' ONMOUSEOVER=\"this.bgColor='#0066FF';this.style.cursor='hand';\" ONMOUSEOUT=\"this.bgColor='#0099FF';\" ONCLICK=\"parent.clickdo('"+infstr[0]+"','"+infstr[1]+"','"+infstr[5]+"')\" title=\""+infstr[3]+"上线(站长)\"><img src='../qqpic/face/face"+infstr[5]+".gif' height=16 width=16>&nbsp;<font color=#ffff00>"+infstr[1]+"</font></td>");
			if (infstr[0]==usersessionid.value)
				onlineflag=1;
		}
		window("dispuserwin").document.write("</tr>");
		}
	}
window("dispuserwin").document.write("</table>");
refflag.value=onlineflag;
}
window("dispuserwin").document.write("</body></html>");
window("dispuserwin").document.close();
reset_win_site();
}

function reset_win_site()
{
	screeny=window("dispuserwin").document.body.scrollHeight;
	y=removewin.value;
	if (screeny<y)
	{
	y=0;
	removewin.value=y;
	}
	window("dispuserwin").scroll(1,y);
}

//收信息
function disp_get_info()
{
var i,getinfostr,getinfodim,infstr;
getinfostr=getinfo.value;
if (getinfostr.length>0)
{
	getinfodim=getinfostr.split("|");
	for (i in getinfodim)
	{
		if (getinfodim[i]!="")
		{
			infstr=getinfodim[i].split("$");
			history.value=getinfodim[i]+"|"+history.value;
			urlstr="get_info_win.asp?id="+infstr[1]+"&yhm="+infstr[4]+"&sitemc="+infstr[2]+"&url="+infstr[3]+"&infostr="+infstr[5];
			infowin=window.open(urlstr,'','height=245,width=355,toolbar=no,scrollbars=no,resizable=0,menubar=no');
			
		}
	}
}
getinfo.value="";
}

//关闭窗口
function closewindow()
{
	if (winhandle!=null)
		if (!winhandle.closed)
			winhandle.close();
	window.open('lostuser.asp','lostwin','location=no,height=10, width=10, top=600, left=10,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no');
	window.close();
}

function clickup()
{
if (pageflag.value!="1" && dispinfoflag.value=="0")
{
	listflag.value="0";
	listtime();
	window("dispuserwin").location.href="disp_online_user.asp?sitenumber="+sitenumber.value;
	pageflag.value="1";
	refflag.value="1";
}
}

function changeface()
{
window.open('changeface.asp','facewindow','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=302,height=330');
}

function sendsms()
{
	window.open('../sendsms.asp','smswin','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=620,height=350');
}

function talk_face()
{
	winhandle=window.open('../newface/talkface.htm','talkface','toolbar=no,scrollbars=no,resizable=0,menubar=no,width=360,height=279');
	dispinfoflag.value="1";
}

function gohomepage()
{
var urlmc;
urlmc="../default.htm";
window.open(urlmc,'','toolbar=yes,scrollbars=yes,status=yes,resizable=1,menubar=yes,location=yes,width=600,height=400');
}

function clickdo(number,name,facenumber)
{
if (dispinfoflag.value=="0")
	sendwin=window.open('send_info_win.htm',number,'height=245,width=355,toolbar=no,scrollbars=no,resizable=0,menubar=no');
else
{
	winhandle.userid.value=number;
	winhandle.userlist.document.close();
	winhandle.talkinfo.value="对"+name+"说：";
	winhandle.info.focus();
}
}

//-->
</script>
<SCRIPT language=javascript>
<!--
if (window.Event) 
　document.captureEvents(Event.MOUSEUP); 
 
function nocontextmenu() {
 event.cancelBubble = true
 event.returnvalue = false;
 return false;
}
 
function norightclick(e) {
 if (window.Event) {
　if (e.which == 2 || e.which == 3)
　 return false;
 } else if (event.button == 2 || event.button == 3) {
　 event.cancelBubble = true
　 event.returnvalue = false;
　 return false;
 } 
}
 
document.oncontextmenu = nocontextmenu;　// for IE5+
document.onmousedown = norightclick;　　 // for all others
//-->
</SCRIPT>
</head>
<body bgcolor="#ffffff" scroll=no leftmargin="0" topmargin="0" onload="window_onload()">
<script language="javascript">
//关闭鼠标右键
if (document.all)
document.body.onmousedown=  new Function("if(event.button==2||event.button==3)alert('禁止鼠标右键！')");
</script>
<%
	url="http://200.0.0.90"'取得注册网址
	if instr(url,"http://")<=0 and instr(url,"HTTP://")<=0 then
		url="http://"&url
	end if
	mc="伴江行"'取得注册网站名称
	lx="政府机关"
	jj="伴江行办公自动化系统"
	id=1'取得注册网址的唯一id号
	longmc=mc&"：通信工具"
	shortmc=GetNewStr(longmc)
	randomize
	faceid=Int((25 - 0 ) * Rnd + 0)
	do while faceid=0
		faceid=Int((25 - 0 ) * Rnd + 0)
	loop
	session("username")=oabusyname
	session("siteid")=id
	if isempty(application("reftime"&session("siteid"))) then
		application("reftime"&session("siteid"))=now()
	end if
	if isempty(application("onlinesite")) then'如果在线队列不存在
		call create_online_site'建立在线队列
		sitenumber=write_online_site(id,mc,lx,url,jj)'写入当前站点信息
	else
		sitenumber=find_online_site(id)
		if sitenumber=-1 then'如果在线队列中不存在该队列
			sitenumber=write_online_site(id,mc,lx,url,jj)'写入当前站点信息
		end if
	end if
	if isempty(application("onlineuser"&id)) then'如果该站点的在线用户队列不存在，则建立队列
		call create_online_user(id)'建立在线用户队列
12

⌨️ 快捷键说明

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