一段ASP代码，大家帮帮忙调试以下？？

happygeeat 2003-10-17 03:51:27

<%@language="javascript"%>


<%
function trim(str)
{
var i;
var j;
var str1;
var str2;
for(i=0;i<str.length;i++)
{
if(str.charAt(i)==" ")
{
str=str.substring(i+1,str.length);
}
else
{
break;
}
}
for(j=str.length-1;str<=0;str1--)
{
if(str.charAt(j)==" ")
{
str=str.substring(0,j-1);
}
esle
{
break;
}
}
return str;
}
var MaxPageSize=5
var rs
var sql
var TotalRecord
var TotalPage
var CurrentPage
var CurrentRecord=0
rs=Server.CreateObject("ADODB.Recordset")
rs.CursorLocation=adUseClient
sql="SELECT * FROM cq_xueli"
rs.Open(sql,conn,adOpenStatic,adLockReadOnly,adCmdText)
rs.PageSize=MaxPageSize
rs.CacheSize=MaxPageSize
TotalRecord=rs.RecordCount
TotalPage=rs.PageCount
CurrentPage=trim(Request.QueryString("page"))
if(CurrentPage=="")
CurrentPage=1
CurrentPage=parseInt(CurrentPage)
if(CurrentPage<1 && CurrentPage==0)
CurrentPage=1
if(CurrentPage>TotalPage)
CurrentPage=TotalPage
rs.AbsolutePage=CurrentPage//出错
%>
<%
while(! rs.EOF && CurrentRecord<MaxPageSize)
{
CurrentRecord+=1
%>
<input type="checkbox" name="xueli" value="<%=rs.Fields("xueli").value%>"><span class="font1"><%=rs.Fields("xueli").value%></span><br>

<%
rs.MoveNext
}
%>
<br>
<div align="center" class="font1">
<%
if(CurrentPage<>1)
{
Response.Write('<a href=cq_xueli.asp?page=1>第一页</a> ')
Response.Write('<a href=cq_xueli.asp?page=CurrentPage-1>上一页</a>')
Response.Write("<br>")
}
if(CurrentPage<TotalPage)
{
Response.Write('<a href=cq_xueli.asp?page=CurrentPage+1>下一页</a> ')
Response.Write('<a href=cq_xueli.asp?page=TotalPage>末页</a>')
}
%>
</div>

...全文