ASP人事管理实例 - 站长资源库


答案：
<html>
<head>
<title>人事管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset framespacing="0" border="false" frameborder="0" scrolling="no" rows="35,*">
  <frame src="top.asp"  noresize frameborder="NO" marginwidth="0"  marginheight="0" target="_self" scrolling="no">
  <frameset cols="20%,80%">
    <frame name="menu" src="left.asp" marginwidth="10" marginheight="10" scrolling="auto" frameborder="no">
    <frame name="main" src="right.asp" marginwidth="10" marginheight="10" scrolling="auto" frameborder="no">
</frameset>
  <noframes>
  </noframes>
</frameset>
<frameset>
</frameset>
</html>
................
left.asp
<html>
<head>
<title>人事管理</title>
</head>
<body bgcolor=Peachpuff>
<p align=center><font size=+1><STRONG>人事管理</STRONG></font><p>
<table border="0" align=center width=100 bgcolor=LightSteelBlue>
<% 
set rs=server.createobject("adodb.recordset") 
conn = "DBQ=" + server.mappath("message.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
sql="select * from cate" 
rs.open sql,conn,1,1 
if rs.EOF or rs.BOF then
 Response.Write "<tr><td>数据库暂无信息</td></tr>"
else
do while not rs.EOF or rs.BOF
%>
<tr><td align=center bgcolor=MediumAquamarine>
<a href=><%=rs("cate")%></a>
</td></tr>
<%
rs.movenext
loop
end if
set rs=nothing 
set conn=nothing
%>
</TABLE> 
.....................
right.asp
<body  bgcolor=AntiqueWhite>
<%
dim IID,cate
if request("id")="" then
 cate=1
 cate="办公室"
else
 IID=request("id")
 cate=request("cate")
end if
session("IID")=IID
session("cate")=cate
%>
<table>
<tr align=center><td bgcolor=#ffcc00 width=80><%Response.write cate%></td>
<td colspan=5 width=520><a href=><%
set rs=server.createobject("adodb.recordset") 
conn = "DBQ=" + server.mappath("message.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
if IID="" then
 sql="select * from mytable where cateid=1"
else
 sql="select * from mytable where cateid="&IID
end if
rs.open sql,conn,1,1
if not rs.EOF then
%><tr align=center><td>姓名</td><td>性别</td><td>出生年月</td><td>学历</td><td>职务</td><td>部门</td></tr>
<%do while not rs.EOF
%>
<tr align=center>
<td><%=rs("name")%></td>
<td width=40><%=rs("sex")%></td>
<td width=140><%=rs("borndate")%></td>
<td width=140><%=rs("term")%></td>
<td width=140><%=rs("func")%></td>
<td width=60><%=rs("cate")%></td>
</tr>
<%
rs.MoveNext
loop
end if
set rs=nothing 
set conn=nothing
%></table>
</body>
.......................
TOP.ASP
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<TABLE  bgcolor=#00b0e0 cellPadding=0 cellSpacing=0 width="300" align=center>
<TR><TD align=middle bgcolor=#99ccff>
<FONT face=华文新魏 size=6>ASP实例&nbsp;&nbsp;&nbsp;人事管理</FONT>
</TD></TR></TABLE>  
</BODY>
</HTML>

..................
ADD.ASP
<%
dim IID,cate
if session("IID")="" then
IID=1
cate="办公室"
else
 IID=session("IID")
 cate=session("cate")
end if
dim name,sex,borndate,term,func
if request("text1")="" then
 response.write "<script language=JavaScript>" & chr(13) & "alert('请输入用户名！');" & "history.back()" & "</script>" 
end if
if request("text2")=""  then
 response.write "<script language=JavaScript>" & chr(13) & "alert('出生年月不能为空！');" & "history.back()" & "</script>" 
end if
borndate=request("text2")
if isdate(borndate)=0 then
 response.write "<script language=JavaScript>" & chr(13) & "alert('出生年月输入错误，将返回前页！');" & "history.back()" & "</script>" 
end if 
if request("text3")=""  then
 response.write "<script language=JavaScript>" & chr(13) & "alert('职务不能为空！');" & "history.back()" & "</script>" 
end if
name=request("text1")
func=request("text3")
term=request("text4")
sex=request("sel1")
dim sql
dim rsadd
dim connstr
set rs=server.createobject("adodb.recordset") 
conn = "DBQ=" + server.mappath("message.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
sql="insert into mytable(name,borndate,sex,term,func,cateid,cate) values('"&name&"','"&borndate&"','"&sex&"','"&term&"','"&func&"','"&IID&"','"&cate&"')"
rs.Open sql,conn,1,1
Response.Write "记录添加成功!"
%>
.................
DEL.ASP
<%@ Language=VBScript %>
<body  bgcolor=AntiqueWhite><%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("message.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
if request("id")="" then
 response.write "<script language=JavaScript>" & chr(13) & "alert('非法操作！');" & "history.back()" & "</script>" 
else
 id=request("id")
 sql="delete from mytable where id="+id
 rs.Open sql,conn,1,1
 Response.Write "记录已经删除!"
end if
set rs=nothing
set conn=nothing
%>
</body>
上一个：AspChart组件示例(条形图)
下一个：我不明白，MDB到底是什么?
更多图片编程知识: