【asp设计】留言本，没有删除，新建功能，求教 - 尚维工作室吧

level 11

icebibo 楼主

1楼

2012年06月05日 06点06分 1

level 11

icebibo 楼主

<body>
员工管理页面
<hr>
<form method="post" action="">
<table border=0 cellpadding="0">
<tr><td>员工信息如下</td></tr>
<tr><td>
<table border=0 cellpadding="0">
<tr><td>查询：查询项</td>
<td>
<select name="searchitem">
<option value="name" selected=true>姓名</option>
<option value="address">地址</option>
<option value="city">城市</option>
</select>
</td>
<td>查询关键字</td>
<td><input type="text" size="10" name="searchvalue"></td>
<td><input type="submit" name="submit" value="查询"></td>
</tr>
</table>
</td></tr>
<p><a href="employeeaddform.asp">新建一个员工</a></p>
<table border=1 cel
lsp
acing=1>
<tr>
<td>员工编号</td><td>姓名</td><td>年龄</td><td>性别</td><td>地址</td><td>城市</td><td>修改</td><td>删除</td>
</tr>
<%
Dim conn,FilePath,P
Set Conn=Server.CreateObject("ADODB.Connection")
FilePath=server.mappath("testdb.mdb")
p="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Conn.Open p
Set rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=Conn
if Request.Form("submit")<>"查询" then
rs.Open "select * from employee"
else
searchitem=Request.Form("searchitem")
searchvalue=Trim(Request.Form("searchvalue"))
strSQL="select * from employee where "
strSQL=strSQl&searchitem&" like '%"&searchvalue&"%'"
rs.Open strSQL
end if
Do While Not rs.EOF
response.write("<tr><td>"&rs("id")&"</td>")
response.write("<td>"&rs("name")&"</td>")
response.write("<td>"&rs("age")&"</td>")
response.write("<td>"&rs("sex")&"</td>")
response.write("<td>"&rs("address")&"</td>")
response.write("<td>"&rs("city")&"</td>")
response.write("<td><a href="&chr(34)&"employeeeditform.asp?id="&rs("id")&chr(34)&">修改</a></td>")
response.write("<td><a href="&chr(34)&"employeedelete.asp?id="&rs("id")&chr(34)&">删除</a></td></tr>")
rs.movenext
loop
%>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

2012年06月05日 06点06分 2

level 11

icebibo 楼主

<%
id=Request.Form("id")
name=Request.Form("name")
age=Request.Form("age")
sex=Request.Form("sex")
address=Request.Form("address")
city=Request.Form("city")
Dim conn,FilePath,P
Set Conn=Server.CreateObject("ADODB.Connection")
FilePath=server.mappath("testdb.mdb")
p="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Conn.Open p
strSQL="insert into employee values("
strSQL=strSQL&"'"&id&"',"
strSQL=strSQL&"'"&name&"',"
strSQL=strSQL&age&","
strSQL=strSQL&"'"&address&"',"
strSQL=strSQL&"'"&city&"')"
Conn.Execute strSQL
Conn.Close
Set Conn=nothing
Response.Redirect("employee.asp")
%>

2012年06月05日 06点06分 3

level 11

icebibo 楼主

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建一个员工</title>
</head>
<body>
<p>新建一个员工</p>
<hr>
<form method="POST" action="employeeadd.asp">
<p>员工编号：<input type="text" name="id" size="20"></p>
<p>员工名称：<input type="text" name="name" size="20"></p>
<p>年龄：    <input type="text" name="age" size="20"></p>
<p>性别：    <input type="text" name="sex" size="20"></p>
<p>城市：    <input type="text" name="address" size="20"></p>
<p>地址：    <input type="text" name="city" size="20"></p>
<p> <input type="submit" value="新建一个员工" name="B1"></p>
</form>
<p>　</p>
<p>　</p>
</body>
</html>

2012年06月05日 06点06分 4

level 11

icebibo 楼主

<%
deleteid=Request.Querystring("id")
Dim conn,FilePath,P
Set Conn=Server.CreateObject("ADODB.Connection")
FilePath=server.mappath("testdb.mdb")
p="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Conn.Open p
strSQL="delete from employee where id='"&deleteid&"'"
Conn.Execute strSQL
Conn.Close
Set Conn=nothing
Response.Redirect("employee.asp")
%>

2012年06月05日 06点06分 5

level 11

icebibo 楼主

<%
editid=Request.Form("id")
name=Request.Form("name")
age=Cint(Request.Form("age"))
address=Request.Form("address")
city=Request.Form("city")
Dim conn,FilePath,P
Set Conn=Server.CreateObject("ADODB.Connection")
FilePath=server.mappath("testdb.mdb")
p="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Conn.Open p
strSQL="update employee set"
strSQL=strSQL&" name='"&name&"',"
strSQL=strSQL&" age="&age&","
strSQL=strSQL&" sex='"&sex&"',"
strSQL=strSQL&" address='"&address&"',"
strSQL=strSQL&" city='"&city&"'"
strSQL=strSQL&" where id='"&editid&"'"
Conn.Execute strSQL
Conn.Close
Set Conn=nothing
Response.Redirect("employee.asp")
%>

2012年06月05日 06点06分 6

level 11

icebibo 楼主

<html>
<head><title>员工管理</title></head>
<body>
员工信息修改
<hr>
<%
editid=request.querystring("id")
Dim conn,FilePath,P
Set Conn=Server.CreateObject("ADODB.Connection")
FilePath=server.mappath("testdb.mdb")
p="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&FilePath
Conn.Open p
Set rs=Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection=Conn
rs.Open"select * from employee where id='"&editid&"'"
if rs.state=1 then
%>
<form method="POST" action="employeeedit.asp">
<table border=0 cellpadding=0>
<tr><td>员工编号：</td>
<td><input type="text" size="5" name="id" value=<%=rs("id")%> readonly="true">
</td>
</tr>
<tr><td>员工名称：</td>
<td><input type="text" size="5" name="name" value=<%=rs("name")%> >
</td>
</tr>
<tr><td>年龄：</td>
<td><input type="text" size="4" name="age" value=<%=Cstr(rs("age"))%> >
</td>
</tr>
<tr><td>性别：</td>
<td><input type="text" size="20" name="sex" value=<%=rs("sex")%>>
</td>
</tr>
<tr><td>地址：</td>
<td><input type="text" size="50" name="address" value=<%=rs("address")%>>
</td>
</tr>
<tr><td>城市：</td>
<td><input type="text" size="20" name="city" value=<%=rs("city")%>>
</td>
</tr>
</table>
<input type="submit" value="提交">
</form>
</body>
<%
end if
rs.close
Set rs=nothing
Conn.close
Set Conn=nothing
%>
</html>

2012年06月05日 06点06分 7

level 11

icebibo 楼主