📄 default.asp
字号:
<%response.expires=0%>
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="Electron_Doc/public/public.asp"-->
<!--#include file="kq/conn.asp"-->
<%
function find_online_user(oabusyusername)
dim i,dimsums,siteinfo,findok
findok=0
Application.Lock
onlineuser=application("onlineuser")
dimsums=ubound(onlineuser)
for i=0 to dimsums
siteinfo=onlineuser(i)
if siteinfo<>"" then
if instr(siteinfo,oabusyusername&"$")>0 then
findok=1
exit for
end if
end if
next
Application.UnLock
find_online_user=findok
end function
sub write_online_user(username,name,dept)
dim userinfo
Application.Lock
userinfo=username&"$"&name&"$"&dept&"$"&request.servervariables("REMOTE_ADDR")
onlineuser=application("onlineuser")
dimsums=ubound(onlineuser)
redim preserve onlineuser(dimsums+1)
onlineuser(dimsums+1)=userinfo
application("onlineuser")=onlineuser
Application.UnLock
end sub
sub checkkqdatabase()
set fileobject=server.createobject("Scripting.FileSystemObject")
if not fileobject.FileExists(server.mappath("kq/"&cstr(year(date()))&".mdb")) then
file1=server.mappath("kq\backup\new.mdb")
file2=server.mappath("kq\"&cstr(year(date()))&".mdb")
fileobject.copyfile file1,file2
end if
set fileobject=nothing
end sub
call checkkqdatabase
username=request.form("username")
password=request.form("password")
IniDim=GetIniFileValue()
if IniDim(1)="" then
application("UnitName")=IniDim(2)
application("UnitWord")=IniDim(3)
response.cookies("UnitWord")=IniDim(3)
response.cookies("UnitName")=IniDim(2)
end if
if username<>"" and password<>"" then
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
on error resume next
sql="select * from userinf where username=" & sqlstr(username) & " and password=" & sqlstr(password) & " and forbid='no'"
rs.open sql,conn,1,1
'如果有此用户就进入系统
if not rs.eof and not rs.bof then
response.cookies("oabusyname")=rs("name")
response.cookies("oabusyuserid")=cstr(rs("ID"))
response.cookies("oabusyusername")=rs("username")
response.cookies("oabusyuserdept")=rs("userdept")
response.cookies("oabusyuserlevel")=rs("userlevel")
response.cookies("cook_allow_see_all_workrep")=rs("allow_see_all_workrep")
response.cookies("cook_allow_see_dept_workrep")=rs("allow_see_dept_workrep")
response.cookies("cook_allow_control_dept_user")=rs("allow_control_dept_user")
response.cookies("cook_allow_control_all_user")=rs("allow_control_all_user")
response.cookies("cook_allow_send_note")=rs("allow_send_note")
response.cookies("cook_allow_control_note")=rs("allow_control_note")
response.cookies("cook_allow_control_file")=rs("allow_control_file")
response.cookies("cook_allow_send_file")=rs("allow_send_file")
response.cookies("allow_transmit_file")=rs("allow_transmit_file")
response.cookies("cook_allow_control_level")=rs("allow_control_level")
response.cookies("allow_check_resource_requirement")=rs("allow_check_resource_requirement")
response.cookies("allow_auditing_workthings")=rs("allow_auditing_workthings")
response.cookies("allow_manage_workthings")=rs("allow_manage_workthings")
response.cookies("allow_lookallinfo_workthings")=rs("allow_lookallinfo_workthings")
response.cookies("allow_look_all_kq_info")=rs("allow_look_all_kq_info")
application.lock
onlineuserdim=application("onlineuser")
if isempty(onlineuserdim) then
dim onlineuserdim(0)
dim netmeetinginfodim(0)
application("onlineuser")=onlineuserdim
application("netmeetinginfo")=netmeetinginfodim
end if
application.unlock
if find_online_user(rs("username"))=0 then
call write_online_user(rs("username"),rs("name"),rs("userdept"))
end if
conn.close
set conn=nothing
response.redirect "gensystem.asp"
response.end
end if
end if
%>
<html>
<head>
<title>红孩儿Officeffice 办公自动化系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<STYLE type=text/css>A:link {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:visited {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:hover {
COLOR: #ff0000; TEXT-DECORATION: none
}
A:active {
COLOR: #ffffff; TEXT-DECORATION: none
}
TD {
FONT-SIZE: 9pt
}
.text {
BACKGROUND-COLOR: #ffffff; COLOR: #ffffff; FONT-SIZE: 9pt; LINE-HEIGHT: 18px
}
.form {
BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #ff3300 1px dotted; BORDER-LEFT: #ff3300 1px dotted; BORDER-RIGHT: #ff3300 1px dotted; BORDER-TOP: #ff3300 1px dotted; FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; LINE-HEIGHT: normal
}
</STYLE>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY bgcolor="#0080D0">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=800><!-- fwtable fwsrc="index2.png" fwbase="i.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
<TBODY>
<TR>
<TD><IMG alt="" border=0 height=1
src="images1/spacer.gif" width=262></TD>
<TD><IMG alt="" border=0 height=1
src="images1/spacer.gif" width=114></TD>
<TD><IMG alt="" border=0 height=1
src="images1/spacer.gif" width=201></TD>
<TD><IMG alt="" border=0 height=1
src="images1/spacer.gif" width=84></TD>
<TD><IMG alt="" border=0 height=1
src="images1/spacer.gif" width=139></TD>
<TD><IMG alt="" border=0 height=1
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD colSpan=5><IMG alt="" border=0 height=87 name=i_r1_c1
src="images1/i_r1_c1.gif" width=800></TD>
<TD><IMG alt="" border=0 height=87
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD rowSpan=2><IMG alt="" border=0 height=186 name=i_r2_c1
src="images1/i_r2_c1.gif" width=262></TD>
<TD colSpan=2><IMG alt="" border=0 height=79 name=i_r2_c2
src="images1/i_r2_c2.gif" width=315></TD>
<TD colSpan=2><IMG alt="" border=0 height=79 name=i_r2_c4
src="images1/i_r2_c4.gif" width=223></TD>
<TD><IMG alt="" border=0 height=79
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD><IMG alt="" border=0 height=107 name=i_r3_c2
src="images1/i_r3_c2.gif" width=114></TD>
<TD bgColor=#0080ff>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=83
width=184>
<FORM action=default.asp method=post name=form1>
<TBODY>
<TR>
<TD height=30 width=76>
<DIV align=right><FONT color=#ffffff><B>用户名</B></FONT></DIV></TD>
<TD width=96><INPUT name=username size=14></TD></TR>
<TR>
<TD height=32 width=76>
<DIV align=right><FONT color=#ffffff><B>密 码</B></FONT></DIV></TD>
<TD height=32 width=96><INPUT name=password size=14
type=password></TD></TR>
<TR>
<TD height=21>
<DIV align=right>
<INPUT name=submit type=submit value=登录>
</DIV></TD>
<TD height=21>
<DIV align=center>
<INPUT name=submit2 type=reset value=取消>
</DIV>
</TD></TR></FORM></TBODY></TABLE></TD>
<TD colSpan=2><IMG alt="" border=0 height=107 name=i_r3_c4
src="images1/i_r3_c4.gif" width=223></TD>
<TD><IMG alt="" border=0 height=107
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD rowSpan=2><IMG alt="" border=0 height=119 name=i_r4_c1
src="images1/i_r4_c1.gif" width=262></TD>
<TD><IMG alt="" border=0 height=25 name=i_r4_c2
src="images1/i_r4_c2.gif" width=114></TD>
<TD><IMG alt="" border=0 height=25 name=i_r4_c3
src="images1/i_r4_c3.gif" width=201></TD>
<TD colSpan=2><IMG alt="" border=0 height=25 name=i_r4_c4
src="images1/i_r4_c4.gif" width=223></TD>
<TD><IMG alt="" border=0 height=25
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD><IMG alt="" border=0 height=94 name=i_r5_c2
src="images1/i_r5_c2.gif" width=114></TD>
<TD background=images1/i_r5_c3.gif colSpan=2>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="94%">
<TBODY>
<TR>
<TD><FONT color=red style="FONT-SIZE: 9pt"> </FONT><BR><FONT
color=#ffffff> <BR> <BR><span lang="en-us"><br>
</span><BR><BR></FONT></TD></TR></TBODY></TABLE></TD>
<TD><IMG alt="" border=0 height=94 name=i_r5_c5
src="images1/i_r5_c5.gif" width=139></TD>
<TD><IMG alt="" border=0 height=94
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD colSpan=5><IMG alt="" border=0 height=13 name=i_r6_c1
src="images1/i_r6_c1.gif" width=800></TD>
<TD><IMG alt="" border=0 height=13
src="images1/spacer.gif" width=1></TD></TR>
<TR>
<TD background=images1/i_r7_c1.gif colSpan=5>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD vAlign=bottom width="47%">
<DIV align=center>
<SCRIPT language=JavaScript>
<!---
today=new Date();
var hours = today.getHours();
var minutes = today.getMinutes();
var seconds = today.getSeconds();
var timeValue = "<FONT COLOR=black>" + ((hours >12) ? hours -12 :hours); timeValue += ((minutes < 10) ? "<BLINK><FONT COLOR=black>:</FONT></BLINK>0" : "<BLINK><FONT COLOR=black>:</FONT></BLINK>") + minutes+"</FONT></FONT>";
timeValue += (hours >= 12) ? "<FONT COLOR=blue><I><B>pm</B></I></FONT>" : "<FONT COLOR=blue><B><I>am</I></B></FONT>";
function initArray(){
this.length=initArray.arguments.length
for(var i=0;i<this.length;i++)
this[i+1]=initArray.arguments[i] }
var d=new initArray("<font color=RED>星期日","<font color=black>星期一","<font color=black>星期二","<font color=black>星期三","<font color=black>星期四","<font color=black>星期五","<font color=GREEN>星期六"); document.write("<font color=black>",today.getYear(),"<font color=red>年","<font color=black>",today.getMonth()+1,"<font color=red>月","<font color=black>",today.getDate(),"<font color=red>日 </FONT>",d[today.getDay()+1]," ",timeValue); //--></SCRIPT>
</FONT></DIV></TD>
<TD width="53%"><FONT color=#ffffff>Copyright 20023 红孩儿Office网络办公系统</FONT></TD></TR></TBODY></TABLE></TD>
<TD><IMG alt="" border=0 height=20
src="images1/spacer.gif"
width=1></TD></TR></TBODY></TABLE></BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -