<%
dim RecCount, BannerID(5), BannerPic(5), BannerUrl(5), Idx
sql = "Select AutoID,PicName,Url from TOP_Banner Where ShowMall='Y' And BannerType='A' And " & _
"DateDiff(d, StartDay, GetDate())>=0 And DateDiff(d, EndDay, GetDate())<=0 Order By AddTime desc, AutoID desc"
Set rs = GetRecordset( sql )
if rs.BOF and rs.EOF then
RecCount = 0
else
RecCount = rs.RecordCount
end if
' 若資料小於五筆 直接全列出
if RecCount < 6 then
For LoopFlag = 1 to 5
if rs.EOF then
BannerID(LoopFlag) = ""
BannerPic(LoopFlag) = ""
BannerUrl(LoopFlag) = ""
else
BannerID(LoopFlag) = CStr(rs(0).value)
BannerPic(LoopFlag) = rs(1).value
BannerUrl(LoopFlag) = Trim(rs(2).value)
rs.movenext
end if
Next
else ' 隨機取資料
Randomize ' 取亂數將隨機五筆存入Array
For LoopFlag = 1 to 5
rs.AbsolutePosition = Int((RecCount * Rnd) + 1)
BannerID(LoopFlag) = CStr(rs(0).value)
BannerPic(LoopFlag) = rs(1).value
BannerUrl(LoopFlag) = Trim(rs(2).value)
' 過濾重覆的
For Idx = 1 to LoopFlag - 1
if BannerID(LoopFlag) = BannerID(Idx) then
LoopFlag = LoopFlag - 1
exit For
end if
Next
Next
end if
rs.close
set rs = nothing
%>
<%
dim sql1, rs1, AID, pageTitle
dim NewsTitle, NewsDate, NewsType
dim selDate, T1, Y1, M1
dim ErrFlag
ErrFlag = False
' 公告編號
AID = ReqNum(Request.QueryString("ID"))
if AID <> "" then
sql = "select * from ML_News where NewsID = " & AID
else
response.Redirect "/main.asp"
response.End
end if
set rs = GetRecordset( sql )
if not(rs.bof and rs.eof) then
NewsTitle = rs("NewsTitle")
' 抓取日期分組
sql = "SELECT LEFT(CONVERT(varchar, AddTime, 111), 7) AS Expr1 FROM ML_News GROUP BY LEFT(CONVERT(varchar, AddTime, 111), 7) order by Expr1 desc"
'response.Write sql
'response.End
' 點閱數計算
sql1 = "update ML_News set N_Count=(select N_Count from ML_News where NewsID =" & AID & ")+1 where NewsID =" & AID
NewsDate = rs("AddTime")
selDate = DatePart("yyyy",NewsDate) & "/" & DatePart("m",NewsDate)
NewsDate = DatePart("yyyy",NewsDate) & "-" & Right("0" & DatePart("m",NewsDate),2) & "-" & Right("0" & DatePart("d",NewsDate),2)
'response.Write sql : response.End()
set rs1 = GetRecordset( sql )
Errh = DoCommand( sql1 )
%>
<%select case rs("NewsType")
case "Action"
picTmp = "icon1.gif"
case "NewGoods"
picTmp = "icon2.gif"
case "Important"
picTmp = "icon3.gif"
case else
picTmp = "icon1.gif"
end select
%>
<%=DatePart("yyyy",NewsDate) & "年" & DatePart("m",NewsDate) & "月"%>
