系统实现
下面给出系统开发出来的详细界面以阐述公司内部管理系统的具体功能。
代码如下：
<%
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "Database/office.mdb" '演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
'替换单引号
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "''")
end function
%>
首先是进入登陆界面，本窗体显示用户名称，密码校验等信息，本系统的用户分为三类：系统管理员，财务管理员，普通员工。使用者可以输入相应的用户名和密码，单击“确定”就会将输入提交给系统以验证用户、密码及身份。如果用户名及密码正确，则会进入系统的主体。
本模块的流程图如下：
