%@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
%>
以斯帖統計顧問股份有限公司
最新活動資訊
<%=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)
%>