<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% SQL="select * from News order by nid desc" SET RS=Server.CreateObject("adodb.recordset") rs.open sql,conn,3,1 IF NOT RS.EOF THEN nid=rs("nid") title_c=rs("title_c") 'comtent_c=trim(left(rs("comtent_c"),400)) comtent_c=rs("comtent_c") end if set rs=nothing %> 以斯帖統計顧問股份有限公司
健保資料庫分析研習營03期夏季班 應用生物醫學統計研習營30期秋季班 統計委託 統計諮詢

  最新活動資訊

<%=title_c%>
<% Function RemoveHTML( strText ) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, "") Response.write trim(left(RemoveHTML,400)) End Function RemoveHTML(comtent_c) %>
<% SQLa="SELECT * from tech_class order by tid desc" SET RS=Server.CreateObject("adodb.recordset") rs.open sqla,conn,3,1 IF NOT RS.EOF THEN 'Randomize 'RndNum=Int(Rnd*rs.RecordCount)+1 'rs.AbsolutePosition=RndNum I=0 DO WHILE NOT RS.EOF I=I+1 response.write ""&rs("class_tile")&"

" rs.movenext loop end if set rs=nothing %>
 
Copyright © 2018 以斯帖統計顧問股份有限公司 All Rights Reserved.
116-94 台北市文山區辛亥路四段130巷11號1樓(捷運辛亥站旁,點擊連結地圖)
電話:(02)2935-3311 傳真:(02)2935-3379  E-mail:service@estat.com.tw
.會員服務條款
.隱私權保護說明
.人才招募
.聯絡我們
.Facebook