<%
server.Execute "/NoHACK1.asp"
dim sql, rs, rs1, i, ViewID, rs_D_FileView, rs_D_Name
ViewID = ReqNum(Request("ID"))
'----撈所有影片
sql = "SELECT * from DL_Movie order by AddTime desc , AutoID desc"
set rs = GetRecordset(sql)
'若無任何影片資料 導至首頁
if rs.BOF and rs.EOF then
rs.close
set rs = nothing
response.Redirect("/main.asp")
response.End
else
if ViewID = "" then ViewID = CStr(rs("AutoID"))
end if
'----撈目前要播放的影片
sql = "SELECT D_FileView,D_Name from DL_Movie where AutoID=" & ViewID
set rs1 = GetRecordset(sql)
if not(rs1.BOF and rs1.EOF) then
rs_D_FileView = rs1("D_FileView")
rs_D_Name = rs1("D_Name")
end if
rs1.close
set rs1 = nothing
'若找不到要播放的影片 就播第一筆資料
if rs_D_FileView = "" then
response.Redirect("movie.asp?ID=" & rs("AutoID"))
end if
%>
