这个是我的开始的程序 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>人才搜索</title> </head> <body> <center> <h1>搜索条件：</h1> <form name="form1" method="post" action="usersearch.asp"> <p>性 别： <select name="sex"> <option value="all" selected>不限</option> <option value="男">男</option> <option value="女">女</option> </select> </p> <p>年 龄： <select name="age"> <option value="1000" selected>不限</option> <option value="20">20岁内</option> <option value="30">30岁内</option> <option value="40">40岁内</option> <option value="50">50岁内</option> <option value="60">60岁内</option> </select> </p> <p>类 型： <select name="lx"> <option value="all" selected>不限</option> <option selected value="计算机">计算机</option> <option value="销售">营业、销售</option> <option value="电子">电子技术</option> <option value="电工">电工</option> <option value="文职">文职类</option> <option value="其他">其他</option> </select> </p> <p><input type="submit" name="Submit" value="搜索"></p> </form> </center> </body> </html> 下面是处理程序 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>搜索人才</title> </head> <body> <% sex=request("sex") age=request("age") lx=request("lx") if sex="all" then sex=true else sex=request("sex") end if if age="all" then age=true else age=request("age") end if if lx="all" then lx=true else lx=request("lx") end if Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &Data Source="&Server.MapPath("hn71.mdb") set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from user where xb="&sex&" and "&"ln<="&age&" and "&"lx="&lx&" rs.open sql,conn,1,1 Page=1 rs.PageSize = 2 \'每页显示记录数 if Not IsEmpty(Request("Page")) then \'如果PAGE已经初始化... Page = CInt(Request("Page")) \'接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then \'如果接收的页数大于总页数 page=Rs.pageCount rs.AbsolutePage = rs.PageCount \'设置当前显示页等于最后页 else rs.AbsolutePage = Page \'显示当前页等于接收的页数 end if else Page = 1 \'如果page未被初始化则设为1 End if rs.AbsolutePage=page %> <center> <h1>人才档案</h1> <table border="2" bordercolor="green" > <tr bgcolor="#99CCFF" ><td>编号</td><td>姓名</td> <td>性别</td><td>毕业学校</td> <td>年龄</td><td><td>职位类型</td></tr> <% dim NumRows NumRows=0 while not rs.eof and NumRows<rs.PageSize %> <tr align="center"><td><%=rs("id")%></td> <td><%=rs("xm")%></td><td><%=rs("xb")%></td> <td><%=rs("byxx")%></td><td><%=rs("ln")%></td> <td><%=rs("lx")%></td></tr> <% rs.MoveNext NumRows=NumRows+1 wend %> </table> <p> </p> <p ALIGN="CENTER"> 共<%=rs.recordcount%>条纪录目前为第<%=page%>页/共<%=rs.PageCount%>页 <%if page>1 then%> <a Href="usersearch.asp?Page=<%=1%>">首页</a> <a Href="usersearch.asp?Page=<%=page-1%>">上一页</a> <%end if %> <%if page<>rs.pagecount then %> <a Href="usersearch.asp?Page=<%=page+1%>">下一页</a> <a Href="usersearch.asp?Page=<%=rs.PageCount%>">尾页</a> <% end if %> <form method=Post action="usersearch.asp"> <font color="#000080">转到第：</font><input type="text" name="page" size="4" maxlength="10" value="1">页 <input type="submit" value=" Goto " name="go"></form> </p> </center> </body> </html> <% rs.close conn.close set rs=nothing set conn=nothing %>
上面哪里错了啊 我怎么点搜索以后就出现这个错啊？？？？
无法显示网页 |
| 您要访问的网页有问题，无法显示。 |
|
请尝试以下操作:
HTTP 500 - 内部服务器错误 Internet Explorer |
搜索
