<%@ LANGUAGE="VBSCRIPT" %>
<% response.buffer=true %>
<% sql="SELECT * FROM 1 ORDER BY ID DESC"
dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
%>
东升教育网
<% mymenu %>
求职信息
<% key=trim(request("key"))
sql="select * from 1 where 专业 like '%"&key&"%' order by id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.write""
end if
%>
<%
rs.PageSize =20
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
ShowOnePage rs, Page
%>