单位图书管理制度:asp 备注字段查询出错

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/27 15:16:49
<% @ language=vbscript %>
<!--#include file="conn.asp"-->

<html>
<title>编号</title>

<body>
<p align="center">您查询的结果如下:</p>
<p align="center"></p>
<% searchitem=request.form("selLB")
if searchitem="编号" then
strsql="select * from htgl where 编号="
strsql=strsql&cint(request.form("search"))
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn
else
if searchitem="标题" then
strsql="select * from htgl where 文件主标题 like"
strsql=strsql&"'%"&cstr(request.form("search"))&"%'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn
else
if searchitem="简介" then
strsql="select * from htgl where 内容简介 like"
strsql=strsql&"'%"&cstr(request.form("search"))&"%'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn
else
if searchitem="日期" then
strsql="select * from htgl where 存档日期 like"
strsql=strsql&"'%"&cdate(request.form("search"))&"%'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn
else
end if
end if
end if

end if
%>

<table border="1" width="100%" id="table1">
<tr>
<td width="42" align="center">编号</td>
<td width="217" align="center">文件主标题</td>
<td align="center" width="387">简介</td>
<td align="center">存档时间</td>
</tr>
<% do until rs.eof %>
<tr>
<td width="42" align="center"><%=rs("编号")%></td>
<td width="217" align="center"><%=rs("文件主标题")%></td>
<td align="center" width="387"><%=rs("简要内容")%></td>
<td align="center"><%=rs("存档日期")%></td>
</tr>
<% rs.movenext %>
<% loop %>
</table>

</body>

</html>

改成下面的代码看:

<% searchitem=request.form("selLB")
set rs=server.createobject("adodb.recordset")
if searchitem="编号" then
strsql="select * from htgl where 编号="
strsql=strsql&cint(request.form("search"))
rs.open strsql,conn
end if

if searchitem="标题" then
strsql="select * from htgl where 文件主标题 like"
strsql=strsql&"'%"&cstr(request.form("search"))&"%'"
rs.open strsql,conn
end if

if searchitem="简介" then
strsql="select * from htgl where 内容简介 like"
strsql=strsql&"'%"&cstr(request.form("search"))&"%'"
rs.open strsql,conn
end if

if searchitem="日期" then
strsql="select * from htgl where 存档日期 like"
strsql=strsql&"'%"&cdate(request.form("search"))&"%'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn
end if