亚洲视频在线观看_久久久一二三_日日干狠狠干_伊人久久综合影院_欧美1级_国产精品无码久久久久

<% 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 %>