<% Set Page = new Cls_Page '创建对象 Set Page.Conn = conn '得到数据库连接对象 With Page .PageSize = 40 '每页记录条数 .PageParm = "p" '页参数 '.PageIndex = 10 '当前页，可选参数，一般是生成静态时需要 .Database = "mssql" '数据库类型,AC为access,MSSQL为sqlserver2000存储过程版,MYSQL为mysql,PGSQL为PostGreSql .Pkey="hire_id" '主键 .Field="hire_id,hire_place,hire_comname,hire_workadd,company_id,hire_announcedate,hire_position,hire_refreshdate" '字段 .Table="fc_company_job" '表名 '.Condition="hire_status='2' and hire_enddate>='"&Date()&"' " '条件,不需要where '.Condition="hire_status<>'5'" ' .Condition="(hire_status='2' or hire_status='3')" .Condition = " (hire_status='2' or (hire_status='3' and company_id<>'1649736964' and company_id<>'1126173460' and company_id<>'1808580958' and company_id<>'1012885356' ))" .OrderBy="hire_refreshdate DESC" '排序,不需要order by,需要asc或者desc .RecordCount = 0 '总记录数，可以外部赋值，0不保存（适合搜索），-1存为session，-2存为cookies，-3存为applacation .NumericJump = 5 '数字上下页个数，可选参数，默认为3，负数为跳转个数，0为显示所有 .Template = "总记录数：{$RecordCount} 每页记录数：{$PageSize} 当前页数：{$PageIndex} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$SelectPage}" '整体模板，可选参数，有默认值 .FirstPage = "首页" '可选参数，有默认值 .PreviousPage = "上一页" '可选参数，有默认值 .NextPage = "下一页" '可选参数，有默认值 .LastPage = "尾页" '可选参数，有默认值 .NumericPage = " {$PageNum} " '数字分页部分模板，可选参数，有默认值 End With rs = Page.ResultSet() '记录集 'rc = Page.RowCount() '可选，输出总记录数 nav = Page.Nav() '分页样式 Page = Null Set Page = Nothing If IsNull(rs) Then Response.Write "" Else For i_ws=0 To Ubound(rs,2) %> <%=rs(2,i_ws)%> <%=rs(1,i_ws)%> <% hire_position = rs(6,i_ws) If hire_position<>"" And Not IsNull(hire_position) Then Set rst = server.CreateObject("adodb.recordset") sql = "select position_name from Fc_Code_position where position_id="&hire_position&"" rst.Open sql, conn, 1, 1 If Not rst.EOF Then position_name = rst("position_name") Else position_name = "" End If rst.Close response.write position_name else response.write " " end if %> <% workadds="" Set rst = server.CreateObject("adodb.recordset") workadds = rs(3,i_ws) If workadds<>"" And Not IsNull(workadds) Then If workadds = "0000" Then response.Write "不限" Else wstring = Split(workadds, ",") For ii=0 To UBound(wstring) province_name = "" capital_name = "" city_name = "" workadd = Trim(wstring(ii)) If workadd<>"" Then mystring = Split(workadd, "*") Length = UBound(mystring) Select Case Length Case "0" province = Trim(mystring(0)) sql = "select province_city from Fc_code_provinceandcity where id="&province&"" rst.Open sql,conn,1,1 If Not rst.EOF Then province_name = rst("province_city") End If rst.Close If province_name<>"" Then response.Write province_name&" " End If Case "1" province = Trim(mystring(0)) capital = Trim(mystring(1)) sql = "select province_city from Fc_code_provinceandcity where id="&province&"" rst.Open sql, conn, 1, 1 If Not rst.EOF Then province_name = rst("province_city") End If rst.Close sql = "select province_city from Fc_code_provinceandcity where id="&capital&"" rst.Open sql, conn, 1, 1 If Not rst.EOF Then capital_name = rst("province_city") End If rst.Close If province_name<>"" And capital_name<>"" Then response.Write province_name&capital_name&" " End If Case "2" province = Trim(mystring(0)) capital = Trim(mystring(1)) city = Trim(mystring(2)) sql = "select province_city from Fc_code_provinceandcity where id="&province&"" rst.Open sql, conn, 1, 1 If Not rst.EOF Then province_name = rst("province_city") End If rst.Close sql = "select province_city from Fc_code_provinceandcity where id="&capital&"" rst.Open sql, conn, 1, 1 If Not rst.EOF Then capital_name = rst("province_city") End If rst.Close sql = "select province_city from Fc_code_provinceandcity where id="&city&"" rst.Open sql, conn, 1, 1 If Not rst.EOF Then city_name = rst("province_city") End If rst.Close If province_name<>"" And capital_name<>"" And city_name<>"" Then response.Write province_name&capital_name&city_name&" " End If End Select End If Next End If End If Set rst = Nothing %> <%=formatdatetime(rs(7,i_ws),2)%> <% Next End If %>