📄 default.asp

📁 云师大商学院目前正在使用的oa
💻 ASP
字号:
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/opendb.asp"-->
<%
'登录
username=request("username")
password=request("password")
if username<>"" and password<>"" then
'打开数据库查找是否有此用户
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select * from userinf where username=" & sqlstr(username) & " and password=" & sqlstr(password) & " and forbid='no'"
rs.open sql,conn,1
'如果有此用户就进入系统
if not rs.eof and not rs.bof then

'**************************
sqlupdate="update userinf set loginIP='"&request.ServerVariables("REMOTE_ADDR")&"' , loginTime='"&now&"' where id="&rs("ID")
conn.Execute sqlupdate

'**************************

response.cookies("oabusyname")=rs("name")
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_control_level")=rs("allow_control_level")

response.cookies("cook_allow_see_reply")=rs("allow_see_reply")


'response.cookies("cook_allow_see_all_personinf")=rs("allow_see_all_personinf")
'response.cookies("cook_allow_see_dept_personinf")=rs("allow_see_dept_personinf")
'response.cookies("cook_allow_edit_all_jobchanginf")=rs("allow_edit_all_jobchanginf")
'response.cookies("cook_allow_edit_dept_jobchanginf")=rs("allow_edit_dept_jobchanginf")
'response.cookies("cook_allow_edit_all_rewpuninf")=rs("allow_edit_all_rewpuninf")
'response.cookies("cook_allow_edit_dept_rewpuninf")=rs("allow_edit_dept_rewpuninf")
'response.cookies("cook_allow_edit_all_checkinf")=rs("allow_edit_all_checkinf")
'response.cookies("cook_allow_edit_dept_checkin")=rs("allow_edit_dept_checkinf")

response.redirect "gensystem.asp"
else%>
<script language="VBScript" type="text/VBScript">
 msgbox "对不起，您所输入的账号或密码错误！"
</script>
 
<%end if
end if
%>

<html>
<head>
<title>云南师范大学商学院办公自动化系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="9pp.css" type="text/css">
<link href="Office.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" background="images/bg.jpg" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="414"><img src="images/Office_r1_c1.gif" width="414" height="93"></td>
          <td background="images/Office_r1_c8.gif">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="119" valign="top"> 
            <table width="119" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="119"><img src="images/Office_r2_c1.gif" width="119" height="68"></td>
              </tr>
              <tr> 
                <td>&nbsp;</td>
              </tr>
            </table> 
          </td>
          <td align="center"><table width="350" border="0" cellspacing="0" cellpadding="0" height="233">
              <tr> 
                <td align="center" height="316"> 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="29" valign="top"><img src="images/Office_r5_c3.gif" width="29" height="27"></td>
                      <td background="images/Office_r5_c4.gif">&nbsp;</td>
                      <td width="21" valign="top"><img src="images/Office_r5_c6.gif" width="21" height="27"></td>
                    </tr>
                    <tr>
                      <td background="images/Office_r6_c3.gif">&nbsp;</td>
                      <td height="120" align="center" bgcolor="#CCCCCC"> 
                        <table width="80%" border="0" cellspacing="0" cellpadding="0">
                  <form method=post action="default.asp">
                          <tr> 
                            <td>用户名：</td>
                            <td><input type=text name=username size=10></td>
                          </tr>
                          <tr> 
                              <td>密<font color="#FFFFFF">　</font>码：</td>
                            <td><input type=password name=password size=10></td>
                          </tr>
                          <tr align="center"> 
                            <td colspan="2"> 
                              <input type=submit name=submit value="进入">
                            </td>
                          </tr>
                  </form>						  
                        </table>
                      </td>
                      <td background="images/Office_r6_c6.gif">&nbsp;</td>
                    </tr>
                    <tr>
                      <td><img src="images/Office_r7_c3.gif" width="29" height="26"></td>
                      <td background="images/Office_r7_c4.gif">&nbsp;</td>
                      <td><img src="images/Office_r7_c6.gif" width="21" height="26"></td>
                    </tr>
                  </table>
                  
                </td>
              </tr>
            </table></td>
          <td width="119" align="center">&nbsp;</td>
        </tr>
      </table></td>
  </tr>
</table>
<hr width="500" noshade>
<p align="center">云南师范大学商学院&middot;网络中心<br>
  All Rights Reserved 2002</p>
    <%'计数器
CountFile=Server.MapPath("count/office.ini")
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE)
counter=Out.ReadLine
Out.Close

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE)
Application.lock
counter=counter+1
Out.WriteLine(counter)
Application.unlock
Out.Close
%>
</body>
</html>
⌨️ 快捷键说明

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