网站最佳分辨率 1024*768　如看不到动画,请点击 自动下载 或直接进入 English　中文版
地址:中国广东省汕尾市海丰县后门镇  电话:0660-6794666  传真:0660-6794999
Copyright(c) 2007 海丽国际高尔夫球场有限公司 all right reserved. 后台管理  网页设计:一网中国
<%Function D_Num(Num) If Cint(Num)<=9 And Cint(Num)>0 Then D_Num = "0"&Num Else D_Num = Num End If End Function Dim News,NewsNum NewsNum = 6 Set News=Server.CreateObject("Adodb.RecordSet") News.Open "Select Top "&NewsNum&" * From news Where News_Type=0 Order By newsid desc",Conn,1,1 Do While Not News.Eof %> <% News.MoveNext Loop News.Close %>
"><%=Slen(News("newsname"),27,"..")%> [<%=D_Num(Month(News("adddate")))&"/"&D_Num(Day(News("adddate")))%>]

<%Call Footer()%>