📄 checkuser.aspx
字号:
<%@ Page Language="VB" ContentType="text/html" debug="true" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<html>
<head>
<title>71BASE网络办公系统v1.3用户登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="CSS.CSS" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<form runat="server">
<p> </p>
<table width="800" height="309" border="0" align="center" cellpadding="0" cellspacing="0" background="office/pic/0a.png">
<tr>
<td width="26%" height="79" background="office/pic/0a.png"><table width="100%" height="309" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table></td>
<td width="33%" height="79">
<table width="417" height="309" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="pic/0c.png">
<table width="200" height="86" border="0" align="right" cellspacing="1">
<center>
<tr>
<td width="100%" align="left" height="22">
<div align="center"> </div></td>
</tr>
<tr>
<td width="100%" align="left" height="38"> 用户名:
<asp:textbox BorderStyle="solid" BorderWidth="1" Columns="15" Font-Size="10" ID="zname" runat="server" TextMode="SingleLine" />
<br>
密 码:
<asp:textbox BorderStyle="solid" BorderWidth="1" Columns="15" Font-Size="10" ID="zpass" runat="server" TextMode="Password" /></td>
</tr>
</center>
<tr>
<td width="100%" align="left" height="20"> <p align="center">
<asp:button ID="zlogin" runat="server" Text="现在进入" OnClick="zsclogin" />
</p></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</td>
</tr>
</table></td>
<td width="41%" height="79" background="office/pic/0b.png"><table width="100%" height="309" border="0" cellpadding="0" cellspacing="0" background="office/pic/0b.png">
<tr>
<td background="office/pic/0b.png"> </td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
sub zsclogin(s as object,e as eventargs)
dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("office.mdb"))
conn.open()
dim objcmd as new oledbcommand("select * from userinfo where ousername='" & zname.text & "' and opassword='" & zpass.text & "'",conn)
dim objrd as oledbdatareader=objcmd.executereader()
if objrd.read() then
dim lguinfo(4) as string
lguinfo(0)=objrd("id")
'用户id
lguinfo(1)=objrd("ousername")
'登录用户名
lguinfo(2)=objrd("orealname")
'真实姓名
lguinfo(3)=objrd("oworkroom")
'部门
lguinfo(4)=objrd("ointo")
'权限
session("lguinfo")=lguinfo
'session("username")="zsc"
'以上存储用户信息，以下存储系统信息
else
exit sub
end if
objrd.close()
objcmd=new oledbcommand()
objcmd.connection=conn
objcmd.commandtext="select * from sysinf"
objrd=objcmd.executereader()
if objrd.read() then
session("copyright")=objrd("copyright")
session("uppath")=objrd("uppath")
session("downpath")=objrd("downpath")
session("shareuppath")=objrd("shareuppath")
session("sharedownpath")=objrd("sharedownpath")
session("docuppath")=objrd("docuppath")
session("docdownpatht")=objrd("docdownpath")
session("timez")=objrd("timeZ")
else
response.write("<div align='center'>在sysinf表中没有找到相关记录,请手工添加一条新记录，该记录用来保存系统必要信息。</div>")
exit sub
end if
objrd.close()
conn.close()
FormsAuthentication.SetAuthCookie(zname.text,false)
'通过验证
response.Redirect("zh.htm")
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -