<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> 
<% Session.TimeOut = 120 '單位：分鐘 %>
<!--#include file="../Connections/connM2.asp" -->
<%
Dim RecMain
Dim RecMain_numRows

Set RecMain = Server.CreateObject("ADODB.Recordset")
RecMain.ActiveConnection = MM_connM2_STRING
RecMain.Source = "SELECT *  FROM mainPage"
RecMain.CursorType = 0
RecMain.CursorLocation = 2
RecMain.LockType = 1
RecMain.Open()

RecMain_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 20
Repeat1__index = 0
RecMain_numRows = RecMain_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim RecMain_total
Dim RecMain_first
Dim RecMain_last

' set the record count
RecMain_total = RecMain.RecordCount

' set the number of rows displayed on this page
If (RecMain_numRows < 0) Then
  RecMain_numRows = RecMain_total
Elseif (RecMain_numRows = 0) Then
  RecMain_numRows = 1
End If

' set the first and last displayed record
RecMain_first = 1
RecMain_last  = RecMain_first + RecMain_numRows - 1

' if we have the correct record count, check the other stats
If (RecMain_total <> -1) Then
  If (RecMain_first > RecMain_total) Then
    RecMain_first = RecMain_total
  End If
  If (RecMain_last > RecMain_total) Then
    RecMain_last = RecMain_total
  End If
  If (RecMain_numRows > RecMain_total) Then
    RecMain_numRows = RecMain_total
  End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (RecMain_total = -1) Then

  ' count the total records by iterating through the recordset
  RecMain_total=0
  While (Not RecMain.EOF)
    RecMain_total = RecMain_total + 1
    RecMain.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (RecMain.CursorType > 0) Then
    RecMain.MoveFirst
  Else
    RecMain.Requery
  End If

  ' set the number of rows displayed on this page
  If (RecMain_numRows < 0 Or RecMain_numRows > RecMain_total) Then
    RecMain_numRows = RecMain_total
  End If

  ' set the first and last displayed record
  RecMain_first = 1
  RecMain_last = RecMain_first + RecMain_numRows - 1
  
  If (RecMain_first > RecMain_total) Then
    RecMain_first = RecMain_total
  End If
  If (RecMain_last > RecMain_total) Then
    RecMain_last = RecMain_total
  End If

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = RecMain
MM_rsCount   = RecMain_total
MM_size      = RecMain_numRows
MM_uniqueCol = "main_id"
MM_paramName = "id"
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
RecMain_first = MM_offset + 1
RecMain_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (RecMain_first > MM_rsCount) Then
    RecMain_first = MM_rsCount
  End If
  If (RecMain_last > MM_rsCount) Then
    RecMain_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>
<html>
<head>
<title>金證照討論區</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_nbGroup(event, grpName) { //v6.0
  var i,img,nbArr,args=MM_nbGroup.arguments;
  if (event == "init" && args.length > 2) {
    if ((img = MM_findObj(args[2])) != null && !img.MM_init) {
      img.MM_init = true; img.MM_up = args[3]; img.MM_dn = img.src;
      if ((nbArr = document[grpName]) == null) nbArr = document[grpName] = new Array();
      nbArr[nbArr.length] = img;
      for (i=4; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
        if (!img.MM_up) img.MM_up = img.src;
        img.src = img.MM_dn = args[i+1];
        nbArr[nbArr.length] = img;
    } }
  } else if (event == "over") {
    document.MM_nbOver = nbArr = new Array();
    for (i=1; i < args.length-1; i+=3) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = (img.MM_dn && args[i+2]) ? args[i+2] : ((args[i+1])? args[i+1] : img.MM_up);
      nbArr[nbArr.length] = img;
    }
  } else if (event == "out" ) {
    for (i=0; i < document.MM_nbOver.length; i++) {
      img = document.MM_nbOver[i]; img.src = (img.MM_dn) ? img.MM_dn : img.MM_up; }
  } else if (event == "down") {
    nbArr = document[grpName];
    if (nbArr)
      for (i=0; i < nbArr.length; i++) { img=nbArr[i]; img.src = img.MM_up; img.MM_dn = 0; }
    document[grpName] = nbArr = new Array();
    for (i=2; i < args.length-1; i+=2) if ((img = MM_findObj(args[i])) != null) {
      if (!img.MM_up) img.MM_up = img.src;
      img.src = img.MM_dn = (args[i+1])? args[i+1] : img.MM_up;
      nbArr[nbArr.length] = img;
  } }
}

function centerWindow(theURL,winName,width,height,features) {
//織夢平台 http://www.e-dreamer.idv.tw
//分享是成長的開始
    var window_width = width;
    var window_height = height;
    var edfeatures= features;
    var window_top = (screen.height-window_height)/2;
    var window_left = (screen.width-window_width)/2;
    newWindow=window.open(''+ theURL + '',''+ winName + '','width=' + window_width + ',height=' + window_height + ',top=' + window_top + ',left=' + window_left + ',scrollbars=' + edfeatures + '');
    newWindow.focus();
}

function MM_setTextOfTextfield(objName,x,newText) { //v3.0
  var obj = MM_findObj(objName); if (obj) obj.value = newText;
}

function YY_checkform() { //v4.65
//copyright (c)1998,2002 Yaromat.com
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        var myMa=args[i+1].split('_');if(isNaN(parseInt(myV))||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==2)){
          var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
      } else if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
        if(myAt){
          var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
          var myDate=new Date(myY,myM,myD);
          if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
        }else{addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==4)){ // time
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
      } else if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!myObj1.checked){addErr=true}
      } else if (myV.length>0&&args[i+2]==6){ // the same
            var myObj1 = MM_findObj(args[i+1]);
            if(myV!=myObj1.value){addErr=true}
      }
    } else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    } else if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    } else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
//-->
</script>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {color: #0099EE}
.style6 {font-size: 12px}
-->
</style>
</head>
<body bgcolor="#BFBFBF" text="#000000" link="#FFCC00" vlink="#CC6600" topmargin="0" onLoad="MM_preloadImages('images/ub_r2_c2_f3.gif','images/ub_r2_c2_f2.gif','images/ub_r2_c2_f4.gif','images/ub_r2_c4_f3.gif','images/ub_r2_c4_f2.gif','images/ub_r2_c4_f4.gif')">
<div align="center"> 
  <table border="0" cellpadding="0" cellspacing="0" width="760" align="center">
    <!-- fwtable fwsrc="back.png" fwbase="ub.gif" fwstyle="Dreamweaver" fwdocid = "218474546" fwnested="0" -->
    <tr> 
      <td><img src="images/spacer.gif" width="121" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="113" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="11" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="113" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="10" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="113" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="279" height="1" border="0"></td>
      <td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
    </tr>
    <tr> 
      <td colspan="7"><img src="images/ub_r1_c1.gif" name="ub_r1_c1" width="760" height="100" usemap="#ub_r1_c1Map" id="ub_r1_c1" border="0">
        <map name="ub_r1_c1Map">
          <area shape="rect" coords="182,-1,758,100" href="../cfa/cfa_l1_012.htm" target="_blank">
          <area shape="rect" coords="4,8,169,94" href="http://www.gocharter.com.tw" target="_blank" alt="金證照顧問有限公司">
      </map></td>
      <td><img src="images/spacer.gif" width="1" height="70" border="0"></td>
    </tr>
    <tr> 
      <td><img name="ub_r2_c1" src="images/ub_r2_c1.gif" width="121" height="27" border="0"></td>
      <td><a href="index.asp" target="_top"  onClick="MM_nbGroup('down','navbar1','ub_r2_c2','images/ub_r2_c2_f3.gif',1);"  onMouseOver="MM_nbGroup('over','ub_r2_c2','images/ub_r2_c2_f2.gif','images/ub_r2_c2_f4.gif',1);" onMouseOut="MM_nbGroup('out');" ><img name="ub_r2_c2" src="images/ub_r2_c2.gif" width="113" height="27" border="0"></a></td>
      <td><img name="ub_r2_c3" src="images/ub_r2_c3.gif" width="11" height="27" border="0"></td>
      <td><a href="javascript:;" target="_top"  onClick="MM_nbGroup('down','navbar1','ub_r2_c4','images/ub_r2_c4_f3.gif',1)"  onMouseOver="MM_nbGroup('over','ub_r2_c4','images/ub_r2_c4_f2.gif','images/ub_r2_c4_f4.gif',1);" onMouseOut="MM_nbGroup('out');" ><img src="images/ub_r2_c4.gif" name="ub_r2_c4" width="113" height="27" border="0" onClick="centerWindow('post.asp','post','500','600','yes')"></a></td>
      <td><img name="ub_r2_c5" src="images/ub_r2_c5.gif" width="10" height="27" border="0"></td>
      <td background="images/ub_r2_c5.gif"><img name="ub_r2_c6" src="images/ub_r2_c5.gif" width="10" height="27" border="0"><a href="http://www.facebook.com/gocharter" target="_blank"><img src="images/fb_icon.gif" width="27" height="27" border="0"></a></td>
      <td><img name="ub_r2_c7" src="images/ub_r2_c7.gif" width="279" height="27" border="0"></td>
      <td><img src="images/spacer.gif" width="1" height="27" border="0"></td>
    </tr>
    <tr> 
      <td rowspan="2" colspan="7" background="images/ub_r3_c1.gif"> <% If Not RecMain.EOF Or Not RecMain.BOF Then %>
        <table width="98%" border="0" cellspacing="0" align="center">
          <tr> 
            <td> <table width="100%" border="0" cellspacing="0">
                <tr> 
                  <td width="16%" align="right"><a href="http://www.gocharter.com.tw/lesson.htm" target="_blank"><img src="images/topic.gif" width="120" height="20" border="0"></a></td>
				  <td width="84%"><form action="search.asp" method="post" name="form1" onSubmit="YY_checkform('form1','keyword','#q','0','請輸入關鍵字再送出查詢！');return document.MM_returnValue">
                      <div align="right"><font size="2"><span class="style3">
                        <% If Session("MM_Username") <> "" Then %>
                        <font color="#0000FF">
                          <% =session("MM_Username") %>
                          您好！歡迎光臨！ </font> 
                        <% End If %>
                        |</span></font><font color="#FF0000" size="2"><a href="../m1/index.asp">會員註冊</a></font><font size="2"> </font><font size="2"><span class="style3">|</span> </font><font color="#FF0000" size="2"><a href="index_hot.asp">熱門主題 </a></font><font size="2"><a href="../m1/index.asp" target="_blank"><font size="2">|</font></a><font color="#FF0000"><a href="index_good.asp"> 精選主題</a></font></font>　 
                        <img src="images/search.gif" width="16" height="16" align="absmiddle"> 
                        <input name="keyword" type="text" onFocus="MM_setTextOfTextfield('keyword','','')" value="輸入關鍵字" size="15">
                        <input type="submit" name="Submit" value="查詢主題">
                        </div>
				  </form></td>
                </tr>
				
              </table>
              <table width="100%" border="0" cellspacing="1" align="center">
                <tr valign="middle" bgcolor="#D68950"> 
                  <th width="26" height="30"> <div align="center"><font color="#666666"><font face="Verdana"><font face="Verdana"><font size="2"><font color="#FFFFFF"></font></font></font></font></font></div></th>
                  <th width="408" height="30"> <font color="#FFFFFF" size="2" face="Verdana">發表主題</font></th>
                  <th width="150" height="30"> <font color="#FFFFFF" size="2" face="Verdana">發言人</font></th>
                  <th width="93" height="30"><font color="#FFFFFF" size="2" face="Verdana">點閱</font></th>
                  <th width="93" height="30"><font color="#FFFFFF" size="2" face="Verdana">回應</font></th>
                  <th width="169" height="30"><font color="#FFFFFF" size="2" face="Verdana">最新回應時間</font></th>
                </tr>
                <% 
While ((Repeat1__numRows <> 0) AND (NOT RecMain.EOF)) 
%>
                <tr bgcolor="#f9f8ee"> 
                  <td width="26" height="25"> 
                    <div align="center"><img src="./images/<% =(RecMain.Fields.Item("main_important").Value)%>"></div></td>
                  <td width="408" height="25" bgcolor="#f9f8ee"><b><font face="Verdana, 新細明體" size="-1"><a href="count_hits.asp?main_id=<%=(RecMain.Fields.Item("main_id").Value)%>"><%=(RecMain.Fields.Item("main_subject").Value)%></a> 
                    <% if RecMain.Fields.Item("NewUpdate").Value > date()-1 Then 'start db_sc script %>
                    <img src="images/new.gif" width="28" height="11" align="absmiddle"> 
                    <% end if 'end db_sc script %>
                    <% if RecMain.Fields.Item("num_re").Value >= 5 Then 'start db_sc script %>
                    <img src="images/hot.gif" width="28" height="11" align="absmiddle"> 
                    <% end if 'end db_sc script %>
                    </font></b></td>
                  <td width="150" height="25"><font face="Verdana, 新細明體" size="-1"><%=(RecMain.Fields.Item("main_name").Value)%></font></td>
                  <td width="93" height="25"> <div align="center"><font face="Verdana" size="1"> 
                      <%=(RecMain.Fields.Item("num_hits").Value)%></font></div></td>
                  <td width="93" height="25" bgcolor="#f9f8ee"> <div align="center"><font face="Verdana" size="1"><%=(RecMain.Fields.Item("num_re").Value)%></font></div></td>
                  <td width="169" height="25" valign="middle"> <div align="center"><font size="1" face="Times New Roman, Times, serif"><%=FormatDateTime(RecMain.Fields.Item("NewUpdate").Value,2)%> 
                      </font></div></td>
                </tr>
                <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RecMain.MoveNext()
Wend
%>
              </table>
              <table width="100%" border="0" cellspacing="0" align="center" cellpadding="4">
                <tr> 
                  <td height="20" width="40%" bgcolor="#f9f8ee"><font color="#333333" size="2"> 
                    記錄 <%=(RecMain_first)%> 到 <%=(RecMain_last)%> 共 <%=(RecMain_total)%> 主題數</font></td>
                  <td align="right" bgcolor="#f9f8ee"> <font size="2"> 
                    <table width="100%" border="0" cellpadding="0" cellspacing="0">
                      <tr align="right"> 
                        <td><%
ipage = (MM_offset \ MM_size) +1
iTotalPage =RecMain_total\MM_size+1
ifirst = ipage - 4
if iTotalPage > 9 and ( iTotalPage - ipage ) < 5 then ifirst = iTotalPage - 9
if iTotalPage < 10 and ( iTotalPage - ipage ) < 5 then ifirst = 1
if ( ipage - 5 ) < 0 then ifirst = 1
%>
                          <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C1C1C1" width="240" height="20">
                            <tr>
                              <td bgcolor="#E4E4E4" align="center" width="15"><a href="<% =Request.ServerVariables("URL") %>?<% =MM_keepMovepage %>offset=0"><img src="images/first.gif" alt="第一筆" width="24" height="23" border="0"></a></td>
                              <td width="15" align="center" valign="middle" bgcolor="#E4E4E4"><%
'ipage = 0
if ipage <= 1 then
%>
                                <img src="images/dislatest.gif" width="15" height="15" border="0" />
                                  <%
else
%>
                                  <a href="<% =Request.ServerVariables("URL") %>?<% =MM_keepMovepage %>offset=<%=(ipage-2)*MM_size %>"><img src="images/latest.gif" width="15" height="15" border="0" /></a>
                                  <%
end if
%>                              </td><%
for i = 1 to 10
if ifirst = iTotalPage + 1 then exit for
if ifirst - ipage = 0 then
%>
                              <td width="20" align="center" valign="middle" bgcolor="#FECD00"><b><%=ifirst%></b>　</td>
                              <%
else
%>
                              <td width="20" align="center" valign="middle" bgcolor="#E7E7E7"><b><a href="<% =Request.ServerVariables("URL") %>?<% =MM_keepMovepage %>offset=<%=(ifirst-1)*MM_size %>"><%=ifirst%></a></b>　</td>
                              <%
end if
ifirst = ifirst + 1
next
if i < 11 then
for j = i to 10
%>
                              <td width="20" align="center" valign="middle" bgcolor="#E4E4E4"></td>
                              <%
next
end if
%>
                              <td width="15" align="center" valign="middle" bgcolor="#E4E4E4"><%
if ipage - iTotalPage = 0 then
%>
                                  <img src="images/disearliest.gif" width="15" height="15" border="0" />
                                  <%
else
%>
                                  <a href="<% =Request.ServerVariables("URL") %>?<% =MM_keepMovepage %>offset=<%=(ipage)*MM_size %>"><img src="images/earliest.gif" width="15" height="15" border="0" /></a>
                                  <%
end if
'end if
%>                              </td>
                              <td bgcolor="#E4E4E4" align="center" width="15"><a href="<% =Request.ServerVariables("URL") %>?<% =MM_keepMovepage %>offset=<%=(iTotalPage)*MM_size %>"><img src="images/last.gif" alt="最後一筆" width="24" height="23" border="0"></a></td>
                            </tr>
                          </table></td>
                      <td>共<%=iTotalPage%>頁</td></tr>
					  
                    </table>
                    
                    
                    </font></td>
                </tr>
                <tr valign="top"> 
                  <td height="20" colspan="2"><table width="97%" border="0" align="center" cellpadding="1" cellspacing="1">
                    <tr>
                      <td><p class="style6">本討論區係供網友就證照、進修或投資理財等主題交流之用，若發言內容偏離前述主題或有推銷等目的，本版主管理人有權刪除。討論內容如涉及違反中華民國法律或公序良俗，本版主管理人有責刪除。</p>                      
                      </td>
                    </tr>
                    <tr>
                      <td><div align="center" class="style6">金證照網站‧版權所有‧不得轉載　Copyrightc&copy;  <a href="http://www.gocharter.com.tw">Gocharter.com.tw</a> All rights reserved.<br>
                        地址：台北市中正區重慶南路一段57號6樓之4；電話：(02)2375-3000；客服信箱：<a href="mailto:serve@gocharter.com.tw">serve@gocharter.com.tw</a></div></td>
                    </tr>
                  </table></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <% End If ' end Not RecMain.EOF Or NOT RecMain.BOF %>
        <% If RecMain.EOF And RecMain.BOF Then %>
        <table width="95%" border="0" align="center" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF">
          <tr> 
            <td align="center">資料庫中沒有任何資料，請新增留言。</td>
          </tr>
        </table>
        <% End If ' end RecMain.EOF And RecMain.BOF %> </td>
      <td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
    </tr>
    <tr> 
      <td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
    </tr>
    <tr> 
      <td colspan="7"><img name="ub_r5_c1" src="images/ub_r5_c1.gif" width="760" height="10" border="0"></td>
      <td><img src="images/spacer.gif" width="1" height="10" border="0"></td>
    </tr>
  </table>
  
</div>
<!-- Google Code for 討論區 Conversion Page -->
<script language="JavaScript" type="text/javascript">
<!--
var google_conversion_id = 1038871310;
var google_conversion_language = "zh_TW";
var google_conversion_format = "1";
var google_conversion_color = "ffffff";
var google_conversion_label = "vSgeCP64bRCO1q_vAw";
//-->
</script>
<script language="JavaScript" src="http://www.googleadservices.com/pagead/conversion.js">
</script>
<noscript>
<img height="1" width="1" border="0" src="http://www.googleadservices.com/pagead/conversion/1038871310/?label=vSgeCP64bRCO1q_vAw&amp;script=0"/>
</noscript>
   

</body>
</html>
<%
RecMain.Close()
Set RecMain = Nothing
%>