 |
|
 |
 |
<%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
%>
| "><%=Slen(News("newsname"),27,"..")%> |
[<%=D_Num(Month(News("adddate")))&"/"&D_Num(Day(News("adddate")))%>] |
<%
News.MoveNext
Loop
News.Close
%>
|
|
 |
|
 |
|
 |