代码：
<script language="javascript">
function gettype(val){
location.href="?page=1&type="+val;
}
</script>
</head>
<body>
<%
select case request.QueryString("type")
case "true"
session("type")="true"
case "false"
session("type")="false"
case "all"
session("type")="all"
case else
if session("type")="" then session("type")="all" end if
end select
%>
<form id="form1" name="form1" method="post" action="">
<label>
<select name="select" onchange="gettype(this.value)">
<option value="true"<%if session("type")="true" then response.Write("selected") end if%>>已审核</option>
<option value="false" <%if session("type")="false" then response.Write("selected") end if%>>未审核</option>
<option value="all" <%if session("type")="all" then response.Write("selected") end if%>>全部</option>
</select>
</label>
</form>
<%
if request.QueryString("act")="checkup" then
conn.execute "update lianjie set l_yes=true where id="&request.QueryString("id")
end if
if request.QueryString("act")="uncheckup" then
conn.execute "update lianjie set l_yes=false where id="&request.QueryString("id")
end if
if request.QueryString("act")="del" then
conn.execute "delete * from lianjie where id="&request.QueryString("id")
end if
page=request.QueryString("page")
if page="" then page=1 end if
pages=5
set rs=server.CreateObject("adodb.recordset")
if session("type")="all" or session("type")="" then
rs.open "select * from lianjie order by id desc",conn,1,1
end if
if session("type")="true" then
rs.open "select * from lianjie where l_yes=true order by id desc",conn,1,1
end if
if session("type")="false" then
rs.open "select * from lianjie where l_yes=false order by id desc",conn,1,1
end if
if not (rs.bof and rs.eof) then
i=0
rs.pagesize=pages
maxpagecount=rs.pagecount
rs.absolutepage=page
rcount=rs.recordcount
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1 end if
if pageend>maxpagecount then pageend=maxpagecount end if
do while not rs.eof and i<rs.pagesize
%>
<table width="578" height="205" border="1">
<tr>
<td width="164">联结名称<%=rs("l_font")%></td>
<td width="398">联结图标<%rs("l_logo")%>
<%if rs("l_yes")=false then%>
<input type="botton" value="审核" onclick="location.href='?act=checkup&page=<%=page%>&id=<%=rs("id")%>'"/>
<%else%>
<input type="botton" value="取消审核" onclick="location.href='?act=uncheckup&page=<%=page%>&id=<%=rs("id")%>'" />
<%end if%>
<a href="?act=del&page=<%=page%>&id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
<%
rs.movenext()
i=i+1
loop
rs.close
set rs=nothing
else
%>
<table width="578" height="205" border="1">
<tr>
<td>暂时没有留言!</td>
</tr>
</table>
<%
end if
%>
<table>
<tr>
<td><a href="?page=1"><font face="webdings">7</font></a>
<%
for i=pagestart to pageend
if i=0 then i=1 end if
response.write " <a href=""?page="&i&""">"&i&"</a> "
next
%>
<a href="?page=<%=maxpagecount%>"><font face="webdings">8</font></a> 每页<%=pages%>条留言;共<%=rcount%>条 </td>
</tr>
</table>
</div>
<%
conn.close
set conn=nothing
%>
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/lj_adminlinks.asp, 第 50 行
不管怎么改都是这样的错误，程序没有什么错啊，怎么就一直是这样的错误呢？
