ASP高手帮帮我啊

来源：百度知道 编辑：UC知道 时间：2024/05/11 22:28:58
<!--#include file="conn.asp"-->
<%
dim name
if(request("name") <> "")then
name = request("name")
end if
%>
<%
exec="select * from gequ where fenlei = '"&name&"' order by time desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<%
rs.PageSize=25
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
%>
<table width="555" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="525"><table width="515" border="0" cellpadding="0" cellspacing="0" class="bk">

<%
exec="select * from gequ where fenlei = '"&name&"' order by time desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
'直接在这里判断,否则当没有纪录时，系统就会报错！
if Rs.eof or Rs.bof then
Response.redirect"index.htm"
else
%>
……
<%
rs.close()
set rs = nothing
'在这里加上闭合判断
end if
%>

另外，你对参数name的判断也不科学：
if(request("name") <> "")then
name = request("name")
end if
当参数name不为空的时候 为name赋值
那如果为空呢？
所以再改写一下就更好了：

if(request("name") <> "")then
name = request("name")
else
name=":-)"
end if

这样就因为查不到数据自动跳转到首页而不是错误提示了。