asp分类查询无效，请大家帮看下哪错了

asp分类查询无效，请大家帮看下哪错了 [已结贴,结贴人:squalliskm]

squalliskm
永恒の天使
等级:

发表于：2008-07-18 19:07:09 楼主

我是想弄一个可以添加查询删除信息的页面，现在添加删除都可以用了，但是不能使用分类查询或详细查询，麻烦大家帮看下，代码是我东拼西凑弄出来的，漏洞就别管呢。查询的字段名为当前页searchform表单内的下拉菜单内容，而查询关键字为searchfrom表单下的TXT文本框选取

----------------------------------分割线---------------------------------------------------
<HTML>
<HEAD>
<Title>display.asp </Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>

<BODY>

<p align="left">
<%
act=request.QueryString("act")
if act="del" then '删除
id=request.QueryString("id")
sql="delete from card where id="&id
conn.execute(sql)
response.Redirect("display.asp")
end if

dim ss,st
ID = Request("ID")
ss =Request("searchselect")
st=request("searchtxt")

if request.QueryString=null then
exec="select 'ss' from card where 'ss' like 'st'"
else
exec="select * from card order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<p> <%request("searchtxt")%> </p>

</p>
<table border="0" width="100%">
<tr>
<td width="573">
<p align="left">

<a href="addpage.asp" >添加信息 </a> </p>
<p>　 </td>
<td>

<form method="POST" action="display.asp" name="searchform">分类搜索
<p align="right">
<select size="1" name="searchselect">
<option value="company">经销商 </option>
<option value="brand">品牌 </option>
<option value="type">类型 </option>
<option value="address">地址 </option>
<option value="contact">联系人 </option>
<option value="cellphone">手机 </option>
<option value="telephone">座机1 </option>
<option value="telephone2">座机2 </option>
<option value="telephone3">座机3 </option>
<option value="fax">传真 </option>
<option value="email">电子邮件 </option>
<option value="qq">qq </option>
</select>
<input type="text" name="searchtxt" size="50"> <input type="submit" value="提交" name="B1"> </p>
</form>
　 </td>
</tr>
</table>

<table width="980" border="0" bgcolor="#D6E0EF" >
<tr >
<td bgcolor="#698CC3">ID </td>
<td bgcolor="#698CC3">经销商 </td>
<td bgcolor="#698CC3">品牌 </td>
<td bgcolor="#698CC3">类型 </td>
<td bgcolor="#698CC3">地址 </td>
<td bgcolor="#698CC3">联系人 </td>
<td bgcolor="#698CC3">手机 </td>
<td bgcolor="#698CC3">座机1 </td>
<td bgcolor="#698CC3">座机2 </td>
<td bgcolor="#698CC3">座机3 </td>
<td bgcolor="#698CC3">传真 </td>
<td bgcolor="#698CC3">电子邮件 </td>
<td bgcolor="#698CC3">QQ </td>
<td bgcolor="#698CC3">删除 </td>
<td bgcolor="#698CC3">修改 </td>
</tr>
<%
rs.PageSize=10
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page <=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.PageSize
if rs.EOF then
exit for
end if
%>
<tr>
<td bgcolor="#FFFFFF"> <%=rs("id")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("company")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("brand")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("type")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("address")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("contact")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("cellphone")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("telephone1")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("telephone2")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("telephone3")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("fax")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("email")%> </td>
<td bgcolor="#FFFFFF"> <%=rs("qq")%> </td>
<td bgcolor="#FFFFFF"> <a href='?act=del&id= <%=rs("id")%>' onclick='javascript: return confirm("你确定要删除吗? ");'>删除 </a> </td>
<td bgcolor="#FFFFFF"> <a href="editpage.asp?id= <%=rs("id")%>">修改 </a> </td>

</tr>
<%
rs.movenext
next
%>
<table width="980" border="0" >
<tr>
<td align="left">
<%if page=1 and not page=pagecount then%>
第 <%=page%>页
<%for i=1 to pagecount%>
<a href="?page= <%=i%>"> <%=i%> </a>
<%next%>
<a href="?page= <%=page+1%>">下页 </a>
<%elseif page=pagecount and not page=1 then%>
第 <%=page%>页
<%for i=1 to pagecount%>
<a href="?page= <%=i%>"> <%=i%> </a>
<%next%>
<a href="?page= <%=page-1%>">上页 </a>
<%elseif page <1 then%>没有任何记录！
<%elseif page>pagecount then%>没有任何记录！
<%elseif page=1 and page=pagecount then%>
<%else%>
第 <%=page%>页
<%for i=1 to pagecount%>
<a href="?page= <%=i%>"> <%=i%> </a>
<%next%>
<a href="?page= <%=page-1%>">上页 </a>
<a href="?page= <%=page+1%>">下页 </a> </div>
<%end if%>
</td> </tr> </table>

</BODY>

</HTML>

<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

问题点数：100 回复次数：10 修改删除举报引用回复