• <cite id="6no5x"></cite>
  • <source id="6no5x"></source>
  •              產品展示 | Products
               公司簡介 | About Us
    當前位置:首頁→ 在線留言

    <% IF (output=true and session("postboard_admin")=true) or not output=true THEN if x0=empty or not isNUMERIC(x0) then x0=0 elseif x0>30 then x0=30 elseif x0<-30 then x0=-30 end if if x0<>0 then rs.open "select * from message order by id "&list(x0),conn,1 maxX=1 maxY=abs(x0) elseif x0=0 then response.write(licence) response.end end if rs.pagesize=maxX*maxY '設置和計算每頁的記錄數,即每頁共多少圖片 dim everypagesize,rscount,curpage,pgcount '每頁記錄數,總記錄數,當前頁數,總頁數 everypagesize=rs.pagesize rscount=rs.recordcount pgcount=rs.pagecount if request.form("page")=empty or not isNumeric(request.form("page")) then if isNumeric(request.querystring("page")) then curpage=cint(request.querystring("page")) else curpage=1 end if else curpage=cint(request.form("page")) end if if curpage=empty or curpage<1 then curpage=1 elseif curpage>pgcount then curpage=pgcount end if if not rs.eof=true and not rs.bof=true then rs.absolutepage=curpage '設置當前頁數 end if %>

    <% IF rs.eof=true and rs.bof=true THEN %>

    There are not any messages !

    <% ELSE i=1 While not rs.eof and i<=maxY response.write("") response.write("") response.write("") IF rs("shield").value=true then '檢查shield是否為TRUE以判斷此記錄是否已被屏蔽 response.write("") ELSE '否則正常顯示標題 if lenB(rs("title").value)>abs(lt)*2 then response.write("") else response.write("") end if END IF '檢查SHIELD完畢 response.write("") response.write("") response.write("") IF session("postboard_admin")=true then '最近的更新方向為管理員管理,及根限設定 response.write("") else response.write("屏蔽留言") end if END IF response.write("
    標題: 不顯示
    ") IF rs("shield").value=true then '檢查shield是否為TRUE以判斷此記錄是否已被屏蔽 response.write("
    ") '如果是則不顯示留言 response.write("


    ") ELSE '否則正常顯示 if len(rs("name").value)<=25 then response.write("
    ") else response.write("
    ") end if response.write("


    ") END IF '檢查SHIELD完畢 IF rs("reply")<>empty THEN' 查看有沒有管理員回復,有則顯示回復 response.write("


    ") END IF response.write("
    管理操作|回復留言 | 刪除留言 | ") if rs("shield").value=true then response.write("解除屏蔽
    ") response.write("
    ") i=i+1 rs.movenext Wend END IF %> <% response.write("") if curpage>1 then response.write(""&chr(13)&""&chr(13)&""&chr(13)&"") else response.write("  "&chr(13)&"") end if response.write(""&chr(13)&"") END IF %>

    上一頁  ") else response.write("
    ") end if IF curpage<10 THEN '如果當前頁少于10 If pgcount>10 Then '又如果總頁數大于10 for k=1 to 10 '則顯示可連頁數為1到10 if k<>curpage then response.write("["&k&"] ") else response.write("["&k&"] ") end if next '<當前頁少于10且總頁數大于10>情況處理完畢 Else '否則,即總頁數小于等于10 for k=1 to pgcount '則顯示可連頁數為1到總頁數 if k<>curpage then response.write("["&k&"] ") else response.write("["&k&"] ") end if next '<當前頁少于10且總頁數小于等于10>情況處理完畢 End if '<如果當前頁數少于10>的情況處理完畢 ELSEIF curpage>=10 then '如果當前頁數大于等于10 If curpage+5curpage then response.write("["&k&"] ") else response.write("["&k&"] ") end if next Elseif curpage+5>=pgcount then '但如果當前頁加5后大于等于總頁數 for k=curpage-5 to pgcount '則顯示可連頁為當前頁減5到總頁 if k<>curpage then response.write("["&k&"] ") else response.write("["&k&"] ") end if next End if '<當前頁大于等于10>情況處理完畢 END IF if curpage下一頁

    "&pgcount&"頁 當前第"&curpage&"頁  
    | page | 首頁 | 未頁 | ") IF latest=true THEN if x0<0 then response.write("最新留言 | ") elseif x0>0 then response.write("最新留言 | ") end if END IF response.write("

      標題 title:

      姓名 name:    value="管理員"<%end if%> name="name" type="text" id="name" style="BORDER-RIGHT: #D7E8FF 1px solid; BORDER-TOP: #D7E8FF 1px solid; BORDER-LEFT: #D7E8FF 1px solid; BORDER-BOTTOM: #D7E8FF 1px solid; BACKGROUND-COLOR: #F7FAFF" onMouseOver="this.style.backgroundColor='#ffffff'" onMouseOut="this.style.backgroundColor='#F7FAFF'" title="This value is your IP Address if value is empty" maxlength="40"> <% if writename=true then%> * <%end if%>
      電郵 E-mail:   
    content of message
    <% if session("postboard_admin")=true then response.write("  |  注銷管理員登陸  |  進入管理中心") end if %>


    傳真:0575-3349555   網絡實名:漢邦紡機

    copyright© : Shaoxing Hanbang Textile Machinery co.Ltd.