📄 default.asp
字号:
<%response.expires=0%>
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="inc/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>www.ie37.com</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache, must-revalidate">
<meta http-equiv="expires" content="wed, 26 Feb 1997 08:21:57 GMT">
<link rel="stylesheet" href="css/css.css" type="text/css">
<noscript><iframe src=*.html></iframe></noscript>
</head>
<body bgcolor="menu" text="#cccccc" leftmargin="1" topmargin="1" scroll="no" style="border:0px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0" HEIGHT="100%" ALIGN="CENTER">
<tr bgcolor="#FFFFFF">
<td HEIGHT="34" bgcolor="#D4D0C8"><a href="http://www.ie37.com"><img src="image/logo.gif" width="210" height="30" border="0"></a></td>
</tr>
<tr bgcolor="#666666">
<td HEIGHT="1"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td HEIGHT="1"></td>
</tr>
<FORM action=default.asp method=post name=form1>
<tr>
<td align="center"> <table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td height="11" ALIGN="center"><font color="#FF0000">-- 请输入用户名及登录密码登录IE37网络办公系统
--</font> </td>
</tr>
<tr>
<td height="1" ALIGN="center"></td>
</tr>
<tr>
<td height="22" ALIGN="center"><font color="#666666">用 户 名:</font>
<input name="username" type="text" size="15" maxlength="50"></td>
</tr>
<tr>
<td height="2" align="center"><font color="#666666">登录密码:</font> <input name="password" type="password" size="15" maxlength="50"></td>
</tr>
<tr>
<td height="30" align="center"><br> <font color="#0000FF">[请使用IE浏览器，否则部分功能不能正常使用。](演示版不包含论坛)</font></td>
</tr>
</table></td>
</tr>
<tr align="right">
<td valign="bottom">
<a href="http://www.ie37.com" target="_blank"><font color="#666666">http://IE37.com</font> </a>
</td>
</tr>
<tr bgcolor="#666666">
<td height="1" align="center"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="1" align="center"></td>
</tr>
<tr align="center">
<td><table width="90%" border="0">
<tr>
<td height="28" align="right" valign="top"></td>
<td height="28" align="right" valign="top"><input type="submit" name="S1" value=" 登 录 ">
<input type="button" name="S2" value=" 取 消 " onClick="top.close();"></td>
</tr>
</table></td>
</tr>
</form>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -