📄 gz-5.asp
字号:
<% Option Explicit
response.buffer=true
%>
<html>
<head>
<title> 查找数据库</title>
</head>
<body bgcolor=pink>
<center>
<h2 align="center">查找记录</h2>
<table border=1 width=60%><tr><td align=center>
<form action="" method=post>
<p>输入包含网名或网址的任意查询字符串
<p>按姓名查找<input type=text name="cx">
<p>按月份查找<input type=text name="yuefen">
<p><input type=submit name="fs" value=" 查找 ">
<input type=submit name="fs" value=" 返回 ">
<p>
</form></td></tr></table>
<%
if request.form("fs")=" 查找 " then
'以下连上数据库，建立一个Connection对象实例db
dim db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("gz.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
'以下建立Recordset对象实例rs
dim strsql,rs,cx,yuefen
cx=trim(request.form("cx"))
yuefen=trim(request.form("yuefen"))
if cx="" then
if yuefen="" then
strsql="select * from gz order by ID desc"
else
strsql="select * from gz where month = int('" & yuefen & "') order by ID desc" '按降序排列
end if
else
strsql="select * from gz where name like '%" & cx _
& "%' order by ID desc"
end if
set rs=db.Execute(strsql)
'以下显示数据库记录
%>
<center>
<table border="1" width="90%">
<tr>
<td >姓名</td>
<td >月份</a></td>
<td >基本工资</td>
<td >奖金</td>
<td>扣款</td>
<td >实际工资</td>
<td colspan=2 align=center>操作</td>
</tr>
<%
do while not rs.Eof '只要不是结尾就执行循环
%>
<tr>
<td><%=rs("Name")%></td>
<td><%=rs("month")%></a></td>
<td><%=rs("jbgz")%></td>
<td><%=rs("bonus")%></td>
<td><%=rs("kk")%></td>
<td><%=(rs("jbgz")+rs("bonus")-rs("kk"))%></td>
<td><a href="gz-3.asp?id=<%=rs("id")%>">删除</a></td>
<td><a href="gz-4.asp?id=<%=rs("id")%>">修改</a></td>
</tr>
<%
rs.movenext '将记录集指针移动到下一条记录
Loop
%>
</table>
<%
end if
if request.form("fs")=" 返回 " then
response.redirect "gz-1.asp"
end if
%>
<a href="gz-1.asp">返回首页</a>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -