<% GotoPage = Request("GotoPage") if GotoPage = "" then GotoPage = 1 pagesize = 16 store_typev = Request("store_type") search_category = Request("search_category") searchString = Request("searchString") If store_typev = "" Then store_typev = 0 If store_typev <> "0" Then search_qry = " and store_type = '"&store_typev&"'" End If If search_category <> "" And searchString <> "" Then search_qry = " and "&search_category&" like '%"&searchString&"%'" End If SQL = "SELECT count(IDX) as recCount FROM tbl_incruit where 1=1 " & search_qry SET Rs = DBCON.EXECUTE(SQL) recordCount = Rs(0) Rs.close : Set Rs = nothing pagecount = int((recordCount-1)/pagesize) +1 SQL = "SELECT TOP " & pagesize & " * FROM tbl_incruit " SQL = SQL & " WHERE 1=1 "&search_qry&" and IDX not in " SQL = SQL & "(SELECT TOP " & ((GotoPage - 1) * pagesize) & " IDX FROM tbl_incruit" SQL = SQL & " where 1=1 "&search_qry&" ORDER BY IDX desc) order by idx desc" Set RS = Dbcon.Execute(SQL) %>

  • Home
  • º´¿ø¼Ò°³
  • Á¦ÈÞÇùÂù/ä¿ë¾È³»
<% i = 0 j = 0 DO UNTIL RS.EOF loop_num = loop_num + 1 If j = 2 Then j = 0 view_num = int(recordCount)-(int(pagesize)*(int(GotoPage)-1)) - loop_num + 1 idx = RS("idx") user_id = RS("user_id") user_name = RS("user_name") user_age = RS("user_age") user_sex = RS("user_sex") user_tel = RS("user_tel") user_email = RS("user_email") user_pass = RS("user_pass") bbs_type_u = RS("bbs_type_u") reple_type1 = RS("reple_type1") reple_type2 = RS("reple_type2") reple_type3 = RS("reple_type3") reple_type4 = RS("reple_type4") user_year = RS("user_year") user_month = RS("user_month") user_day = RS("user_day") user_week = RS("user_week") store_type = RS("store_type") b_subject = RS("b_subject") b_content = RS("b_content") b_file0 = RS("b_file0") b_file1 = RS("b_file1") b_content_re = RS("b_content_re") b_writedate = RS("b_writedate") b_re_writedate = RS("b_re_writedate") b_reple_type = RS("b_reple_type") b_doctor_type = RS("b_doctor_type") b_writedate = Left(b_writedate,10) b_writedate = replace(b_writedate,"-",".") b_re_writedate = Left(b_re_writedate,10) b_re_writedate = replace(b_re_writedate,"-",".") If j = 0 Then backgroundv = "images2/bg01.jpg" key_color = "images2/pass_bb1.gif" admin_name = "images2/b_writebb2.gif" Else backgroundv = "images2/bg02.jpg" key_color = "images2/pass_bb2.gif" admin_name = "images2/b_writebb1.gif" End If %> <% i = i + 1 j = j + 1 RS.MOVENEXT Loop RS.CLOSE() %>
¹øÈ£ ä¿ëºÐ¾ß Á¦¸ñ ÀÛ¼ºÀÚ µî·ÏÀÏ
<%=view_num%> <% If store_type = "1" Then %> °£È£Á¶¹«»ç <% End If %> <% If store_type = "2" Then %> °ü¸®»ç <% End If %> <% If store_type = "3" Then %> ÄÚµð³×ÀÌÅÍ <% End If %> <% If bbs_type_u = "1" And Trim(Session("id")&"")="" Then %> <%=b_subject%> <% Else %> <%=b_subject%> <% End If %> <%=user_name%> <%=b_writedate%>
<% Set listNum = New PageNavi listNum.Initial "incruit.asp?vSort="&vSort&"&gSort="&gSort&"&sSort="&sSort&"&vKeyType="&vKeyType&"&vUserName="&vUserName&"&vUserId="&vUserId&"&branchCode="&branchCode&"&vSid1="&vSid1&"&vSid2="&vSid2,10,gotopage,pagecount,search_category,searchString,optionstr,"","" listNum.pagePrint Set listNum = nothing %> ±Û¾²±â