请各位前辈看一看我这段代码有什么错误,显示不了数据(数据表已经有5条数据)
程序代码如下:
<!--#include file="conn.asp"-->
<form name="form1" method="post" action="test1.asp">
<p>
<input name="findtext" type="text" id="findtext">
</p>
<p>
<input type="submit" name="Submit" value="提交" OnClick="find()">
</p>
</form>
<table width="39%" border="0">
<tr bgcolor="#99CCFF">
<td><font size="2">招聘职位</font></td>
<td><font size="2">公司名称</font></td>
<td><font size="2">工作地点</font></td>
<td><font size="2">发布日期</font></td>
</tr>
</table>
<table width="39%" border="0">
<%
Sub find()
Dim Rs,str,myPagesize,page,job_name,company_name,job_add,availability
Set Rs=Server.createObject("ADODB.RecordSet")
str="select * from person"
Rs.open str,conn,1,1
Rs.movefirst
job_name=Rs("job_name")
company_name=Rs("company_name")
job_add=Rs("job_add")
availability=Rs("availability")
if not(Rs.eof and Rs.bof) then
Rs.pagesize=10
myPagesize=Rs.Pagesize
Rs.absolutepage=Page
do while not Rs.eof and MyPagesize>0
%>
<tr>
<td width="25%" nowrap><%=job_name%></td>
<td width="25%" nowrap><%=company_name%></td>
<td width="26%" nowrap><%=job_add%></td>
<td width="24%" nowrap><%=availability%></td>
</tr>
<%
Rs.MoveNext
MyPageSize=MyPageSize-1
Loop
else
alert("没有相关的职位!")
end if
end sub
%>
</table>