免费成人高清在线视频_精品国产视频_精品91_日韩美女一级片_av亚洲在线_欧美成人精品在线

<% Set Page = new Cls_Page '創(chuàng)建對(duì)象 Set Page.Conn = conn '得到數(shù)據(jù)庫(kù)連接對(duì)象 With Page .PageSize = 40 '每頁(yè)記錄條數(shù) .PageParm = "p" '頁(yè)參數(shù) '.PageIndex = 10 '當(dāng)前頁(yè)，可選參數(shù)，一般是生成靜態(tài)時(shí)需要 .Database = "mssql" '數(shù)據(jù)庫(kù)類型,AC為access,MSSQL為sqlserver2000存儲(chǔ)過(guò)程版,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 '總記錄數(shù)，可以外部賦值，0不保存（適合搜索），-1存為session，-2存為cookies，-3存為applacation .NumericJump = 5 '數(shù)字上下頁(yè)個(gè)數(shù)，可選參數(shù)，默認(rèn)為3，負(fù)數(shù)為跳轉(zhuǎn)個(gè)數(shù)，0為顯示所有 .Template = "總記錄數(shù)：{$RecordCount} 每頁(yè)記錄數(shù)：{$PageSize} 當(dāng)前頁(yè)數(shù)：{$PageIndex} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$SelectPage}" '整體模板，可選參數(shù)，有默認(rèn)值 .FirstPage = "首頁(yè)" '可選參數(shù)，有默認(rèn)值 .PreviousPage = "上一頁(yè)" '可選參數(shù)，有默認(rèn)值 .NextPage = "下一頁(yè)" '可選參數(shù)，有默認(rèn)值 .LastPage = "尾頁(yè)" '可選參數(shù)，有默認(rèn)值 .NumericPage = " {$PageNum} " '數(shù)字分頁(yè)部分模板，可選參數(shù)，有默認(rèn)值 End With rs = Page.ResultSet() '記錄集 'rc = Page.RowCount() '可選，輸出總記錄數(shù) nav = Page.Nav() '分頁(yè)樣式 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 %>